首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹下有一个工程文件sj3.vbp,窗体中有两个图片框,名称分别为Pic1和Pic2,其中的图片分别是一个黑色正方形和一个红色长方形,还有一个计时器控件。名称为Timerl,一个命令按钮,名称为Conmmandl,标题为“出发”。窗体文件中给
(1)在考生文件夹下有一个工程文件sj3.vbp,窗体中有两个图片框,名称分别为Pic1和Pic2,其中的图片分别是一个黑色正方形和一个红色长方形,还有一个计时器控件。名称为Timerl,一个命令按钮,名称为Conmmandl,标题为“出发”。窗体文件中给
admin
2009-03-26
73
问题
(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全国计算机二级
相关试题推荐
在编写JavaApplet程序时,若需要对发生的事件作出响应和处理,一般需要在程序的开头写上()语句。
关系数据库管理系统能实现的专门关系运算包括()。
查找随机文件的记录时,应使用的方法是()。
下列叙述中正确的是()。
诊断和改正程序中错误的工作通常称为【】。
数据库管理系统是位于【】之间的软件系统。
在编写Java程序的时候,如果不为类的成员变量定义初始值,Java会给它们默认值,下列说法中不正确的一个是______。
下列常见的系统定义中的异常中,______是数组越界异常。
char类型的取值范围是()。
随机试题
简述外汇市场的分类。
甲公司与乙公司就某一合同纠纷进行仲裁,达成和解协议,向仲裁委员会申请撤回种裁申请。后乙公司未按和解协议履行其义务。甲公司应如何解决此纠纷?
下列关于土地供给的叙述,错误的是()。
箱涵顶进施工中,以下安全措施正确的是()。
导游存在下列()行为,情节严重需要对委派该导游的旅行社予以警告直至责令停业整顿。
秦汉以后,中央职官多为三省六部制,唐代诗人杜甫曾在______供职,而管理科举、学校等事务的则是______。
存款准备金
在Thumb指令集中,32位有效立即数是由8位立即数通过下面哪一种操作而间接得到的()。
Theworldisknowntousthroughmanysenses,notjusthearing,smell,vision,andatcloserange,touchandtaste.Ourskin
HowtoAssessaGraduateSchoolGeneralcriteriatofollowinchoosingapropergraduateschool:Reputation•examinewhethert
最新回复
(
0
)