vb sgn 函数

题目

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