Question

关于VB做一个加法计算器的代码

我现写出代码：
Private Sub Command1_Click()
num1 = Int(9 * Rnd)
num2 = Int(9 * Rnd)
Text1.Text = Trim(Str(num1))
Text2.Text = Trim(Str(num2))
Select Case op
Case "+": result = num1 + num2
End Select
End Sub

Private Sub Command2_Click()
If Val(Text3.Text) = result Then
MsgBox "恭喜你，答对了！"
Else
MsgBox "答案错误！"
End If
End Sub
不知道哪里错了，判题空白或0会显示答对，其他任何答案都显示错误，求答案。

Answer 1

在所有代码前加

Dim result As Integer

追问

添加Dim result As Integer后，仍然没有变化

追答

这个的名字，就是“名称”属性，是op还是Label1，如果是Label1，就把

Select Case op

改成

Select Case Label1

说实话，你的代码挺次的，应该是从别的代码里截出来的吧