[问答题] 在考生文件夹下有一个工程文件stj3.vbp,相应的窗体文件为stj3.frm。在窗体上有一个名称为Command1、标题为“计算”的命令按钮;两个

13 查阅

[问答题] 在考生文件夹下有一个工程文件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 C

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

计算机考试