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

来源：学生作业帮助网 编辑：作业帮 时间：2024/10/03 07:07:56
vb sgn 函数Private Sub Command1_Click()x = -5If Sgn(x) Theny = Sgn(x ^ 2)Elsey = Sgn(x)End IfPrint yEnd Sub程序结果是?这个里的x是怎么赋值的?
xՒNA_l$t\ cAg+A%* "1) .@Bk=ߜY_:PB6F9UGaq'(1ym1퐊7(JWJx HKJ BQAP5nǠqa ƕWD@G[z(fv&7.#jt۔sqs>[)LN/Znãic_;e0Cx_p\֬ѱٺM}bW=މ^Sim]!y83D}Eݴ5s(T4Ĝ(lJ}Dq4V6|C#hDt"r!Hw{c0֙3mb bV10 P$̀S`'ȹ)

vb sgn 函数Private Sub Command1_Click()x = -5If Sgn(x) Theny = Sgn(x ^ 2)Elsey = Sgn(x)End IfPrint yEnd Sub程序结果是?这个里的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是怎么赋值的?

vb sgn 函数Private Sub Command1_Click()x = -5If Sgn(x) Theny = Sgn(x ^ 2)Elsey = Sgn(x)End IfPrint yEnd 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