编程判断正负数

来源：百度知道 编辑：UC知道 时间：2024/06/04 10:46:08
用VB做的
判断正负数
我是初学者
不会做
要完整的
VB6.0

我要的是高中考试用的格式
是“建立两个TXT，一个输入，一个输出答案。还有一个comman"
例如
dim a as integer
a=val(text1.text) 这种的。。。
不用那么复杂的

Private Sub Command1_Click()
a = InputBox("请输入一个数")
If a = 0 Then
MsgBox "你输入的是0"
Else
If a < 0 Then
MsgBox "你输入的是一个负数"
Else
MsgBox "你输入的是一个正数"
End If
End If
End Sub

用abs()函数，例如；n=-23,k=abs(n),k=-1

你要的程序来了,已经验证OK!!!

Private Sub Command1_Click()
Dim num As Integer
num = val(Text1.Text)
If num > 0 Then '如果大于0,正数
text2.text="正数!"
ElseIf num = 0 Then '如果等于0,0
text2.text= "0"
Else '不大于0,等于0,那肯定是小于0,负数
text2.text="负数!"
End If
End Sub

通俗易懂,你自己试试!!!

Private Sub Command1_Click()
MsgBox IIf(Val(InputBox("请输入一个数!")) > 0, "你输入的是一个正数!", "你输入的是一个负数、或者是0、或者是其他非字符.")
End Sub