一看你就是个新手，举个栗子吧：
如下，正负数判断
Private Sub Command1_Click()
If Val(Text1.Text) > 0 Then
Text2.Text = "该数为正数"
End If
If Val(Text1.Text) < 0 Then
Text2.Text = "该数为负数"
End If
If Val(Text1.Text) = 0 Then
Text2.Text = "该数既不是正数也不是负数"
End If
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024