在考生文件夹下有一个工程文件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