首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹下有一个工程文件sj3.vbp,窗体中有两个图片框,名称分别为Pic1和Pic2,其中的图片分别是一个黑色正方形和一个红色长方形,还有一个计时器控件。名称为Timerl,一个命令按钮,名称为Conmmandl,标题为“出发”。窗体文件中给
(1)在考生文件夹下有一个工程文件sj3.vbp,窗体中有两个图片框,名称分别为Pic1和Pic2,其中的图片分别是一个黑色正方形和一个红色长方形,还有一个计时器控件。名称为Timerl,一个命令按钮,名称为Conmmandl,标题为“出发”。窗体文件中给
admin
2009-03-26
80
问题
(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全国计算机二级
相关试题推荐
【】布局管理器能够帮助用户处理两个以至更多的成员共享同一显示空间。
如果创建的一个子类覆盖一个public方法,则对该方法可以使用哪些修饰符()
数据库的设计通常可以分为4个步骤;需求分析、概念设计、【】和物理设计。
在面向对象方法中,类之间共享属性和操作的机制称为【】。
已知;1Stringinput=JoptionPane.showInputDialog("Whatsyourname?");2intage=Integer.parseIntln(input);语句2所起的
下列命令中,以下哪个命令能为远程对象生成stub和skeleton
有一个学生选课的关系,其中学生的关系模式为:学生(学号,姓名,班级,年龄),课程的关系模式为:课程(课号,课程名,学时),其中两个关系模式的键分别是学号和课号,则关系模式选课可定义为:选课(学号,______,成绩)。
容器Panel和Applet默认使用的布局编辑策略是()。
Char类型的取值范围是()。
随机试题
A.甲状腺乳头状癌B.甲状腺滤泡状癌C.甲状腺髓样癌D.甲状腺未分化癌甲状腺癌中发展最快,预后最差的是
院前急救人员应熟练掌握以下哪项技术
患者,男性,58岁,因牙周炎拔除全部余留松动牙,拔牙后半个月即做了全口义齿修复。戴牙后半年,因进食时食物塞人基托组织面无法忍受而就诊。进食时食物塞入基托与黏膜间的原因是
肺脓肿的临床特点,下列哪项不恰当
设立公司时应当先向公司登记机关申请公司名称的预先核准。远大公司的5家发起人应依法从事以下哪些行为?()。为贯彻公平、公开、公正的原则,以募集方式设立的远大股份有限公司之发起人,必须依.法制作招股说明书。下列事项中属于招股说明书上必须记载的有(
在欧美银行,营销管理人员通常要进行为期()的培训。
我国企业所得税的税收优惠形式包括()。(2013年)
Theroleofgovernmentsinenvironmentalmanagementisdifficultbutinescapable.Sometimes,thestatetriestomanagetheresou
Georgeboughtaticketfor$30andgotonthetrain.George______$30foraticketbeforehegotonthetrain.
A、Themancanstayinherbrother’sapartment.B、Herbrothercanhelpthemanfindacheaperhotel.C、Herbrothercanfindanap
最新回复
(
0
)