Question

VB基础问题~急用~高手帮忙解答一下~谢谢了~

Private Sub Form_Load()
Show
x = Val(InputBox("qingshurushuju "))
Select Case Sgn(x) = 2
Case 1
x = x + 1
Case 2
x = x + 2
Case 3
x = x + 3
End Select
Print x * 5
End Sub

输入的数为-3~结果为什么是-15~能详细解释一下么?~谢谢各位了~

Answer 1

首先，因为 x=-3 sgn函数为去一个数的符号
所以sgn（x）=-1
sgn(x)=2返还的值是 ture（1）和fales（0）
又因为sgn（x）=-1所以sgn(x)=2返还的值是false即为0
所以不属于下面三个case的任何情况，所以x仍为-3

Answer 2

Print x * 5
输入-3,输出15,

因为你的select case 后面是个判断sgn(x)=2
三个case都不会执行

等于只有x*5

Answer 3

输入为“-3”，x得到值-3，然后Select，所有的Case条件都不满足，所以x的值还是-3，最后 x * 5 = -15