用Do…Loop语句可以定义要多次执行的语句块；也可以定义一个条件，当这个条
件为假时，就结束这个循环。Do…Loop语句有以下两种形式：
Do[{WhileI Until}<条件>]
[<语句>]
[Exit Do]
[<语句>]
Loop
或者
Do
[<语句>]
[Exit Do]
[<语句>]
Loop[{WhileI Until)<条件>]
其中，“条件”是可选参数。是数值表达式或字符串表达式，其值为True或False。如果条件为Null(无条件)，则被当做False。While子句和Until子句的作用正好相反。如果指定了前者，则当<条件>是真时继续执行。如果指定了后者，则当<条件>为真时循环结束。如果把While或Until子句放在Do子句中，则必须满足条件才执行循环中的语句。如果把 While或Until子句放在Loop子句中，则在检测条件前先执行循环中的语句。
[例6．8]新建一个“名单”表，其中有“姓名”字段。在表中输入三条记录(三个人的姓名)。新建一个“窗体1”，放置一个名为“姓名列表”的列表框控件。在窗体模块中输入 中国自学编程网整理发布
www.zxbc.cn 代码：
0Ption Compare Database ’指定按数据库排序次序进行字符串比较
Private Sub Form—Load()
Dim db As Database ’声明数据库对象变量
Dim recName As Reeordset ’声明记录集对象变量
Dim strName As Field ’声明字段对象变量
Dim MyName(3)As String ’声明一个存放“姓名”的数组
Dim intI As Integer ’声明一个整型变量
Set db=CurrentDb() ’指定数据库为当前数据库
Set recName=db．()penRecordset(”名单”) ’将“名单”表读入记录集
Set strName=recName![姓名]’指定记录集“姓名字段”
intI=0
Do U ntil reeName．EOF
MyName(intI)=strName ’将“姓名”字段读人数组
intI=intI+1
recName．MoveNext ’读取记录集的下一个记录
Loop ．
’以下是将数组赋给姓名列表的代码
Me．姓名列表．RowsourceType一”值列表”
Me．姓名列表．RowSource—MyName(O)
For intI=1 To 3
Me．姓名列表．RowSource=Me．姓名列表．RowSource＆”；”;MyName(intI)
Next intI
end sub
