首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹下有一个工程文件sj3.vbp,窗体中有两个图片框,名称分别为Pic1和Pic2,其中的图片分别是一个黑色正方形和一个红色长方形,还有一个计时器控件。名称为Timerl,一个命令按钮,名称为Conmmandl,标题为“出发”。窗体文件中给
(1)在考生文件夹下有一个工程文件sj3.vbp,窗体中有两个图片框,名称分别为Pic1和Pic2,其中的图片分别是一个黑色正方形和一个红色长方形,还有一个计时器控件。名称为Timerl,一个命令按钮,名称为Conmmandl,标题为“出发”。窗体文件中给
admin
2009-03-26
65
问题
(1)在考生文件夹下有一个工程文件sj3.vbp,窗体中有两个图片框,名称分别为Pic1和Pic2,其中的图片分别是一个黑色正方形和一个红色长方形,还有一个计时器控件。名称为Timerl,一个命令按钮,名称为Conmmandl,标题为“出发”。窗体文件中给出了两个事件过程,但并不完整,要求设置计时器控件的属性,使其在初始状态下不计时;设置计时器的属性,使其每隔1秒调用17imer事件过程一次。去掉程序中的注释符“’”,把程序中的“?”改为正确的内容,使得程序在运行时单击“出发”按钮,则黑色正方形每隔1秒向右移动一次,当到达Pic2的左边时停止移动。程序运行时的窗体界面如图25—3所示。
注意:不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。
(2)在考生文件夹下有一个工程文件sj4.vbp,窗体上已经有一个文本框,名称为Textl;一个命令按钮,名称为Coimmandl、标题为“输出”。请画两个单选按钮,名称分别为Optionl和Option2,标题分别为“Iteml”和“1tem2”;再画两个复选框,名称分别为Checkl和Check2,标题分别为“Item3”和“Item4”。请编写适当的事件过程,使得在运行时,单击“输出”按钮后实现下面的要求:
根据选中的单选按钮和选中的复选框,在,Textl中显示“Item1包含Itera3”或“Item2包含1tem3和1tem4”等,如图25—4所示。
注意:不得修改已经给出的程序和已有控件的属性。在结束程序运行之前,必须选中一个单选按钮和至少一个复选框,并单击“输出”按钮。必须使用窗体右上角的关闭按钮结束程序,否则无成绩。
选项
答案
(1)计时器控件的Interval属性是用来控制计时器事件发生的时间间隔,通过题意可知该属性应设置为1 000(Interval是以毫秒为单位)。当单击“出发”按钮时开始计时,把计时器控件的Enabled属性设置为True。 根据题意,将两个图片控件、一个计时器控件和一个命令按钮添加到窗体中,Picture的名称为Picl和Pic2,Pic1的背景色为黑色,Pic2的背景色为红色,计时器的Interval属性为1 000,名称为Timerl,Enable属性为False,命令按钮的名称为Commandl,Caption属性为“出发”,双击Commandl进入代码窗口,补充后的具体代码如下: Private Sub Command1_Click() Timerl.
Enabled
=True End Sub Private Sub Timerl_Timer() Dim sp As Integer sp=200 ’运动速度 If Picl.
Left
+Picl.
Width
>=Pic2.
Left
Then sp=0 End If Picl.
Left
=Picl.
Left
+sp’Picl的位置变化 End Sub 单击[*]按钮运行程序,并按要求保存。 (2)在文本框中显示的内容通过文本框的Text属性设置。复选按钮和单选按钮的状态用Value属性来表示。对于单选按钮来说,Value属性可设置为True或False,当设置为True时表示被选中的,否则表示没有选中。对于复选按钮来说,Value属性可以设置为0、1或2。其中:0表示没有选中该复选按钮;1表示选中该复选按钮;2表示该复选按钮被禁止(灰色)。 根据题意,将两个单选按钮控件、两个复选按钮、一个文本框控件和一个命令按钮添加到窗体中,单选按钮的名称分别为Optionl和Option2、Caption属性为“Iteml”和“Item2”,复选按钮的名称分别为Checkl和Check2,Caption属性分别为“Item3”和“Item4”,文本框的名称为Textl、Caption属性为空,命令按钮的名称为Commandl、Caption属性为“输出”。双击Commandl进入代码编写窗IZl,利用字符串相加和If—else语句设计程序,具体代码如下: Private Sub Commandl_Click() Dim str As String Dim trnp As String str="" If Optionl.
Value
=True Then’选中Optionl str=str+"Iteml包括" Else’选中Option2 str=str+"Item2包括" End If If
Checkl.Value
=0 Then’没选中Checkl If Check2.
Value
=1 Then ’选中Cheek2 tmp=Check2.
Caption
str=str+tmp End If Else’选中Checkl If
Check2.Value
=0 Then ’没选中Check2 tmp=Checkl.
Caption
str=str+trap Else’选Check2 tmp=Checkl.Caption str=str+tmp str=str+"和" tmp=Check2.
Caption
str=str+tmp End If End If Textl.
Text
=str End Sub 单击[*]按钮运行程序,并按要求保存。
解析
转载请注明原文地址:https://kaotiyun.com/show/9V1p777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列关于类型转换的说法中,正确的是()。
char类型的取值范围是()。
Java程序的执行过程中用到一套JDK工具,其中javadoc.exe是指()
一些重要的程序语言(如C语言和Pascal语言)允许过程的递归调用。而实现递归调用中的存储分配通常用()
创建图形用户界面韵步骤是先创建代表图形化用户界面容器,再添加需要的组件,创建需要的接口,然后创建【】,并建立它和所对应的接口组件之间的联系,使得接口可以接纳用户事件。
变量属性是描述变量的作用域,按作用域分类,变量有局部变量、类变量、方法参数和【】。
在面向对象方法中,允许作用于某个对象上的操作称为 【】 。
用鼠标点击菜单项(Menultem)产生的事件是()。
使得线程放弃当前分得的CPU时间,但不使线程阻塞,即线程仍处于可执行状态,随时可能再次分得CPU时间的方法是【】。
下列哪一个选项是short型数据的取值范围?
随机试题
()是决定当代中国命运的关键抉择,是党和人民事业大踏步赶上时代的重要法宝。
目前我国的家长学校工作由()共同牵头进行指导管理。
根据我国《刑法》第338条的规定,构成污染环境罪,后果特别严重的【】
下列疾病中通过骨髓涂片细胞形态学检查不能确诊的是
客户下达的交易指令数量和买卖方向明确,下列说法正确的是()。
【2015农业银行】Ithink$7foradrinkisabitsteep,don’tyou?
有的人善于写作,有的人善于推理,有的人善于运算,这说明人的心理发展具有()。
A、 B、 C、 D、 D每个图比前一个图多一横一竖。
三十六计是根据我国古代卓越的军事思想和丰富的斗争经验总结出来的三十六条谋略,在我国军事史上得到了充分的验证。下列战役中成功运用三十六计中以逸待劳之计的是:
Thestudyofhowsoundsareputtogetherandusedtoconveymeaningincommunicationis______.
最新回复
(
0
)