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

收益了

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息