Question

VB if then 判断语句如何使用

VB中有个Textbox命名为d
要实现判断选择的功能
Dim zhi As String
If d = 3 Or 4 Or 5 Or 6 Then zhi = 1
If d = 8 Then zhi = 1.25
If d = 10 Then zhi = 1.5
If d = 12 Then zhi = 1.75
If d = 14 Or 16 Then zhi = 2
If d = 18 Or 20 Or 22 Then zhi = 2.5
If d = 24 Or 27 Then zhi = 3
If d = 30 Or 33 Or 36 Or 39 Then zhi = 3.5
If d = 42 Or 45 Or 48 Then zhi = 4
If d = 52 Or 56 Then zhi = 4.5
If d = 60 Or 64 Then zhi = 5

但是不管d里输入的值是多少 最后zhi都等于5 请问是怎么回事？
应该怎么实现这种功能

Answer 1

If d = 3 Or 4 Or 5 Or 6 Then zhi = 1
不能这样判断
这样判断等效于：
If (d = 3) Or 4 Or 5 Or 6 Then zhi = 1
=>If 0 Or 4 Or 5 Or 6 Then zhi = 1
=>If 4 Or 5 Or 6 Then zhi=1
=>If 7 Then zhi=1
=>If True Then zhi=1
=>zhi=1(即恒成立)
下面的同样如此，Or作为位运算符参加运算，前方运算结果恒为不等于0 的数字即True，所以zhi被一直赋值直到最后zhi=5。

修改为类似于
If d = 60 Or d = 64 Then zhi = 5
即可，这样运算方式为
If (d = 60) Or (d = 64) Then zhi=5
=>If True(或者False) Or True(或者False) Then zhi=5 即可以进行判断。

也可以用select case判断

Answer 2

第一，你的变量的设置就非常有问题；你让一个String变量和你的1，2，3这些Integer去做对比，那当然是行不通的。。另外；你的语句写的有些乱；应该养成写End if的习惯。
不知道我写的这个行不行（我这里没有IDE，没办法测试）
Dim zhi As Double
If d = 3 Or 4 Or 5 Or 6 Then
zhi = 1
else if d=8 then
zhi=1.25
else if d=10 then
zhi=1.5
else if d= 12 then
zhi=1.75
else if d= 14 Or 16 Then
zhi=2
else if d= 18 or 20 then
zhi=2.5
else If d = 24 Or 27 Then
zhi = 3
else If d = 30 Or 33 Or 36 Or 39 Then
zhi = 3.5
else If d = 42 Or 45 Or 48 Then
zhi = 4
else If d = 52 Or 56 Then
zhi = 4.5
else If d = 60 Or 64 Then
zhi = 5
End if

多多指教；我是新手
498483439
xuanluan007@126.com

Answer 3

If d = 3 Or 4 Or 5 Or 6 Then zhi = 1
不能这样判断
这样判断等效于：
If (d = 3) Or 4 Or 5 Or 6 Then zhi = 1
=>If 0 Or 4 Or 5 Or 6 Then zhi = 1
=>If 4 Or 5 Or 6 Then zhi=1
=>If 7 Then zhi=1
=>If True Then zhi=1
=>zhi=1(即恒成立)
下面的同样如此，Or作为位运算符参加运算，前方运算结果恒为不等于0 的数字即True，所以zhi被一直赋值直到最后zhi=5。

修改为类似于
If d = 60 Or d = 64 Then zhi = 5
即可，这样运算方式为
If (d = 60) Or (d = 64) Then zhi=5
=>If True(或者False) Or True(或者False) Then zhi=5 即可以进行判断。

Answer 4

select case d
case 3 , 4 , 5 , 6
zhi = 1
case 8
zhi = 1.25
......
end select