vb中Do Until...looP 用法

Do循环由Do和Loop构成,但如果只有Do和Loop的话将不停地执行Do和Loop之间的语句块,所以需要使用可选的关键字While或Until以及Eixt Do来指定循环的条件以及退出循环
关键字While是指当条件为True时执行循环,而Until则是在条件变为True之前重复,就你的例子来说,用关键字Until给出了X=-1这个条件,意思就是在X=-1这个条件不成立的时候循环一直重复执行,直到X=-1这个条件成立了,则结束循环
下面是详细的例句解析:
Do循环在使用关键字While或Until的时候有两种写法,一种是放在开头,一种是放在结尾,而Eixt Do则是插在循环体内语句块的任何地方,,用来在需要的时候退出循环
关键字While或Until的两种写法见如下格式:
[第一种]
Do While(或Until) 条件 '关键字和条件放在开头
语句块
Loop
这种格式是用关键字While指定的条件为True时执行循环,或用Until在指定的条件变为True之前重复执行循环
[第二种]
Do
语句块
Loop While(或Until) 条件 '关键字和条件放在结尾
这种格式是不管条件是否成立,都先执行一次循环,然后再判断条件来决定是否继续循环
Do
If (a i ^ 2 + b i + c) (a m ^ 2 + b m + c) > 0 Then
i = m
End If
Loop Until Abs(i - s) <= d

下面提供多种方法：

第一种：

For i = 0 To 100
If (i Mod 2 = 0) And (i Mod 3 = 0) And (i Mod 5 <> 0) Then

MsgBox i

End If

Next i

第二种：

Private Sub Command1_Click()

Text1 = ""

Dim a()

k = InputBox("请输入上限")

For i = 1 To k

If i Mod 2 = 0 And i Mod 3 = 0 And i Mod 5 <> 0 Then

j = j + 1

ReDim Preserve a(j)

a(j) = i

End If

Next i

For i = 1 To j

Text1 = Text1 & a(i) & " "

Next i

End Sub

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提供的组件快速建立一个应用程序。

1、do whileloop：当条件为True时循环,，在进入循环之前检查条件。
2、doloop while:当条件为True循环，在循环至少运行一次后检查条件。
3、do untilloop:当条件为false循环，在进入循环之前检查条件。
4、do loop until:当条件为false循环，在循环至少运行一次后检查条件。
5、WhileWend: 当条件为Ture时循环。
6、fornext:指定循环次数，使用计数器重复运行语句。
7、for Eachnext:对于集合中的每项或数组中的元素，重复执行每个语句。
8、for Eachin:从一个集合中取出每一个元素。
9、循环嵌套：就是在一个大循环内可以包含一个小循环。
10、强行退出循环就知道这么多，呵呵11

Do While i<101 (Do While 条件 ->表示符合 条件 的话就继续执行和 loop之间的语句)
Sum=Sum+i
i=i+1
Loop (循环到Do While继续判断条件)
Do Until i=101 (Do Until 条件 ->表示“不”符合 条件 的话就继续执行和 loop之间的语句)
Sum=Sum+i
i=i+1
Loop (循环到Do Until继续判断条件)
懂了吗？

答案应该是27 跟3
条件是x<20的时候,第一个循环,x=1,x=13, n=0+1,,,第二个循环,x=3,x=33,n=1+1,,,,,第三个循环,,x=9,x=93 =27,,n=2+1=3
因为x=27已经>20了,,所以就不用再循环,,所以答案就是27,3 了

IfElse语句作用：这是个如果语句，比如：
Dim A
A=inputbox（"hallow","hallow"）
If A=5
Msgbox("wome","hallow")
If A=10
Msgbox("go away","shit")
Else

ForNext语句作用：
For 计数器变量＝开始计数值 to 最后计数值
执行循环体
Next

‍Do WhileLoop语句作用：
Do while 条件
执行循环体
Loop
如果你希望在条件不满足时执行代码，则使用do……until语句，结构为：
Dountil　条件
执行循环体
Loop
当然，在这两种循环语句中，你可以使用exit do来退出循环

Select Case语句作用：
Elseif 条件 then
处理条件语句
在selectcase语句中，其基本形式为：
Select case 变量
Case 条件值
处理条件语句
并对上两句进行重复
最后一句应为
case else
处理语句
当然不要忘记将条件结束语句End select放在最后一行
注意：在执行字符串比较时，需要特别注意大小写，一般情况下，我们在比较前，使用lcase函数将字符串转换成小写，使用ucase函数将字符串转换成大写大写。
欢迎追问。H

---