VB中常见循环语句

1、For – Next

'循环数组

ArraySum = 0
For i = 1 To 10
ArraySum = ArraySum + MyArray(i)
Next i

2、For Each – Next

'循环单元格集合

SelectionSum = 0
For Each cell In Selection
SelectionSum = SelectionSum + cell.Value
Next cell

3、Do – Loop Until

'循环至件成立

Row = 0
Do
Row = Row + 1
Loop Until Cells(Row, 1).Value = “”
MsgBox "First empty cell is in Row " & Row

4、Do While – Loop

’循环至条件为真

Row = 1
Do While Cells(Row, 1) <> “”
Row = Row + 1
Loop
MsgBox "First empty cell is in Row " & Row

5、If – Then

判断条件成立，单行语句.

If x = 1 Then y = 1

6、If – Then – End If

条件成立，多行语句.

If x = 1 Then
y = 1
z = 1
End If

7、If – Then – Else
条件成立，则执行语句，否则执行另外的语句，单行模式

If x = 1 Then y = 1 Else y = 0

8、If – Then – Else – End If
条件成立，执行语句，多行模式

If x = 1 Then
y = 1
Z = 1
Else
y = 0
Z = 0
End If

9、Select Case

根据单个条件，执行多行语句

Select Case x
Case 1
y = 1
Z = 1
Case Is > 1
y = 2
Z = 2
Case Else
y = 0
Z = 0
End Select

10、Goto

跳转语句，尤其是错误处理的情况.

On Error GoTo Oops
'[more code goes here]
Exit Sub
Oops:
MsgBox “An error occurred”