vb sgn 函数Private Sub Command1_Click()x =

vb sgn 函数
Private Sub Command1_Click()
x = -5
If Sgn(x) Then
y = Sgn(x ^ 2)
Else
y = Sgn(x)
End If
Print y
End Sub
程序结果是?
这个里的x是怎么赋值的?

y = 1
x=-5 所以x小于0
故Sgn(x)=-1 不等于0
所以If Sgn(x) 为逻辑真
故y = Sgn(x ^ 2) = Sgn（25）= 1
Sgn 函数
返回表示数字符号的整数.
Sgn(number)
number 参数可以是任意有效的数值表达式.
返回值
Sgn 函数有如下返回值：
如果 number 为 Sgn 返回
大于零 1
等于零 0
小于零 -1

收益了