vb option 数组index算术练习软件的问题

来源：百度知道 编辑：UC知道 时间：2024/05/11 12:31:22
是这样的option1数组 共4个 分别是加减乘除
label1 label2分别显示随机数a b
text输入答案
两个command 一个出题一个提交答案 提交需要判断答案对错

我现在的问题是当选定了OPTION后四则运算正确答案做不出来了
除了加法 其他输了答案了还显示错
请各位高手帮帮忙 本人菜鸟一只
谢谢 谢谢

'窗体通用声明部分定义变量
Dim oper As Integer
Dim a As Single
Dim b As Single

Private Sub Form_Load()
Option1(0).Value = True
End Sub

'Option1:0 +, 1 -, 2 *, 3 /
Private Sub Option1_Click(Index As Integer)
oper = Index
End Sub

'出题
Private Sub Command1_Click()
a = Rnd(1)*1000
b = Rnd(1)*1000
label1.Caption = a
label2.Caption = b
End Sub

'提交答案
Private Sub Command2_Click()
Dim s As Single
If oper = 0 Then
s = a + b
ElseIf oper = 1 Then
s = a - b
ElseIf oper = 2 Then
s = a * b
Else
s = a / b
End If

If s = Csng(Text1.text) Then
MsgBox "正确"
Else
MsgBox "错误"
End If
End Sub

浮点数计算有精度问题，这里没考虑，也没考虑被 0除