首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
新建一个工程。在窗体中画两个文本框,名称分别为Textl和Text2,没有初始内容。建立一个下拉菜单,标题为“操作”。该菜单有两个菜单项,名称分别为item1和item2,标题分别为Copy和Clear。编写一个事件过程,程序运行后,单击Copy菜单项,则
新建一个工程。在窗体中画两个文本框,名称分别为Textl和Text2,没有初始内容。建立一个下拉菜单,标题为“操作”。该菜单有两个菜单项,名称分别为item1和item2,标题分别为Copy和Clear。编写一个事件过程,程序运行后,单击Copy菜单项,则
admin
2009-03-17
45
问题
新建一个工程。在窗体中画两个文本框,名称分别为Textl和Text2,没有初始内容。建立一个下拉菜单,标题为“操作”。该菜单有两个菜单项,名称分别为item1和item2,标题分别为Copy和Clear。编写一个事件过程,程序运行后,单击Copy菜单项,则把Text1中的内容复制到Text2中;单击Clear菜单项,则清除Text1和Text2内容。如图15所示。程序中不得使用任何变量。
注意:存盘时必须存放在考生文件夹下,工程文件名为ylc3.vbp,窗体文件名为ylc3.frm.
选项
答案
Visual Basic集成环境中,执行“文件”→“新建工程”命令,选择“标准Exe”。创建窗体Form1。 (2)在工具箱中选择文本框控件,在窗体上创建两个文本框,名称分别为Text1和Text2。 (3)单击工具栏中的按钮,进入菜单编辑器。如图32所示。 (4)在菜单编辑器中分别填入标题和名称。单击:下一个”按钮建立下一个菜单,单击将该菜单设置为下级菜单。选中后输入标题和名称。全部设置完毕后 选择“确定”。 (5)选择Clear对象添加以下代码: Private Sub Clear_Click(index As Integer) Text1.Text=" " Text2.Text=" " End Sub 选择Copy对象,添加以下代码: Private Sub Copy_Click(index As Integer) Text2.Text=Text1.Text End Sub [*] (6)按F5键运行程序。如图15所示。 (7)执行“文件”→“保存工程”命令,将工程文件命名为ylc3.vbp,窗体文件命名为ylc3.frm。
解析
(3)第3小题中主要考查了对菜单编辑器的使用,包括设置菜单的属性与对菜单的Click事件的处理。
转载请注明原文地址:https://kaotiyun.com/show/Dj1p777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
Swing允许按自己的要求选择组件的外观和感觉,Swing是通过哪一方法实现该功能的?()
下面哪条语句在编译时不会出现错误或警告()。
下列关于线性表叙述不正确的是()。
阅读下面代码:importjava.awt.*;publicclassExam11_1{privateFramef;privateButtonbl,b2,b3,b4;publicsta
在一个有n个元素的顺序表的第i个元素(1≤i≤n)之前插入一个新元素时,需要向后移动【】个元素。
数据库设计有两种方法,它们是()。
和AWT有关的所有事件类都是从类()派生而来。
强行排错法涉及的调试技术主要是【】和监视表达式。
某二叉树有5个度为2的结点,则该二叉树中的叶子结点数是()。
一棵二叉树第六层(根结点为第一层)的结点数最多为【】个。
随机试题
足月正常产日龄20天男性新生儿,被抱到急诊室,表现呼吸急促,口周发绀,轻度鼻扇及三凹征,诊断新生儿肺炎。病史中最有可能出现的症状是
肱骨内上髁后方的一浅沟是
男性,8岁。额部多发性疖肿,未治红肿,扩大,弛张性高热,4天后,臀部皮下又发现一块肿块,疼痛,压痛明显,且有波动感。该病属于
哥特建筑结构的成就主要是采用了以下什么系统?()
第四方物流最初由美国埃森哲咨询公司于______年提出。
根据《中华人民共和国反不正当竞争法》的规定,下列哪一行为属于不正当竞争行为中的混淆行为?()
此次金融危机之所以会蔓延到全球,很大程度上是因为各个经济体都经历了6~7年的金融规模超常扩张、金融创新及其金融衍生品空前发展的“经济繁荣”时期。在这一模式下,各种资产价格都被不断地非理性地推高。治理危机关键要让曾经被炒作到高价格的各种资产,回归到其合理的价
在关系运算中,查找满足一定条件的元组的运算称之为【】。
数据库设计的4个阶段是:需求分析、概念设计、逻辑设计和
Youwillhearaconversationbetweenainterviewerandamanwhoishuntingajob.Foreachquestion(23-30),markoneletter(A,
最新回复
(
0
)