首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp,其名称为Form1的窗体上已有三个文本框Text1、Text2、Text3,以及部分程序代码,请完成以下工作。 ①在属性窗口中修改Text3的适当属性,使其在运行时不显示,作为模拟的剪贴板使用,窗体如图所示。
在考生文件夹下有一个工程文件sjt5.vbp,其名称为Form1的窗体上已有三个文本框Text1、Text2、Text3,以及部分程序代码,请完成以下工作。 ①在属性窗口中修改Text3的适当属性,使其在运行时不显示,作为模拟的剪贴板使用,窗体如图所示。
admin
2019-05-14
54
问题
在考生文件夹下有一个工程文件sjt5.vbp,其名称为Form1的窗体上已有三个文本框Text1、Text2、Text3,以及部分程序代码,请完成以下工作。
①在属性窗口中修改Text3的适当属性,使其在运行时不显示,作为模拟的剪贴板使用,窗体如图所示。
②建立下拉式菜单,如下表所示。
③窗体文件中给出了所有事件过程,但不完整,请去掉程序中的注释符,把程序中的?改为正确的内容,以便实现如下功能:当光标所在的文件框中无内容时,“剪切”、“复制”不可用,否则可以把该文本框中的内容剪切或复制到Text3中;若Text3中无内容,则“粘贴”不能用,否则可以把Text3中的内容粘贴在光标所在的文本框中的内容之后。
注意:不能修改程序中的其他部分,各菜单项的标题名称必须正确。最后将修改后的文件按原文件名存盘。
选项
答案
[操作步骤] 步骤1:打开本题工程文件,将Text3的Visible属性设置为False,然后按照题目要求建立菜单并设置其属性,如图3.20所示。 [*] 菜单属性如表3.12所示。 [*] 步骤2:打开代码编辑窗口,去掉程序中的注释符“’”,将问号改为正确的内容。 参考代码(画下划线部分是需填入的内容) Dim which As Integer Private Sub copy_Click()’复制按钮 If which=1 Then’当焦点在Text1中,将Text1中的内容复制给Text3 Text3.Text=Text1.Text ElseIf which=2 Then’同理,焦点在Text2中,将Text2中的内容复制给Text3 Text3.Text=Text2.Text End If End Sub Private Sub cut Click()’剪切按钮 If which=1 Then’当焦点在Text1中,则将内容复制给Text3,并清空Text1内容 Text3.Text=Text1.Text Text1.Text="" ElseIf which=2 Then’同上 Text3.Text=Text2.Text Text2.Text="" End If End Sub Private Sub edit Click()’编辑 If which=
1
Then If Text1.Text=""Then Cut.Enabled=False Copy.Enabled=False Else Cut.Enabled=True Copy.Enabled=True End If ElseIf which=
2
Then If Text2.Text=""Then Cut.Enabled=False Copy.Enabled=False Else Cut.Enabled=True Copy.Enabled=True End If End If If Text3.Text=""Then Paste.Enabled=False Else Paste.Enabled=True End If End Sub Private Sub paste Click()’粘贴按钮 If which=1 Then’当焦点在Text1中则将 Text3的内容追加到Text1文件末尾 Text1.Text=
Text1.Text+Text3.Text
ElseIf which=2 Then’同上 Text2.Text=
Text2.Text+Text3.Text
End If End Sub Private Sub Text1 GotFocus()’本过程的作用是当焦点在Text1中时,which=1 whiCh=1 End Sub Private Sub Text2 GotFocuS()’本过程的作用是当焦点在Text2中时,which=2 which=2 End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/RTUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
(1)在考生文件夹下有一个工程文件sit3.vbp。程序的功能是:在运行时,如果选中一个单选按钮和一个或两个复选框,并单击“确定”按钮,则对文本框中的文字做相应的设置,如图3.100所示。窗体上的控件已经画出,但没有给出主要程序内容,请编写适当的事件过程,
在窗体上画一个文本框,其名称为Text1,初始内容为空白,并设置成多行显示格式;然后再画两个命令按钮,其名称分别为Commandl和Command2,标题分别为“显示”和“保存”,如图3.92所示,编写适当的事件过程。程序运行后,如果单击“显示”按钮,则读
(1)在考生文件夹下有一个工程文件sjt3.vbp,相应的窗体文件为sjt3.frm,在窗体上有一个命令按钮(名称为Commandl,标题为“计算并输出”)和两个文本框(名称分别为Text1和Text2),如图3—8所示。程序运行后,单击命令按钮,即可计算
(1)在考生文件夹下有一个工程文件vbsi3.vbp,相应的窗体文件名为vbsi3.frm。在窗体上有一个命令按钮,其名称为cmdAdd,标题为“添加”;有一个文本框,名称为txtSentense,初始内容为空白;有一个列表框,名称为lstWord。程序运
数列1,1,3,5,9,15,25,41,…,的规律是从第三个数开始,每个数是它前面两个数的和加1。在考牛目录下有一个工程文件sjt5.vbp。窗体中已经给出了所有控件,如图3.106所示。请编写适当的事件过程实现以下功能:在Text1中输入整数40,单击
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Forml的窗体上建立一个名称为cmdArray的命令按钮数组,含3个命令按钮,它们的lndex属性分别为0、1、2,标题依次为“是”、“否”、“取消”,每个按钮
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Forml的窗体上画一个名称为ShapeI的圆角矩形,高、宽分别为1000、2000。请利用属性窗口设置适当的属性满足以下要求:①圆角矩形中填满绿色(颜色值为&
请根据以下各小题的要求设计visualBasic应用程序(包括界面和代码)。(1)在名称为Forml、标题为“图片”的窗体上画一个名称为Imagel的图像框,其高为2500、宽为2000。请通过属性窗口设置适当属性,装入考生目录下的图片文件picljp
(1)考生文件夹下的工程文件sjt3.vbp中有一个初始内容:为空、且带有垂直滚动条的文本框,其名称为Text1;两个标题分别为“读数据”和“查找”的命令按钮,其名称分别:勾Cmd1、Cmd2。请画一个标题为“查找结果”的标签Label1,再画一个名称为T
请根据以下各小题的要求设计visualBasic应用程序(包括界面和代码)。(1)在名称为Forml的窗体上画一个名称为C1、标题为“改变颜色”的命令按钮,窗体标题为“改变窗体背景色”。编写程序,使得单击命令按钮时,将窗体的背景颜色改为红色(&HFF&
随机试题
()是研究如何利用计算机模仿人的智能,并是在计算机与控制论科学上发展起来的边缘学科。
A.蹄裂B.白线裂C.蹄叶炎D.蹄叉腐烂E.蹄冠蜂窝织炎马,5岁,精神沉郁,体温40℃,不愿站立和运动,驻立时,双前肢前伸,双后肢伸至腹下,以蹄踵着地。叩诊蹄壁敏感。根据临床表现诊断所患蹄病是
下列关于证券公司向期货公司提供中间介绍服务的说法中,正确的是()。
痛风症应控制的食物是()。
2017年2月,119指挥中心接到报警,某区一市场发生火灾,指挥中心立即调派6个中队33部消防车到场处置。消防官兵正在奋力扑救火灾,市场外聚集了很多围观群众,造成交通堵塞。对此次突发事件现场处置不恰当的是()。
【背景材料及试题】关于领导干部需要具备哪些素质,下面给出了10项,请你从下属的10个选项中选出5项并按重要性进行排序。1.走群众路线.2.实事求是。3.辩证思维。4.全局观。5.长远的发展目光。
强化仪式:指组织公开承认或奖励员工贡献的一种礼仪活动,具有激励、强化员工对组织的承诺,使员工与组织牢固地联系在一起的作用。下列属于强化仪式的是()。
无领导小组讨论(有题本,阅读时间20分钟,可带入考场;讨论时间共70分钟)材料:大致内容是从现在早餐供应和需求状况来看,早餐(如油条等)存在卫生方面的问题,市民都希望能够吃到放心油条,政府对此做出了具体规定,提高了设立早餐摊点的门槛,并积极扶持部
在编写事务时,各事务尽量按照相同的顺序来访问资源,这样做的好处是()。
CanadianauthoritiesrelayedthatsuspiciontotheU.S.CoastGuard,whichdispatchedacuttertointerceptthevessel.Aftera
最新回复
(
0
)