Question

VB循环结构DO……LOOP

能否帮我举个例子，用 DO WHILE ……LOOP，当中有EXIT DO的。我要理解EXIT DO的作用，通过你的条件表达式、语句块让我理解这个循环结构。谢谢。

Answer 1

do while i>1          '当i>1的时候，循环体开始执行

i=i+1                    ‘每次让i增加一个单位

if i>20 then          ’增加i后判断i是否大于20

exit do                 ‘如果大于20，则跳出循环（exit do)

end if                  '不是，则绕出判断语句，继续执行循环

loop                    ’循环往复

Visual Basic（简称VB）是Microsoft公司开发的一种通用的基于对象的程序设计语言，为结构化的、模块化的、面向对象的、包含协助开发环境的事件驱动为机制的可视化程序设计语言。是一种可用于微软自家产品开发的语言。

“Visual” 指的是开发图形用户界面 (GUI) 的方法——不需编写大量代码去描述界面元素的外观和位置，而只要把预先建立的对象add到屏幕上的一点即可。“Basic”指的是 BASIC (Beginners All-Purpose Symbolic Instruction Code) 语言，是一种在计算技术发展历史上应用得最为广泛的语言。

Visual Basic源自于BASIC编程语言。VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建Active X控件，用于高效生成类型安全和面向对象的应用程序。程序员可以轻松的使用VB提供的组件快速建立一个应用程序。

Answer 2

小明今年11岁他妈妈43岁问多少年后他妈妈年龄是他的三倍（用do loop 循环做）

Answer 3

比如 判断 素数 的 程序就可以用

private function fun1(a as integer )as boolean
fun1=true
i=2
do while i <= sqr(a)

if a/i = int(a/i) then fun1 = false
exit do

loop
end function

Answer 4

do while i>1 '当i>1的时候，循环体开始执行

i=i+1 ‘每次让i增加一个单位

if i>20 then ’增加i后判断i是否大于20

exit do ‘如果大于20，则跳出循环（exit do)

end if '不是，则绕出判断语句，继续执行循环

loop ’循环往复

Answer 5

'99表

Sub aa()
Dim i As Integer
Dim j As Integer
Dim k As Integer
i = 1
j = 1
Do While i < 10
j = 1
Do While j < 10
If j > i Then
Exit Do
Else
MsgBox i & "*" & j & "=" & i * j
End If
j = j + 1
Loop
i = i + 1
Loop

End Sub