[问答题] 在考生文件夹下有一个工程文件stj3.vbp，相应的窗体文件为stj3.frm。在窗体上有一个名称为Command1、标题为“计算”的命令按钮；两个水平滚动条，名称分别为Hscroll1和

[问答题] 在考生文件夹下有一个工程文件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 33 If =True Then4 opt=Option1(i).Caption5 End If6 Next7 Select Case8 Case "+"9 Result=HScroll1.Value+HScroll2.Value10 Case "-"11 Result=HScroll1.Value-HScroll2 Value12 Case "*"13 Result=HScroll1.Value*HScroll2.Value14 Case "/"15 Result=HScroll1.Value/HScroll2.Value16 End Select17 Label4.

参考答案：

(1)启动VB程序，打开考生文件夹下的工程文件stj3.vbp。(2)双击窗体的任意位置，进入代码编辑窗口，完善程序如下：1 Private Sub Command1_Click( )2 For i=0 To 33 If Option1(i)．Value=TrueTheni. opt=Option1(i)．Caption4 End If5 Next6 Select Case opt7 Case "+"8 Result =HScroll1.Value +HScroll2.Value9 Case "-"10 Result= HScroll1.ValueHScroll2.Value11 Case "*"12 Result=HScroll1.7alue *HScroll2.Value13 Case "/"14 Result=HScroll1.Value/HScroll2.Value15 End Select16 Label4，Caption = Str(HScroll1.Value) & "" & opt &Str(HScroll2.Value) & "=" &Str(Result)17 End Sub(3)单击启动键运行成功，按考试要求将文件保存在考生文件夹下。所以第一个和处应为：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( )函数将计算结果转换为字符串类型。

问题解析:

(1)OptionButton控件的Value属性，返回或设置控件的状态，True表示已选择了该按钮；False(缺省值)表示没有选择该按钮。