首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在名称为Forml的窗体上画两个文本框,名称分别为Textl和Text2,初始情况下都没有内容。请编写适当的事件过程,使程序运行时,在Textl中输入字符的同时,Text2也立即显示出Textl中的字符,如图51—1所示。程序中不得使用任何变量。
(1)在名称为Forml的窗体上画两个文本框,名称分别为Textl和Text2,初始情况下都没有内容。请编写适当的事件过程,使程序运行时,在Textl中输入字符的同时,Text2也立即显示出Textl中的字符,如图51—1所示。程序中不得使用任何变量。
admin
2010-07-13
48
问题
(1)在名称为Forml的窗体上画两个文本框,名称分别为Textl和Text2,初始情况下都没有内容。请编写适当的事件过程,使程序运行时,在Textl中输入字符的同时,Text2也立即显示出Textl中的字符,如图51—1所示。程序中不得使用任何变量。
注意:存盘时必须存放在考生文件夹下,工程文件名为sjl.vbp,窗体文件名为sjl.frm。
(2)在名称为Forlml的窗体上画一个图片框,名称为Picl;再画一个命令按钮,名称为Commandl、标题为“置顶”,程序运行时的窗体界面如图51—2所示。请编写适当的事件过程,使运行界面在运行时单击“置顶”按钮,则图片框垂直移动到窗体的最顶端,如图51—3所示。程序中不得使用任何变量。
注意:存盘时必须存放在考生文件夹下,工程文件名为sj2.vbp,窗体文件名为sj2.frm。
选项
答案
(1)文本框的文本内容由Text属性设置。题目要求在Textl中输入任何字符时,立即在Text2中显示,这就触发了文本框的Change事件。 根据题意,新建“标准EXE”工程,将两个文本框控件添加到窗体中,名称分别为Textl和Text2、Caption属性都为空。双击Textl进人代码编写窗口,补充后的代码如下: Private Sub Textl_Change() Text2.Text=Textl.Text End Sub 单击[*]按钮运行程序,并按要求保存。 (2)本题考查控件位置的改变,控件的位置由控件的Left属性和Top属性决定,Left属性表示控件与所在窗体的左边之间的距离,Top属性表示控件与所在窗体的顶边之间的距离。 根据题意,新建“标准EXE”工程,将一个PictureBox控件和一个命令按钮添加到窗体中,PictureBox的名称为Picl,命令按钮的名称为Commandl、Caption属性为“置顶”。双击Commandl进入代码窗口,补充如下代码: Private Sub Commandl_Click() Picl.Top=0 End Sub 单击[*]按钮运行程序,并按要求保存。
解析
转载请注明原文地址:https://kaotiyun.com/show/0Gmp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
假设a是int类型的变量,并初始化为1,则下列选项中合法的条件语句是( )。
关系模型允许定义三类数据约束,下列不属于数据约束的是( )。
Java语言中的【】是程序的基本单位。
数据结构包括数据的逻辑结构、数据的【】以及对数据的操作运算。
下面程序段的输出结果是( )。publicclassTest{publicstaticvoidmain(String[]args){intj=2,i=5;whi
下列四个选项中,均是合法整型常量的是( )。
调用以下哪些方法可以使运行状态的线程进入阻塞状态?( )
在进行模块测试时,要为每个被测试的模块另外设计两类模块:驱动模块和承接模块,其中______的作用是将测试数据传送给被测试的模块,并显示被测试模块所产生的结果。
在软件生命周期中,能准确地确定软件系统必须做什么和必须具备哪些功能的阶段是______。
随机试题
消费者选择“弹性信贷”时,首付款不得低于车价的_______。
数据对象就是数据元素的集合。()
心理卫生这个词所包含的范畴有
A、醋酸可的松微晶25gB、氯化钠3gC、聚山梨酯801.5gD、羧甲基纤维素钠5gE、硫柳汞0.01g注射用水加至1000ml润湿剂()。
与传统教学方法相比,现代教学提倡()
斯巴达教育要把氏族贵族子弟训练成为()
土地承包经营权的设立时间是()
计算机硬件能直接执行的语言是()。
一台交换机具有12个10/100Mbps电端口和2个1000Mbps光端口,如果所有端口都工作在全双工状态,那么交换机总带宽应为()。
Afterreachingits【21】in1990s,journalismseemstobecastinbleakandgrimprospects.Weareenduringtheworst【22】intheadv
最新回复
(
0
)