窗体上有名称分别为Text1、Text2的两个文本框,有一个由三个单选按钮构成的控件数组Option1,如图3所示。程序运行后,如果单击某个单选按钮,则执行Text1中的数值与该单选按钮所对应的运算(乘以1、10或100),并将结果显示在Text2中,如图4所示。为了实现上述功能,在程序中的问号()处应填入的内容是
Private Sub Option1_Click(Index As Integer)
If Text1.Text<>"" Then
Select Case
Case 0
Text2.Text=Val(Text1.Text)
Case 1
Text2.Text=Val(Text1.Text)*10
Case 2
Text2.Text=Val(Text1.Text)*100
End Select
End If
End Sub
参考答案:A
解析: 控件数组的名字由Name属性指定,而数组中的每个元素则由Index属性指定。因为一个控件数组的所有控件同名,这些控件共享相同的事件过程,为了在事件过程中区分控件数组中的各个元素,在执行控件数组相关过程时,Visual Basic把控件的下标值传送给过程,在过程内用下标值就很方便地分辨出是由哪个控件触发的事件。在建立控件数组时,Viscal Basic给每个元素一个下标值,通过属性窗口中的Index属性可以知道这个下标值是多少。
本题中第一个单选按钮的下标值为0,第二个单选按钮下标值为1,以此类推。不论单击哪一个单选按钮,都会调用Option1_Click事件过程,单选按钮的Index属性将传给Index形参,由它指明单击了哪个单选按钮。根据题意,应填Index。