做了个计算器计算结果都是0。帮忙看下
Private Sub RuaCommand_Click()Dim Number1 As Single, Number2 As Single, Result As Single
Number1 = Val(InputText1)
Number2 = Val(InputText2)
If AddOption = True Then
Result = Number1 + Number2
End If
OutputText.Text = Result
End Sub
以上是我的代码。输入1+1居然=0
1+2一样=0。
爆汗