首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp,其名称为Forml的窗体上已有三个文本框Text1、Text2、Text3,以及部分程序代码,请完成以下工作。 ①在属性窗口中修改Text3的适当属性,使其在运行时不显示,作为模拟的剪贴板使用,窗体如图
在考生文件夹下有一个工程文件sjt5.vbp,其名称为Forml的窗体上已有三个文本框Text1、Text2、Text3,以及部分程序代码,请完成以下工作。 ①在属性窗口中修改Text3的适当属性,使其在运行时不显示,作为模拟的剪贴板使用,窗体如图
admin
2020-07-22
43
问题
在考生文件夹下有一个工程文件sjt5.vbp,其名称为Forml的窗体上已有三个文本框Text1、Text2、Text3,以及部分程序代码,请完成以下工作。
①在属性窗口中修改Text3的适当属性,使其在运行时不显示,作为模拟的剪贴板使用,窗体如图所示。
②建立下拉式菜单,如下表所示。
③窗体文件中给出了所有事件过程,但不完整,请去掉程序中的注释符,把程序中的?改为正确的内容,以便实现如下功能:当光标所在的文件框中无内容时,“剪切”、“复制”不可用,否则可以把该文本框中的内容剪切或复制到Text3中;若Text3中无内容,则“粘贴”不能用,否则可以把Text3中的内容粘贴在光标所在的文本框中的内容之后。
注意:不能修改程序中的其他部分,各菜单项的标题名称必须正确。最后将修改后的文件按原文件名存盘。
选项
答案
【操作步骤】 步骤1:打开本题工程文件,将Text3的Visible属性设置为False,然后按照题目要求建立菜单并设置其属性,如图4.20所示。 [*] 菜单属性如表4.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 C1ick()’剪切按钮 If which=1 Then’当焦点在Text1中,则将内容复制给Text3,并清空Text1内容 Text3.Text=Text1.Text Text1.Text="" E1seIf 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 Elself 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 C1ick()’粘贴按钮 If which=1 Then’当焦点在Text1中则将Text3的内容追加到Text1文件末尾 Text1.Text=
Text1.Text+Text3.Text
E1se If 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:调试并运行程序,关闭程序后按题目要求存盘。
解析
本题中隐藏的文本框Text3的功能相当于剪贴板。在文本框(Text1或Text2)获得焦点触发的GotFocus事件过程中。用窗体变量which记录下该文本框序号(1或2)。在“编辑”菜单的Click事件过程中,首先根据which的不同值来判断相应文本框(Text1或Text2)的内容是否为空,如果内容为空则设置“剪切”和“复制”菜单项不可用,否则设置“剪切”和“复制”菜单项可用;其次判断Text3文本框的内容是否为空,如果内容为空则设置“粘贴”菜单项不可用,否则设置“粘贴”菜单项可用。
在“复制”命令的单击事件过程中,根据which的值不同,将相应文本框(Text1或Text2)中的内容复制到Text3文本框中。在“剪切”命令的单击事件过程中除应执行与“复制”命令相同的语句外,还应执行清除当前文本框中内容的语句。在“粘贴”命令的单击事件过程中,也要根据which值的不同,将Text3文本框中的内容粘贴到文本框中的原内容之后。
转载请注明原文地址:https://kaotiyun.com/show/4JHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列关于线性链表的叙述中,正确的是
以下数组定义语句中,错误的是
当文本框中的内容发生改变时所触发的事件是
下列叙述中正确的是
命令按钮Command1的MouseUp事件过程结构如下:PrivateSubCommand1_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)EndS
一个栈的初始状态为空。现将元素1、2、3、4、5、A、B、C、D、E依次入栈,然后再依次出栈,则元素出栈的顺序是
窗体上有一个名称为HScroll1的滚动条,程序运行后,当单击滚动条两端的箭头时,立即在窗体上显示滚动框的位置(即刻度值)。下面能够实现上述操作的事件过程是
某系统结构图如下图所示该系统结构图的深度是
关于文件操作,以下叙述中正确的是
随机试题
关于睾丸闯质细胞,下述正确的是()
汽车悬架一般由_______组成。
某年轻患者,因左上智齿颊侧错位,需局麻下拔除为避免局麻药中毒,其防治原则中不包括以下哪项
根据《合同法》对成立及生效的规定,合同成立并不等于合同生效,二者的区别包括()。
耐压试验主要用于检验压力容器承受()的能力。
案例五[背景材料]某工程,建设单位和施工单位按《建设工程施工合同(示范文本)》签订了施工合同,在施工合同履行过程中发生如下事件。事件1:工程开工前,总监理工程师主持召开了第一次工地会议。会上,总监理工程师宣布了建设单位对其的授权,并
甲酒厂为增值税一般纳税人,2011年6月发生以下业务:(1)从农业生产者手中收购粮食30吨,收购凭证上注明每吨收购价2000元,共计支付收购价款60000元。(2)甲酒厂将收购的粮食从收购地直接运往异地的乙酒厂生产加工白酒,白酒加工完毕,甲酒厂收回白酒
心理健康的规定不是一成不变的,它可以随着社会及个体的变化不断调整。心理平衡表现为没有欲望和观念的冲突,没有紧张、焦虑、畏缩等不良情绪反应。心理健康就是人通过不断的心理活动,把由于种种原因造成的心理失衡调适为心理平衡的状态。这段文字意在表明(
Whatifarchitectscouldbuildlivingsystemsratherthanstaticbuildings—dynamicstructuresthatmodifytheirinternalande
请使用VC6或使用【答题】菜单打开考生文件夹projl下的工程proj1,该工程中含有一个源程序文件proj1.epp。其中位于每个注释“//ERROR****found****”之后的一行语句有错误。请改正这些错误,使程序的输出结果为:12345
最新回复
(
0
)