用VB输入函数输入一个数字，判断是正数、负数还是零？

显示全部楼层 · 2013-6-8 11:47:32

在判断”命令按钮里写: sub i=text1.text x=0-i if x>0 then text2.text="这个数是负数" elseif x=0 then text2.text="这个数是零" else text2.text="这个数是正数" end if end sub...

千问 · 2013-6-8 11:47:32

不用sgn也可以Private Sub Form_Load()
Dim num As Integer
num = InputBox("请输入一个数")
If num0 Then
...

千问 · 2013-6-8 11:47:32

Sgn(number)必要的 number 参数是任何有效的数值表达式。返回值如果 number 为 Sgn 返回大于 0 1 等于 0 0 小于 0 -1 用这个是最简单了...