Question

vb做计算机这步有什么问题？If Option1.Value = True Then

全部代码在：Private Sub Command1_Click()
For i = 1 To 4
If Option1.Value = True Then
opt = Option1(i).Caption
End If
Next
Select Case opt
Case "+"
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
Case "-"
Text3.Text = Val(Text1.Text) - Val(Text2.Text)
Case "×"
Text3.Text = Val(Text1.Text) * Val(Text2.Text)
Case "÷"
Text3.Text = Val(Text1.Text) / Val(Text2.Text)
End Select

End Sub

Answer 1

If Option1.Value = True Then'问题出在这里 你的循环里面意思是表达 Option1 中的数组,

Option1 创建数组解决方法:
先腊瞎画一个 Option1 然后复制这脊局陆个Option1 然后 粘贴 粘贴3次 就会产生4个Option1 数组了
粘贴过程中问你是否要创建Option1 数组 点 是,

然后你点第一个Option1 看下他的属性值的名称 是不是显示 Option1(0) 了?

完成以上步骤樱顷后,
'把 If Option1.Value = True Then 这句改成
If Option1(i).Value = True Then'

Answer 2

If Option1(i).Value = True Then
应该是这个吧，控件数组直接掘御引用是不行旅唤的拆散凯