Question

VB的select case 的小问题

Private Sub Form_Load()
Me.Show
x = InputBox("输入一个整数")
Select Case x
Case Is > 0
Print x; Sqr(x)
Case Is = 0
Print x; 1.25
Case Is < 0
Print x; x * x
End Select
End Sub

当我把PRINT后面的“；”改为“=”时，为什么原来的答案变成了TRUE和FALSE

Answer 1

print
[对象.]print[{spc(n)|tab(n)][表达式列表][;|,]
对象:可以是窗体(form) 图形框(picturebox) ……
spc(n)函数：输出时插入n空格
tab(n)函数：输出时表达式定位于第n列
表达式列表：要输出的数值或字符串表达式，若省略，则输出一空行，多个表达式之间用空格、逗号，分号分隔，也可出spc 和tab函数。表达式列表开始打印的位置是由对象的currentX和currentY属性决定的，默订为打印对象的左上角（0,0）。
;（分号）：表示光标定在上一个显示的字符后。
,（逗号）：表示光标定位在下一个打印区的开始位置处，打印区每隔14列开始。
若无“;”或“,”表示输出后换行。

看了上面的你可注意到 表达式 这个词

当你用 Print x=Sqr(x)的时候x=Sqr(x)是以表达式的形式出现而不是数学运算。当x=16的时候sqr(x)=4，x=sqr（x）这个表达式肯定是错误的。所以返回false

你的思路可以这样表达
1）
Private Sub Form_Load()
Me.Show
x = InputBox("输入一个整数")
Select Case x
Case Is > 0
x = Sqr(x)
Print x
Case Is = 0
Print x; 1.25
Case Is < 0
Print x; x * x
End Select
End Sub
看case is>0 这一条

2）
Private Sub Form_Load()
Me.Show
x = InputBox("输入一个整数")
Select Case x
Case Is > 0
Print x; Spc(x); "Sqr(x)=" & Sqr(x)
Case Is = 0
Print x; 1.25
Case Is < 0
Print x; x * x
End Select
End Sub

---Spc(x); 可自己定义

Answer 2

“等号” 是赋值，但是在print前 并没有将对应的值赋值给X，所以就变成那个 true和 false
你可以改为
Print “x= 1.25”

Print ”x= ” & x * x

Answer 3

=号相当于判断后面表达式是否相等，所以产生一个boolean值
如果想要你说的效果
print x & "=" & sqr(x)
或
print x;"=";sqr(x) 之类的