这是我写的响应代码，一个加法计算器
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都算不了。。。。烦啊。。。

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

那我应该怎么改？说清楚点。我新手