我编写的一个计算器。。。
下面是我全部的响应代码

Private Sub Label1_Click()

End Sub

Private Sub AddOptin_Click()
SymbelLabel.Caption = "+"
OutputText.Text = ""
End Sub

Private Sub DivideOption_Click()
SymbelLabel.Caption = "/"
OutputText.Text = ""
End Sub

Private Sub MisnusOption_Click()
SymbelLabel.Caption = "-"
OutputText.Text = ""
End Sub

Private Sub MultiOption_Click()
SymbelLabel.Caption = "*"
OutputText.Text = ""
End Sub

Private Sub RunCommand_Click()
Dim Number1, Number2, Result As Single

Number1 = Val(InputText1.Text)
Number2 = Val(InputText2.Text)

If AddOption.Value = True Then
Result = Number1 + Number2
End If
If Minusption.Value = True Then
Result = Number1 - Number2
End If
If MultiOption.Value = True Then
Result = Number1 * Number2
End If
If DiviOption.Value = True Then
Result = Number1 / Number2
End If
End Sub

但是运行不了。。。我点调试，它说

If AddOption.Value = True Then
Result = Number1 + Number2
End If
If Minusption.Value = True Then
Result = Number1 - Number2
End If
If MultiOption.Value = True Then
Result = Number1 * Number2
End If
If DiviOption.Value = True Then
Result = Number1 / Number2
End If
End Sub
错了。。。。麻烦你们帮我看下

你錯在那啊,怎麼不標出來,不然大家怎麼知道你錯在那

系统说我这里错了
If AddOption.Value = True Then
Result = Number1 + Number2
End If
If Minusption.Value = True Then
Result = Number1 - Number2
End If
If MultiOption.Value = True Then
Result = Number1 * Number2
End If
If DiviOption.Value = True Then
Result = Number1 / Number2
End If
End Sub

If DiviOption.Value = True Then
Result = Number1 / Number2
End If
End Sub
是不是if DevideOption.value...哈？

將Number1 VAL(Number1)
Number2 VAL(Number2)

4个意见
1、定义变量
Dim Number1, Number2, Result As Single是不规范的
这样一来，number1和number2都是变体变量，而不是single
应该Dim Number1 as single, Number2 as single, Result As Single
2、对于多分支结构，最好使用select...case结构，简单明了，且提高程序效率。
3、对比Private Sub MisnusOption_Click()
If Minusption.Value = True Then
你的控件名错了
4、对比If DiviOption.Value = True Then
Private Sub DivideOption_Click()
控件名错了