首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp,其名称为FormI的窗体上已有三个文本框Textl、Text2、Text3,以及部分程序代码,请完成以下工作。 ①在属性窗口中修改Text3的适当属性,使其在运行时不显示,作为模拟的剪贴板使用,窗体如图
在考生文件夹下有一个工程文件sjt5.vbp,其名称为FormI的窗体上已有三个文本框Textl、Text2、Text3,以及部分程序代码,请完成以下工作。 ①在属性窗口中修改Text3的适当属性,使其在运行时不显示,作为模拟的剪贴板使用,窗体如图
admin
2020-04-08
51
问题
在考生文件夹下有一个工程文件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全国计算机二级
相关试题推荐
下列关于线性链表的描述中,正确的是()。Ⅰ、只含有一个指针域来存放下一个元素地址Ⅱ、指针域中的指针用于指向该结点的前一个或后一个结点(即前件或后件)Ⅲ、结点由两部分组成:数据域和指针域。
如果将命令按钮的访问键设置为"D",以下不会触发命令按钮Click事件的操作是
(1)考生文件夹下的工程文件sjt3.vbp中有2个标题分别是“产生范文”和“结束”的命令按钮:2个名称分别为Text1和Text2,初始值为空的文本框。请再画1个名称为Label3、标题为“正确率”的标签,画1个名称为Text3、初始内容为空的文本框。效
数据库概念设计的过程中,以下各项中不属于视图没有设计次序的是()。
Fibonacci数列的规律是:前2个数为1,从第3个数开始,每个数是它前2个数之和,即:1,1,2,3,5,8,13,21,34,55,89,…。某人编写了下面的函数,判断大于1的整数X是否是Fibonacci数列中的某个数,若是,则返回Tme,否则返回
若变量a未事先定义而直接使用(例如:a=0),则变量a的类型是()。
己知在菜单编辑器中设计了窗体的快捷菜单,其主菜单为a1,且取消其“可见”属性,如图2所示。运行时,以下()事件过程可以使快捷菜单的菜单项响应鼠标右键单击。
(1)在考生目录下有一个工程文件sjt3.vbp,窗体上有一个命令按钮Command1(标题为“下一个”)。要求:在窗体上建立一个单选按钮数组Option1,含4个单选按钮,标题分别为“选项1”、“选项2”、“选项3”、“选项4”,初始状态下,“选项
设置定时器控件的Interval属性为2000,Enabled属性为True,并且有下面的事件过程,程序运行时计算机将发出()次Beep声。SubTimer1_Timer()BeepEndSub
为了使通用对话框弹出的窗口标题显示为“文件操作”,应对通用对话框控件设置的属性是()。
随机试题
C盘中P1.c.txt文件的内容为:abcdeoA盘中P1.c.txt为空文档。#include#includemain(){FILE*f1*f2;intk;if((f1=fopen("C
甲公司是一家大量、大批多步骤生产的企业。该公司有三个生产步骤,根据成本管理的要求,除要计算最后步骤生产的产品成本以外,还需要提供各生产步骤的半成品成本资料。要求:请为甲公司设计合适的成本计算方法和成本计算流程。
二尖瓣关闭不全的超声心动图特点不包括
关于结肠的结构特征,错误的是
下列分子属于极性分子的是()。
你认为一种科学的备课方法是什么?
根据《公务员考核规定(试行)》的规定,“德、能、勤、绩、廉”五方面表现和______是考核一名公务员是否称职的主要标准。公务员______的结果作为调整公务员职务、级别、工资以及公务员奖励、培训、辞退的依据。()
某种汉堡包每个成本4.5元,售价10.5元。当天卖不完的汉堡包即不再出售。在过去十天里,餐厅每天都会准备200个汉堡包,其中有六天正好卖完,四天各剩余25个。问这十天该餐厅卖汉堡包共赚了多少元?
求极限,a>0.
Mostmarketingoperationspaycloseattentiontowhatyoungpeoplearebuyingandthinking.NotBritain’spoliticalparties,ho
最新回复
(
0
)