我在visual basic 中添加了 command 控件 ，但是总是提示Private Sub Command1_Click()变量未定义。

这个是我的程序
Option Explicit
Private Sub Command1_Click()
Dim a As Integer, b As Integer
a = Val(InputBox("请输入x", "输入"))
If a >= 0 Then b = MsgBox(msg, 0, X = asqr(X) = b)
If a < 0 Then b = MsgBox(msg, 48, "输入数据错误：负数不能开平方")
End Sub

Option Explicit
Private Sub Command1_Click()
Dim a As Integer, b As Integer
a = Val(InputBox("请输入x", "输入"))
If a >= 0 Then b = MsgBox("X = "&Cstr(asqr(X))&" = b")
If a < 0 Then b = MsgBox("输入数据错误：负数不能开平方", 48 )
End Sub你没定义msg啊

d 上面的语法什么的全没有问题,如果真的还会出现错误,而且是要求对象的.只能是 没有text1 说单击 command1了,所以 不会是command1 .这里只用到了两个对象

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息