2. 计算机
  3. 注意：下面出现的“考生文件夹”均为c：\wexam\25160001。 (1) 在考生文件夹下有一个工程文件sjt3.vbp，窗体中有两个图片框?名称分别为P1和P2，其中的图片分别是一个航天器和一朵云，还有一个计时器控件，名称为Timer1，一个命

注意：下面出现的“考生文件夹”均为c：\wexam\25160001。 (1) 在考生文件夹下有一个工程文件sjt3.vbp，窗体中有两个图片框?名称分别为P1和P2，其中的图片分别是一个航天器和一朵云，还有一个计时器控件，名称为Timer1，一个命

admin2009-02-25  47
问题 注意：下面出现的“考生文件夹”均为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://www.kaotiyun.com/show/Zh1p777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)