在考生文件夹下有一个工程文件stj3.vbp，相应的窗体文件为stj3.frm。在窗体上有一个名称为Command1、标题为“计算”的命令按钮；两个水平滚动条，名称分别为Hscroll1和Hscroll2，其Max属性均为100，Min属性均为1；四个标签，名称分别为Lable1、Lable2、Lable3和Lable4，标题分别为“运算数1”、“运算数2”、“运算数结果”和空白；此外还有一个包含有四个单选按钮的控件数组，名称为Option1，标题分别为“+”、“-”、“*”、“/”，如图所示。程序运行后，移动两个滚动条中的滚动框，用滚动条的当前值作为运算数，如果选中一个单选按钮，然后单击命令按钮，相应的计算结果将显示在Lable4中，程序运行情况如图所示。这个程序不完整，请把它补充完整，并能正确运行。
试题源程序：
1 Private Sub Command1_Click( )
2 For i=0 To 3
3 If =True Then
4 opt=Option1(i).Caption
5 End If
6 Next
7 Select Case
8 Case "+"
9 Result=HScroll1.Value+HScroll2.Value
10 Case "-"
11 Result=HScroll1.Value-HScroll2 Value
12 Case "*"
13 Result=HScroll1.Value*HScroll2.Value
14 Case "/"
15 Result=HScroll1.Value/HScroll2.Value
16 End Select
17 Label4.Caption=Str(HScroll1.Value) &" "&opt&Str(RScroll2.Value) & "=" & Str(Result)
18 End Sub
参考答案：
(1)启动VB程序，打开考生文件夹下的工程文件stj3.vbp。
(2)双击窗体的任意位置，进入代码编辑窗口，完善程序如下：
1 Private Sub Command1_Click( )
2 For i=0 To 3
3 If Option1(i)．Value=True
Then
i. opt=Option1(i)．Caption
4 End If
5 Next
6 Select Case opt
7 Case "+"
8 Result =HScroll1.Value +HScroll2.Value
9 Case "-"
10 Result= HScroll1.ValueHScroll2.Value
11 Case "*"
12 Result=HScroll1.7alue *HScroll2.Value
13 Case "/"
14 Result=HScroll1.Value/HScroll2.Value
15 End Select
16 Label4，Caption = Str(HScroll1.Value) & "" & opt &Str(HScroll2.Value) & "=" &Str(Result)
17 End Sub
(3)单击启动键运行成功，按考试要求将文件保存在考生文件夹下。
解析：
(1)OptionButton控件的Value属性，返回或设置控件的状态，True表示已选择了该按钮；False(缺省值)表示没有选择该按钮。
所以第一个和处应为：Option(i).Value=True表示选中Option(i)按钮。
(2)Select Case语句：根据表达式的值执行几组语句之一。
语法：
Select Case测试表达式
Case表达式列表1
[语句块1]……
Case表达式列表2
[语句块2]……
Case Else
[语句块n]……
End Select
本题要根据所选的单选按钮进行相应的计算，所以第二个处应为：opt
要考生引起注意的是，滚动条的Value值是一个数值类型，所以我们可以用来直接做数学运算，而标签的Caption值是一个字符串类型的，故在最后将计算结果在标签上显示出来时，需要用Str( )函数将计算结果转换为字符串类型。