例如条件为
a=1
a=20
a=40
a=100
a=300
先判断是否=1 如满足则执行满足1下面的语句之后跳出后面的判断,反之则判断是否=20,满足则执行满足20下面的语句之后跳出后面的判断,反之则再判断是否满足=40.....以此类推。
请问各位大大这个代码怎么写!
这个判断在一个for循环中!
可以用if elseif else,也可以用select case,示例代码如下:
(1)if elseif;
Sub if_sample()Dim i As Integer
For i = 1 To 300
If i = 1 Then
Debug.Print "i值等于1"
ElseIf i = 20 Then
Debug.Print "i值等于20"
ElseIf i = 40 Then
Debug.Print "i值等于40"
ElseIf i = 100 Then
Debug.Print "i值等于100"
ElseIf i = 300 Then
Debug.Print "i值等于300"
End If
Next i
End Sub
(2)select case;
Dim i As Integer
For i = 1 To 300
Select Case i
Case 1:
Debug.Print "i值等于1"
Case 20:
Debug.Print "i值等于20"
Case 40:
Debug.Print "i值等于40"
Case 100:
Debug.Print "i值等于100"
Case 300:
Debug.Print "i值等于300"
End Select
Next i
End Sub
温馨提示:答案为网友推荐,仅供参考
第1个回答 2016-08-11
不停地IF,能说说详细吗,在for中是什么意思?没个情况下代码不一样吗?