请根据图2-15和图2-16的显示效果和【Visual Basic程序】,将表2-15中窗体对象、单选按钮控件数组对象的(1)~(3)空缺处的属性值填写完整。 请根据【说明】和图2-15和图2-16的显示效果,将【Visual Basic程序】中(4)~

admin2009-02-15  37

问题 请根据图2-15和图2-16的显示效果和【Visual Basic程序】,将表2-15中窗体对象、单选按钮控件数组对象的(1)~(3)空缺处的属性值填写完整。
请根据【说明】和图2-15和图2-16的显示效果,将【Visual Basic程序】中(4)~(9)空缺处的程序语句填写完整。

选项

答案(4)tname(9) (5)optPicture(i).Value=False (6)Next i或其他等价语句 (7)True (8)tname(Index) (9)lblAnswer.Caption=lblTest.Caption或其他等价语句

解析 语句“Dim。(4)  As String”用于定义窗体级字符型数组。可根据图2-15(或图2-16)中交通禁令标志图的个数,以及“tname(0)="禁止向左向右转弯"、tname(1)="禁止直行和向右转弯道"…… tname(9)="禁止车辆临时或长时停放"”等信息来定义数组的大小,即(4)空缺处的所填写的内容是“tname(9)”。
   【Visual Basic程序】中,Form_Load()是窗体的装载事件过程程序,cmdTest_Click()是【测试】按钮的单击事件过程程序,optPicture_Click()是单击单选按钮控件数组元素的代码。
   在Visual Basic中,For循环语句遵循的语法格式如下。
   For <循环变量>=<初值> TO <终值> [Step步长]
   <循环体>
   [Exit For]
   Next <循环变量>
   当循环变量的值在初值到终值范围内时,执行一次循环体中的语句块,并使初值增加一个步长。当循环变量的值不在初值到终值范围内时,就退出循环,执行Next后面的语句。其中,For语句也称为循环说明语句,用来指定循环变量的名称,以及循环变量的初值、终值和步长;循环体是被反复执行的部分(即循环工作部分),它可以由若干条语句所组成。
   Next是循环终端语句,其作用是改变循环变量的值(即增加一个步长)并控制是否再次执行循环体。在Next后面的循习;变量与For语句中的循环变量必须相同。当只有一层循环时,Next后面的循环变量可以省略。因此,在窗体装载事件Form_Load()中,由语句“Fori=0 To 9”可知,(6)空缺处所填写的语句是“Next i”或其他等价语句。
   由控件数组的基本概念可知,单选按钮控件数组(optPicture)通过Index属性区分各个控件,即 optPicture(0)、optPicture(1)、…optPicture(9)。参照窗体装载事件Form_Load()中,各单选按钮控件变量的赋值语句“optPicture(i).Value=False”。在【测试】按钮中单击事件cmdTest_Click(),各单选按钮控件变量的值也应为“False”,即(5)空缺处的所填写的语句是“optPicture(i).Value=False”。
   在窗体中装载事件Form Load()和【测试】按钮的单击事件cmdTest_Click()中,“lblAnswer.Visible”的属性值均为“False”,即在窗体装载事件和单击【测试】按钮时,控件数组单选按钮的值不显示。而在单击控件数组中某个单选按钮后,将触发optPicture_Click()事件。在optPicture_Click()事件中,语句“lblPrompt2.Visible=True”将使图2-15(或图2-16)中显示出“图片答案:”等结果提示信息,语句“lblEvaluate.Visible=True”将使图2-15(或图2-16)中显示出“恭喜你!回答正确!”或“很遗憾,回答错误。”等结果提示信息。
   根据图2-15或图2-16的显示结果可知,“lblAnswer.Visible”的属性值应设置为“Tree”,使得单击控件数组中某个单选按钮后,该单选按钮的值显示出来,即(7)空缺处的属性值均为“True”。而该单选按钮的值可以通过tname(1ndex)获取,因此“lblAnswer.Caption”的属性值应设置为“tname(Index)”,即(8)空缺处的所填写的内容是“tname(Index)”。其中,“Index”也可由“optPicture_Click(Index As Integer)”中得到启发。
   (9)空缺处所在的“IF Then...ELSE...END IF”语句,通过判断系统随机给出的“禁令标志”值与用户所单击的那个单选按钮的值是否相同这一条件,从而为“lblEvaluate.Caption”和“lblEvaluate.Fore Color”赋予不同的属性值。根据(8)空缺处推理可得语句“lblAnswer.Caption=tname(Index)”,以及【测d试】按钮单击事件cmdTest_Click()中的语句“lblTest.Caption=tname(i)”可知,(9)空缺处的判断条件是“lblAnswer.Caption=lblTest.Caption”或其他等价语句。Rnd是由计算机产生的均匀分布在(0,1)区间内的伪随机数。每调用一次Rnd就会产生一个新的随机数。在cmdTest_Click()事件中,语句“i=Int(Rnd *10)”用于随机生成一个0~9之间的整数。
   另外说明一点,本案例的实践操作步骤如下。
   1)设计用户界面。其中,添加控件数组的方法是:先画出第1个控件,设置其属性:然后通过复制的方法画第2~9个控件,并设置相同的名称属性。
   2)定义窗体级字符型数组,即Dim tname(9)As String。
   3)编写窗体的装载事件Form_Load()的过程代码。
   4)编写【测试】按钮的单击事件cmdTest_Click()的过程代码。
   5)编写单击单选按钮控件数组元素optPicture_Click(Index As Integer)的过程代码。
转载请注明原文地址:https://kaotiyun.com/show/HojZ777K
0

最新回复(0)