谁帮我看下,一个计算器。只有一种运算,代码错了。不知道错在那里?
这是我写的响应代码,一个加法计算器Private Sub RuaCommand_Click()
Dim Number1 As Single, Number2 As Single, Result As Single
Number1 = Val(InputText1.Text)
Number2 = Val(InputText2.Text)
If AddOption.Value = True Then
Result = Number1 + Number2
End If
End Sub
系统说实时错误“424”
要求对象“ 空白 ”
代码应该怎么写?
[[it] 本帖最后由 zyal 于 2008-6-26 14:09 编辑 [/it]]