VB 循环学习笔记

1. For 循环

语法：

vbCopy Code
For counter = start To end [Step step]
   ' 执行代码块
Next [counter]

其中，start 表示起始值，end 表示终止值，step 表示步长。

示例：

vbCopy Code
For i = 1 To 10
   MsgBox("当前的数字为：" & i)
Next

上述代码将依次显示 1 到 10 的数字。

2. Do While 循环

语法：

vbCopy Code
Do While condition
    ' 执行代码块
Loop

其中，condition 表示循环条件。

示例：

vbCopy Code
Dim i As Integer
i = 1
Do While i <= 10
    MsgBox("当前的数字为：" & i)
    i = i + 1
Loop

上述代码将依次显示 1 到 10 的数字。

3. Do Until 循环

语法：

vbCopy Code
Do Until condition
    ' 执行代码块
Loop

其中，condition 表示循环条件。

示例：

vbCopy Code
Dim i As Integer
i = 1
Do Until i > 10
    MsgBox("当前的数字为：" & i)
    i = i + 1
Loop

上述代码将依次显示 1 到 10 的数字。

4. While 循环

语法：

vbCopy Code
While condition
    ' 执行代码块
Wend

其中，condition 表示循环条件。

示例：

vbCopy Code
Dim i As Integer
i = 1
While i <= 10
    MsgBox("当前的数字为：" & i)
    i = i + 1
Wend

上述代码将依次显示 1 到 10 的数字。

5. For Each 循环

语法：

vbCopy Code
For Each element In group
    ' 执行代码块
Next [element]

其中，element 表示集合中的每个元素，group 表示集合。

示例：

vbCopy Code
Dim arr() As String
ReDim arr(2)
arr(0) = "Apple"
arr(1) = "Orange"
arr(2) = "Banana"
For Each fruit In arr
    MsgBox(fruit)
Next fruit

上述代码将依次显示 Apple、Orange 和 Banana。