首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp,其名称为FormI的窗体上已有三个文本框Textl、Text2、Text3,以及部分程序代码,请完成以下工作。 ①在属性窗口中修改Text3的适当属性,使其在运行时不显示,作为模拟的剪贴板使用,窗体如图
在考生文件夹下有一个工程文件sjt5.vbp,其名称为FormI的窗体上已有三个文本框Textl、Text2、Text3,以及部分程序代码,请完成以下工作。 ①在属性窗口中修改Text3的适当属性,使其在运行时不显示,作为模拟的剪贴板使用,窗体如图
admin
2020-04-08
47
问题
在考生文件夹下有一个工程文件sjt5.vbp,其名称为FormI的窗体上已有三个文本框Textl、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’当焦点在。rextl中, 将Textl中的内容复制给。rext3 Text3.Text=Textl.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,并清空Textl内容 Text3.Text=Textl.Text Textl.Text="" E1seIf which=2 Then’同上 Text3.Text=Text2.Text Text2.Text="" End If End Sub Private Sub edit C1ick()′编辑 If which=
1
Then If Textl.Text=””Then Cut.Enabled=False Copy.Enabled=False E1se Cut.Enabled=True Copy.Enabled:True End If ElseIf which=
2
Then 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"当焦点在Textl中则将Text3的内容追加到Textl文件末尾 Textl.Text =
Text1,Text+Text3.Text
E1seIf which=2 Then′同上 Text2.Text =
Text2,Text+Text3.Text
End If End Sub Private Sub Textl_GotFocus()′本过程的作用是当焦点在Textl中时,which=1 which=1 End Sub Private Sub Text2_GotFocus()′本过程的作用是当焦点在Text2中时,which=2 which=2 End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。 【易错提示】对于which值的判断,贯穿整个程序,因此要明白为什么要设置which值来进行判断。
解析
本题中隐藏的文本框Text3的功能相当于剪贴板。在文本框(Textl或Text2)获得焦点触发的GotFocus事件过程中,用窗体变量which记录下该文本框序号(1或2)。在“编辑”菜单的Click事件过程中,首先根据which的不同值来判断相应文本框(Textl或Text2)的内容是否为空,如果内容为空则设置“剪切”和“复制”菜单项不可用,否则设置“剪切”和“复制”菜单项可用;其次判断Text3文本框的内容是否为空,如果内容为空则设置“粘贴”菜单项不可用,否则设置“粘贴”菜单项可用。
转载请注明原文地址:https://kaotiyun.com/show/AATp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
有下列程序代码:PrivateSubCommand1_Crick()RandomizeDimx(30)AsInteger,sAsIntegerFork%=1To30x(k)=Int(Rnd
下列关于菜单项的描述中,错误的是
以下数组定义语句中,错误的是( )。
对长度为10的线性表进行冒泡排序,最坏情况下需要比较的次数为
在窗体中添加一个命令按钮、一个标签和一个文本框,并将文本框的Text属性置空,编写命令按钮Commandl的Click事件代码:PrivateFunctionfun(xAsLong)AsBooleanIfxMod2=0Thenf
设a=5,b=8,下列输出"*"个数最多的程序段是
若将变量TestDate声明为Date类型,则下列为变量TestDate赋值的语句中正确的是()。
在软件开发中,需求分析阶段产生的主要文档是( )。
在考生文件夹卜有一个工程义件sjt5.vbp。程序运行时,单击“显示数据”按钮,则将考生文件夹下in5.dat文件的内容读入一维数组a中,并按下标顺序将数组a各元素的值显示在List1列表框中;单击“移动”按钮,则将数组a中的最大值移动到数组的最前面,其他
为了判断字符串变量strName中的姓名是否姓"李",应采用的表达式是
随机试题
技术是人类利用、控制、改造自然、社会和思维的知识体系,是人与自然、社会、思维之间相互联系的一种媒介。自然技术的研究对象是自然界,主要解决“做什么”与“怎样做”的问题。所谓技术的国际性,是指技术没有民族与国别之分,是全人类共同的财富。因此,无论是什么民族和国
离散型随机变量的概率分布怎样表示?常用的离散型随机变量的概率分布有哪些?
如果企业速动比率很小,下列结论成立的是()
体格检查不包括
时某,男性,65岁。右腰痛2年余,无痛性全程肉眼血尿3天;查体:右肾区叩痛,右肾可触及肋下3指;尿常规:红细胞充满视野;肾盂静脉造影可见右肾中盏移位、拉长、变形。应诊断为
A.腹腔动脉B.髂外动脉C.髂内动脉D.肠系膜前动脉E.荐中动脉位于家畜腹腔内供应肝脏血液的动脉称为
中度缺钠时,病人每千克体重缺氯化钠
A、(2R,2’R)-(+)-2,2’-(1,2-乙二基二亚氨基)-双-1-丁醇B、4-吡啶甲酰肼C、1-环丙基-6-氟-1,4-二氢-4-氧代-7-(1-哌嗪基)-3-喹啉羧酸盐酸盐一水合物D、9-(2-羟乙
我国基础教育新课程改革后,实行了三级课程管理体系,它们是国家课程、地方课程、校本课程。()
科学研究中使用的形式语言和日常生活中使用的自然语言有很大的不同。形式语言看起来像天书,远离大众,只有一些专业人士才能理解和运用。但其实这是一种误解,自然语言和形式语言的关系就像肉眼与显微镜的关系。肉眼的视域广阔,可以从整体上把握事物的信息;显微镜可以帮助人
最新回复
(
0
)