vb简单题目

Private Sub Form_Click()
Dim a As Double
a = InputBox("请输入一个数字")
If a < 0 Then
MsgBox = "这是一个负数"

else

msgbox="这是一个正数"
Print a
End Sub

请问哪点有问题？系统提示编译错误，赋值号左边的函数调用必须返回变体或对象。

有哪个高手帮帮忙。。

你的程序有几大问题。首先，你忘记写了End If；其次，MsgBox = "这是一个负数"，这语句有问题，MsgBox是一个子程序，别使用赋值符号；再次，你有对零的情况进行判定。

修改如下：

Dim a As Double
a = InputBox("请输入一个数字")
If a < 0 Then
MsgBox "这是一个负数"
ElseIf a > 0 Then
MsgBox "这是一个正数"
Else
MsgBox "这是0"
End If
Print a

Private Sub Form_Click() Dim a As Double a = val(InputBox("请输入一个数字")) If a < 0 Then MsgBox "这是一个负数"

else

msgbox "这是一个正数" Print a

End if End Sub