这是我写的响应代码，一个加法计算器
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]]

不知道

正确，你的编译器有问题！！

连简单的1+1都算不了。。。。烦啊。。。

偷偷问下楼上嘀这个M意思:AddOption.Value = True

对象应该指的是“AddOption”，
我觉得:
1、可以加一个AddOption单击的事件，在事件中写：
If AddOption.Value = True Then
AddOperation=true
End If
2、在模块级中声明：private AddOperation as Boolean
3、在RuaCommand_Click事件中：
Private Sub RuaCommand_Click()
Dim Number1 As Single, Number2 As Single, Result As Single

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

If AddOperation = True Then
Result = Number1 + Number2
End If
End Sub

还有一种，就是建立类模块。

最好将Single改为double

看不太懂

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

你addoption=true时才执行计算,addoption又没见你赋值,肯定是不计算Result = Number1 + Number2
那result肯定等于零喽