首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp,其名称为Form1的窗体上已有三个文本框Text1、Text2、Text3,以及部分程序代码,请完成以下工作。 ①在属性窗口中修改Text3的适当属性,使其在运行时不显示,作为模拟的剪贴板使用,窗体如图所示。
在考生文件夹下有一个工程文件sjt5.vbp,其名称为Form1的窗体上已有三个文本框Text1、Text2、Text3,以及部分程序代码,请完成以下工作。 ①在属性窗口中修改Text3的适当属性,使其在运行时不显示,作为模拟的剪贴板使用,窗体如图所示。
admin
2019-05-14
47
问题
在考生文件夹下有一个工程文件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全国计算机二级
相关试题推荐
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Forml的窗体上画一个名称为List1的列表框,在属性窗口中为列表框添加三个选项:北京、上海、天津。再建立一个下拉菜单,菜单标题为“文件”,名称为File,此菜
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Forml、标题为“鼠标光标形状”的窗体上画一个名称为Textl的文本框。请通过属性窗口设置适当属性,使得程序运行时,鼠标在文本框巾时,鼠标光标为箭头(Arrow
(1)在考生文件夹下有一个工程文件sit3.vbp,窗体上有一个矩形和一个圆,还有垂直和水平滚动条各一个。程序运行时,移动某个滚动条的滚动块,可使圆做相应方向的移动。滚动条刻度值的范围是圆可以在矩形中移动的范围。以水平滚动条为例,滚动块在最左边时,圆靠在矩
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Forml标题为“选课”的窗体上画一个复选框数组,名称为CHl,共有四个复选框,按顺序其标题分别是“数学”、“语文”、“外语”、“计算机”,其中“语文”、“计算机
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Forml的窗体上画一个名称为Labell的标签,标签的宽和高分别为2000、300,有边框,并利用属性窗口设置适当的属性,使其居中显示“等级考试”,并使标签的外
请根据以下各小题的要求设计’VisualBasic应用程序(包括界面和代码)。(1)在名称为Forml、标题为“框架”的窗体上画一个名称为Framel,且没有标题的框架。框架内含有两个单选按钮,名称分别为Opt1和Opt2、标题分别为“字体”、“大小”
(1)考生文件夹下的工程文件sjt3.vbp中有一个初始内容:为空、且带有垂直滚动条的文本框,其名称为Text1;两个标题分别为“读数据”和“查找”的命令按钮,其名称分别:勾Cmd1、Cmd2。请画一个标题为“查找结果”的标签Label1,再画一个名称为T
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Forml的窗体上画两个文本框,其名称分别为Text1和Text2,内容分别为“文本框1”和“文本框2”,编写适当的事件过程。程序运行后,如果单击窗体,则Text
请根据以下各小题的要求设计VisuaIBasic应用程序(包括界面和代码)。(1)在名称为Forml的窗体上画一个文本框,名称为Textl,字体为“黑体”,文本框中的初始内容为“程序设计”;再画一个命令按钮,名称为C1,标题为“改变字体”(如图3—16
随机试题
运用实验法搜集数据时()。
Moviesusedtobeshowninanopenspaceinourtown,withaudience______onbenches,chairsorboxes.
A.脂/水分配系数与毒效应B.电离度与毒效应C.挥发度和蒸气压与毒效应D.绝对毒性和相对毒性与毒效应E.分散度与毒效应苯的沸点80.1℃,在常温下容易挥发,形成较大的蒸气压,易经呼吸道吸收()
下列可诊断为不孕症的是
外商投资的有限责任公司的股东首次出资额应当符合法律、行政法规的规定,其余部分应当自公司成立之日起2年内缴足,其中,投资公司可以在几年内缴足?()。
房屋租赁合同期限不得超过()年。
某企业本年度利润总额8万元,年末结账后资产总额22万元,负债总额8万元,资本公积2万元,盈余公积1万元,未分配利润1万元,则实收资本为()万元。
政府在对公共物品制定价格进行管理时,应遵循的原则有()。
实质性脏器破裂腹腔穿刺液的性质是()。
考生文件夹下存在一个数据库文件“samp2.accdb”,里面已经设计好“tStud”、“tCourse”、“tScore”三个关联表对象和一个空表“tTemp”。试按以下要求完成设计:创建一个查询,查找“02”院系的选课学生信息,输出其“姓名”、“课
最新回复
(
0
)