Question

我想问一下VB中多个判断语句IF的使用方法

比如我要判断变量a
如果a>0 并且a<501 那么b =a+5
如果a>501 并且a<1001 那么b =a+10
Private Sub Command1_Click()
Dim a As String
If a > 0 And a < 501 Then
b = a + 5
enf
If a > 501 And a < 1001 Then
b = a + 10
enf
If a > 1001 And a < 1501 Then
b = a + 15
enf
If a > 2001 And a < 2501 Then
b = a + 20
End If
Print b
End Sub
还是报错啊，看下是哪里的问题

Answer 1

if a>0 and a<501 then
b=a+5
enf if
if a>501 and a<1001 then
b=a+10
end if

你那enf改为end if

Answer 2

dim a as string
dim b as string
if a > 0 and a < 501 then
b = a + 5
elseif a > 501 and a < 1001 then
b = a + 10
elseif a > 1001 and a < 1501 then
b = a + 15
elseif a > 2001 and a < 2501 then
b = a + 20
else
b = a + 25
end if
print b
这里的最后一个条件那记得要用ELSE

或者这么写也可以
Dim a As String
dim b as string
If a > 0 And a < 501 Then
b = a + 5
end if
If a > 501 And a < 1001 Then
b = a + 10
end if
If a > 1001 And a < 1501 Then
b = a + 15
end if
If a > 2001 And a < 2501 Then
b = a + 20
End If
Print b

Answer 3

如果非要用if语句的话可以这样判断：
if a>0 and a<501 then
b=a+5
elseif a>501 and a<1001 then
b=a+10
end if

Answer 4

if a>0 and a<501 then b=a+5
if a>501 and a<1001 then b=a+10

Answer 5

Private Sub Command1_Click()
b = a + Abs(Int(-a / 500)) * 5
Print b
End Sub

或者enf改成end if
或者用elseif