首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp,其名称为Form1的窗体上已有三个文本框Text1、rext2、Text3,以及部分程序代码,请完成以下工作。 ①在属性窗口中修改Text3的适当属性,使其在运行时不显示,作为模拟的剪贴板使用,窗体如图
在考生文件夹下有一个工程文件sjt5.vbp,其名称为Form1的窗体上已有三个文本框Text1、rext2、Text3,以及部分程序代码,请完成以下工作。 ①在属性窗口中修改Text3的适当属性,使其在运行时不显示,作为模拟的剪贴板使用,窗体如图
admin
2018-12-20
54
问题
在考生文件夹下有一个工程文件sjt5.vbp,其名称为Form1的窗体上已有三个文本框Text1、rext2、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’当焦点在Textl中,则将内容复制给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_C1ick()’编辑 If which=1Then If Textl.Text=""Then Cut.Enabled=False Copy.Enabled=False E1se Cut.Enabled=True Copy.Enabled=True End If ElseIf which=2Then If Text2.Text=""Then Cut.Enabled=False Copy.Enabled=False E1se Cut.Enabled=True Copy.Enabled=True End If End If If Text3.Text=""Then Paste.Enabled=False E1se Paste.Enabled=True End If End Sub Private Sub paste_Click()’粘贴按钮 If which=1 Then’当焦点在Text1中则将Text3的内容追加到Text1文件末尾 Textl.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:调试并运行程序,关闭程序后按题目要求存盘。
解析
本题中隐藏的文本框Text3的功能相当于剪贴板。在文本框(Text1或Text2)获得焦点触发的GotFoells事件过程中,用窗体变量which记录下该文本框序号(1或2)。在“编辑”菜单的Click事件过程中,首先根据which的不同值来判断相应文本框(Text1或Text2)的内容是否为空,如果内容为空则设置“剪切”和“复制”菜单项不可用,否则设置“剪切”和“复制”菜单项可用;其次判断Text3文本框的内容是否为空,如果内容为空则设置“粘贴”菜单项不可用,否则设置“粘贴”菜单项可用。
在“复制”命令的单击事件过程中,根据which的值不同,将相应文本框(Textl或Text2)中的内容复制到Text3文本框中。在“剪切”命令的单击事件过程中除应执行与“复制”命令相同的语句外,还应执行清除当前文本框中内容的语句。在“粘贴”命令的单击事件过程中,也要根据which值的不同,将Text3文本框中的内容粘贴到文本框中的原内容之后。
转载请注明原文地址:https://kaotiyun.com/show/CkFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列程序段的输出结果是x=5Printx+1;x+1
假定有如下的程序段:DimintVarAsIntegerintvar=TruePrintintVar则输出结果是
下面描述中不属于数据库系统特点的是
对于某些控件,只要将其Style属性设置为1,则可以在该控件上使用Picture属性显示图片。以下不具备这一使用规则的控件是
以下关于控件数组的叙述中,错误的是( )。
以下变量名中合法的是( )。
能正确表述"x为大于等于5并且小于20的数"的VisualBasic表达式是
对长度为n的线性表作快速排序,在最坏情况下,比较次数为
下列链表中,其逻辑结构属于非线性结构的是
下列说法中错误的是()。
随机试题
通常负责分派病案号码的部门是
在实际工作中,新手教师即使完全模仿专家教师的教学策略,也很难达到同样理想的效果。这说明教学策略具有()
Formillionsofpeople,theAmericandreamofowningahomeseemstobeslippingoutofreach:"Maybeyoungcouplescannol
作为消费者,希望商品“质优价廉”,作为经营者,希望商品“质优价优”,尽管两者关注点不同,但都说明商品()
某城市出租车收费按路程计算,3千米之内(包括3千米)收费6元,超过3千米每增加1千米加收1.6元,则车费y(元)与路程x(千米)之间的函数关系式为____________.
“执法为民”是公安机关执法思想的核心。()
领导让你到某县去了解当地的社情民意。你准备怎样开展此项工作?
贝多芬《第九“合唱”交响曲》第四乐章声乐部分中的歌词作者是()。
埃博拉病毒已经夺走2900多条生命,并且仍在继续肆虐。
Whowasrecognizedthroughouthislifeastheleaderoftranscendentalismmovement?
最新回复
(
0
)