新手VB编程求教

来源：百度知道 编辑：UC知道 时间：2024/09/23 00:29:16
我编辑了这么一个小程序，但执行一直出错，请问在那里编辑错误了。
想的是if a >=0就print a ，a < 0就调用mysub中的msgbox语句，来显示(请输入正确的数值!)，但没有成功，请大家帮忙

Private Sub Command1_Click()
Dim a As String
a = Text1.Text
If a >= 0 Then Print a
ElseIf a < 0 Then
Call mysub(请输入正确的数值!)
End Sub

Sub mysub(welcome$)
MsgBox (welcome$)
End Sub

改一下就可以了。有错。

Private Sub Command1_Click()
Dim a As String
a = Val(Text1.Text)
If a >= 0 Then
Print a
ElseIf a < 0 Then
Call mysub("请输入正确的数值!")
End If
End Sub

Sub mysub(welcome As String)
MsgBox (welcome)
End Sub

鉴于你现在还是一个VB初学者 代码帮你改了 改的"更加容易被看懂"了
当然了 等你熟练了以后 下面的代码 有很多地方是可以被简化的

代码如下:

Private Sub Command1_Click()

Dim a As Long

If IsNumeric(Text1.Text) Then
a = Val(Text1.Text)
Else
Call mysub("请输入数字,不要输入字母")
End If

If a >= 0 Then
Print a
Else
Call mysub("你输入了一个小于零的数")
End If

End Sub

Sub mysub(welcome As String)
MsgBox welcome
End Sub

Private Sub Command1_Click()
Dim a As Integer
a = Val(Text1.Text)
If a >= 0 Then
Print a
ElseIf a < 0 T