VB循环结构DO……LOOP
发布网友
发布时间：2022-04-20 22:50
共5个回答
热心网友
时间：2022-05-21 15:22
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提供的组件快速建立一个应用程序。
热心网友
时间：2022-05-21 15:23
小明今年11岁他妈妈43岁问多少年后他妈妈年龄是他的三倍（用do loop 循环做）
热心网友
时间：2022-05-21 15:23
比如 判断 素数 的 程序就可以用
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
热心网友
时间：2022-05-21 15:24
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 ’循环往复来自：求助得到的回答
热心网友
时间：2022-05-21 15:25
'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
