Subject:《For...Next》 ； Example：《打印前5位公司名称》

时　间:2010-04-07 00:00:00
作　者:杨鑫   ID：7434  城市：广州
摘　要:练习 For...Next 循环，循环可谓千变万化，但万变不离其中。
正　文:

点击下载此附件

目的：练习 For...Next 循环

相关知识：ADO

语法：

For CounterVariable = Start To End
    [Statement block]
Next CounterVariable

或者，

For CounterVariable = Start To End Step StepValue
    [Statement block]
Next CounterVariable
其中，Step 关键字后面跟的是一个增量值，这表示每次循环执行时，计数器变量会增加 Step 的值。

代码：

Public Sub PrintFor()
    Dim rs As ADODB.Recordset
    Dim intRS As Integer '设定变量 intRS，用作循环的次数

    Set rs = New ADODB.Recordset

    rs.Open "tblContacts", CurrentProject.Connection, adOpenDynamic, adLockOptimistic

    For intRS = 1 To 5 '循环从 1 到 5
      Debug.Print rs![company] '打印记录集
      rs.MoveNext '移到下一条记录
    Next intRS '循环下一条记录

    rs.Close '关闭记录集
    Set rs = Nothing '将记录集设为空
End Sub

结果：

Nopa Auto Parts
Jiffy Auto Sales
All Start Autos
Columbia Chevy
James Auto Parts