首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
注意:下面出现的“考生文件夹”均为c:\wexam\25160001。 (1) 在考生文件夹下有一个工程文件sjt3.vbp,窗体中有两个图片框?名称分别为P1和P2,其中的图片分别是一个航天器和一朵云,还有一个计时器控件,名称为Timer1,一个命
注意:下面出现的“考生文件夹”均为c:\wexam\25160001。 (1) 在考生文件夹下有一个工程文件sjt3.vbp,窗体中有两个图片框?名称分别为P1和P2,其中的图片分别是一个航天器和一朵云,还有一个计时器控件,名称为Timer1,一个命
admin
2009-02-25
45
问题
注意:下面出现的“考生文件夹”均为c:\wexam\25160001。
(1) 在考生文件夹下有一个工程文件sjt3.vbp,窗体中有两个图片框?名称分别为P1和P2,其中的图片分别是一个航天器和一朵云,还有一个计时器控件,名称为Timer1,一个命令按钮,名称为C1,标题为“发射”。窗体文件中给出了两个事件过程,但并不完整,要求:设置计时器控件的属性,使其在初始状态下不计时;设置计时器的属性,使其每隔0.1秒调用Timer事件过程一次。
去掉程序中的注释符,把程序中的?改为正确的内容,使得在运行时单击“发射”按钮,则航天飞机每隔0.1秒向上移动一次,当到达P2的下方时停止移动。程序运行界面如图20-3所示。
注意:不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。
(2) 在考生文件夹下有一个工程文件sjt4.vbp,窗体上已经有两个文本框,名称分别为Text1和Text2;一个命令按钮,名称为C1,标题为“确定”。请画两个单选按钮,名称分别为Op1和Op2,标题分别为“男生”和“女生”;再画两个复选框,名称分别为Ch1和Ch2,标题分别为“体育”和“音乐”。请编写适当的事件过程,使得在运行时,单击“确定”按钮后实现下面的要求:
根据选中的单选按钮,在Text1中显示“我是男生”或“我是女生”;根据选中的复选框,在Text2中显示“我的爱好是体育”或“我的爱好是音乐”或“我的爱好是体育音乐”。程序运行界面如图20-4所示。
注意:不得修改已经给出的程序和已有控件的属性。在结束程序运行之前,必须选中一个单选按钮和至少一个复选框,并单击“确定”按钮。必须使用窗体右上角的关闭按钮结束程序,否则无成绩。
选项
答案
控件已经建立完好,只需设计事件过程即可。 Timer1控件的Interval属性是用来控制计时器事件发生的时间间隔,通过题意可知该属性设置为100(Interval是以毫秒为单位)。当单击“发射”按钮时开始计时,把计时器控件的Enabled属性设置为True。如果使航天器即P1停止移动,需要将计时器控件的Enagled属性设置为False。解题步骤: 第一步:建立界面并设置控件属性。程序用到的控件及其属性见表20-3。 [*] 第二步:编写程序代码。 程序提供的代码: Private Sub C1_Click() ’ Timer1.Enabled= End Sub Private Sub Timer1_Timer() Static a% a=a+1 ’ If P1.Top>P2.Top+P2.? Then P1.Move P1.Left, P1.Top-5-a, P1.Width, P1.Height Else ’ Timer1.?=False End If End Sub 参考代码: Private Sub C1_Click() Timer1.Enabled=True End Sub Private Sub Timer1_Timer() Static a% a=a+1 If P1.Top>P2.Top+P2.Height Then P1.Move P1.Left, P1.Top-5-a, P1.Width, P1.Height Else Timer1.Enabled=False End If End Sub 第三步:调试并运行程序。 第四步:按题目要求存盘。 (2)在窗体上建立好控件后,先设置控件属性,再编写事件过程。 在文本框里显示的内容通过文本框的Text属性设置。Value属性用来表示复选框后单选框的状态。对于单选框来说,Value属性可设置为True或False当设置为True时,该单选按钮是被选中的,否则该单选按钮没有被选中。对于复选框来说,Value属性可以设置为0、1或2。其中:0—表示没有选中该复选框;1—表示选中该复选框;2—表示该复选框被禁止(灰色)。解题步骤: 第一步:建立界面并设置控件属性。程序中用到的控件及其属性见表20-4。 [*] 第二步:编写程序代码。 参考代码: 程序提供的代码: Private Sub Form_Unload(Cancel As Integer) Open "out4.txt" For Output As #1 Print #1, Op1.Value, Op2.Value, Text1.Text Print #1, Ch1.Value, Ch2.Value, Text2.Text Close #1 End Sub 参考代码: Private Sub C1_Click() If Op1.Value Then Text1.Text="我是" & Op1.Caption Else Text1.Text="我市" & Op2.Caption End If Text2.Text="我的爱好是" If Ch1.Value=1 Then Text2.Text=Text2.Text & Ch1.Caption End If If Ch2.Value=1 Then Text2.Text=Text2.Text & Ch2.Caption End If End Sub Private Sub Form Unload(Cancel As Integer) Open "out4.txt" For Output As #1 Print #1, Op1.Value, Op2.Value, Text1.Text Print #1, Ch1.Value, Ch2.Value, Text2.Text Close #1 End Sub 第三步:调试并运行程序。 第四步:按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/Zh1p777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下面不属于软件设计原则的是
下面程序段的输出结果是【】。publicclassTest{publicstaticvoidmain(Stringargs[]){inti=1;switch(i){case
在数据库逻辑结构的设计中,将E-R模型转换为关系模型应遵循相关原则。对于3个不同实体集和它们之间的多对多联系m:n:p,最少可转换为【】个关系模式。
下列关于Java简单数据类型的说法中,不正确的是()。
若想在程序中使用JLabel类,则该程序可以使用import【】JLabel;语句引入JLabel类。
下列选项中不属于软件生命周期开发阶段任务的是
如果一个JavaApplet源程序文件只定义一个类,该类的名称为MyFirstApplet,则存储该源程序文件的文件名必须为MyFirstApplet.java,那么编译该程序文件将产生的字节码文件名为【】。
若a=12,b=14,c=0,则表达式((y=(a>B)?a:B)>C)?y:c的值为【】。
Java源程序是由类定义组成的,每个程序中可以定义若干个类,但是只有一个类是主类。在JavaApplication中,这个主类是指包含【】方法的类;在JavaApplet里,这个主类是一个系统类Applet的子类。
Mid("HelloEveryone",7,3)的执行结果是()。
随机试题
PowerPoim2010中,在视图间进行切换可用两种方法,第一种方法是通过“视图”选项卡进行,第二种方法是通过视图切换按钮进行。
We’llvisitEuropenextyear_________wehaveenoughmoney.
某物质被肾小球自由滤过后,又全部被肾小管重吸收,其血浆清除率
甲、乙、丙三人共同抢劫案,一审判决后,甲对一审判决提出上诉后突然死亡,乙也提起了上诉,丙未提出上诉,二审法院开庭审理了此案。请根据本案回答下列问题:下列本案二审审理程序中的一些做法,符合法律规定的有:()
在双重顶反转突破形态中,颈线是()。
市场约束的核心是()
()是指渠道中的影响者能对受影响者施加惩罚的能力。
《工部工程做法则例》是一部各类建筑做法的著作,颁布于()。
在教鸟的概念时,列举“鸡、鸭、鹅”等,是恰当运用了()
地区之间如发生水事纠纷应当怎样处理?
最新回复
(
0
)