vb的几种循环结构是什么？

vb的几种循环结构是什么？~

Private Sub Command1_Click()
Dim i As Integer
Dim sum As Integer
Dim a As Integer
Do
Randomize
a = Int(Rnd * 1000)
sum = sum + a
i = i + 1
Loop while i <= 10
MsgBox "10个随机数得和:" & sum
End Sub
Visual 意即可视的、可见的，指的是开发像Windows操作系统的图形用户界面（Graphic User Interface,GUI）的方法，它不需要编写大量代码去描述界面元素的外观和位置，只要把预先建立好的对象拖放到屏幕上相应的位置即可。Visual Basic 6 有学习版、专业版和企业版三种版本，以满足不同的开发需要。学习版适用于普通学习者及大多数使用 Visual Basic 开发一般 Windows 应用程序的人员；
专业版适用于计算机专业开发人员，包括了学习版的全部内容功能以及Internet控件开发工具之类的高级特性；企业版除包含专业版全部的内容外，还有自动化构件管理器等工具，使得专业编程人员能够开发功能强大的组骨子里分布式应用程序。

1.While...Wend 语句
只要指定的条件为 True，则会重复执行一系列的语句。
语法
While condition
[statements]
..
Wend
2.Do...Loop
2.1 第一种用法
用 Do 循环重复执行一语句块，且重复次数不定。Do...Loop 语句有几种演变形式，但每种都计算数值条件以决定是否继续执行。如同 If...Then condition 必须是一个数值或者值为 True（非零）或 False（零）的表达式。
在下面的 Do...Loop 循环中，只要 condition 为 True 就执行 statements。
Do While condition
statements
..
Loop
2.2 第二种用法
Do...Loop 语句的另一种演变形式是先执行语句，然后在每次执行后测试 condition。这种形式保证 statements 至少执行一次：
Do
statements
Loop While condition
注:其它两种演变形式类似于前两个，所不同的是，只要 condition 为 False 而不是 True，它们就执行循环。
循环零次或多次
Do Until condition
statements
Loop
至少循环一次
Do
statements
Loop Until condition
3.For...Next
在不知道循环内需要执行多少次语句时，宜用 Do 循环。但是，在知道要执行多少次时，则最好使用 For...Next 循环。与 Do 循环不同， For 循环使用一个叫做计数器的变量，每重复一次循环之后，计数器变量的值就会增加或者减少。For 循环的语法如下：
For counter = start To end [Step increment]
statements
Next [counter]
参数 Counter、Start、end 和 increment 都是数值型的。
注意 increment 参数可正可负。如果 increment 为正，则 Start 必须小于等于 end，否则不能执行循环内的语句。如果 increment 为负，则 Start 必须大于等于 end，这样才能执行循环体。如果没有设置 Step，则 increment 缺省值为 1。
实例：
以下代码打印出所有有效的屏幕字体名：
Private Sub Form_Click ()
Dim I As Integer
For i = 0 To Screen.FontCount
Print Screen.Fonts (i)
Next
End Sub
4.For Each...Next
For Each...Next 循环与 For...Next 循环类似，但它对数组或对象集合中的每一个元素重复一组语句，而不是重复语句一定的次数。如果不知道一个集合有多少元素， For Each...Next 循环非常有用。
For Each...Next 循环的语法如下：
For Each element In group
statements
Next elementt
例如，下面的子过程打开 Biblio.mdb，把每一个表的名字加到列表框中。
Sub ListTableDefs ()
Dim objDb As Database
Dim MyTableDef as TableDef
Set objDb = OpenDatabase("c:\vb\biblio.mdb", _
True, False)
For Each MyTableDef In objDb.TableDefs ()
List1.AddItem MyTableDef.Name
Next MyTableDef
End Sub
请记住使用 For Each...Next 时的几点限制：
对集合，element 只能是 Variant 变量，或一般的 Object 变量，或“对象浏览器”中列出的对象。
对数组，element 只能是 Variant 变量。
For Each...Next 不能与用户自定义类型的数组一起使用，因为 Variant 不可能包含用户自定义类型。

1.While...Wend 语句
只要指定的条件为 True，则会重复执行一系列的语句。
语法
While condition
[statements]
..
Wend
2.Do...Loop
2.1 第一种用法
用 Do 循环重复执行一语句块，且重复次数不定。Do...Loop 语句有几种演变形式，但每种都计算数值条件以决定是否继续执行。如同 If...Then condition 必须是一个数值或者值为 True（非零）或 False（零）的表达式。
在下面的 Do...Loop 循环中，只要 condition 为 True 就执行 statements。
Do While condition
statements
..
Loop
2.2 第二种用法
Do...Loop 语句的另一种演变形式是先执行语句，然后在每次执行后测试 condition。这种形式保证 statements 至少执行一次：
Do
statements
Loop While condition
注:其它两种演变形式类似于前两个，所不同的是，只要 condition 为 False 而不是 True，它们就执行循环。
循环零次或多次
Do Until condition
statements
Loop
至少循环一次
Do
statements
Loop Until condition
3.For...Next
在不知道循环内需要执行多少次语句时，宜用 Do 循环。但是，在知道要执行多少次时，则最好使用 For...Next 循环。与 Do 循环不同， For 循环使用一个叫做计数器的变量，每重复一次循环之后，计数器变量的值就会增加或者减少。For 循环的语法如下：
For counter = start To end [Step increment]
statements
Next [counter]
参数 Counter、Start、end 和 increment 都是数值型的。
注意 increment 参数可正可负。如果 increment 为正，则 Start 必须小于等于 end，否则不能执行循环内的语句。如果 increment 为负，则 Start 必须大于等于 end，这样才能执行循环体。如果没有设置 Step，则 increment 缺省值为 1。
实例：
以下代码打印出所有有效的屏幕字体名：
Private Sub Form_Click ()
Dim I As Integer
For i = 0 To Screen.FontCount
Print Screen.Fonts (i)
Next
End Sub
4.For Each...Next
For Each...Next 循环与 For...Next 循环类似，但它对数组或对象集合中的每一个元素重复一组语句，而不是重复语句一定的次数。如果不知道一个集合有多少元素， For Each...Next 循环非常有用。
For Each...Next 循环的语法如下：
For Each element In group
statements
Next elementt
例如，下面的子过程打开 Biblio.mdb，把每一个表的名字加到列表框中。
Sub ListTableDefs ()
Dim objDb As Database
Dim MyTableDef as TableDef
Set objDb = OpenDatabase("c:\vb\biblio.mdb", _
True, False)
For Each MyTableDef In objDb.TableDefs ()
List1.AddItem MyTableDef.Name
Next MyTableDef
End Sub
请记住使用 For Each...Next 时的几点限制：
对集合，element 只能是 Variant 变量，或一般的 Object 变量，或“对象浏览器”中列出的对象。
对数组，element 只能是 Variant 变量。
For Each...Next 不能与用户自定义类型的数组一起使用，因为 Variant 不可能包含用户自定义类型。

Private Sub Command1_Click()

Dim i As Integer

Dim sum As Integer

Dim a As Integer

Do

Randomize

a = Int(Rnd * 1000)

sum = sum + a

i = i + 1

Loop while i <= 10

MsgBox "10个随机数得和:" & sum

End Sub

1.While...Wend 语句
只要指定的条件为 True，则会重复执行一系列的语句。
语法
While condition
[statements]
..
Wend
2.Do...Loop
2.1 第一种用法
用 Do 循环重复执行一语句块，且重复次数不定。Do...Loop 语句有几种演变形式，但每种都计算数值条件以决定是否继续执行。如同 If...Then condition 必须是一个数值或者值为 True（非零）或 False（零）的表达式。
在下面的 Do...Loop 循环中，只要 condition 为 True 就执行 statements。
Do While condition
statements
..
Loop
2.2 第二种用法
Do...Loop 语句的另一种演变形式是先执行语句，然后在每次执行后测试 condition。这种形式保证 statements 至少执行一次：
Do
statements
Loop While condition
注:其它两种演变形式类似于前两个，所不同的是，只要 condition 为 False 而不是 True，它们就执行循环。
循环零次或多次
Do Until condition
statements
Loop
至少循环一次
Do
statements
Loop Until condition
3.For...Next
在不知道循环内需要执行多少次语句时，宜用 Do 循环。但是，在知道要执行多少次时，则最好使用 For...Next 循环。与 Do 循环不同， For 循环使用一个叫做计数器的变量，每重复一次循环之后，计数器变量的值就会增加或者减少。For 循环的语法如下：
For counter = start To end [Step increment]
statements
Next [counter]
参数 Counter、Start、end 和 increment 都是数值型的。
注意   increment 参数可正可负。如果 increment 为正，则 Start 必须小于等于 end，否则不能执行循环内的语句。如果 increment 为负，则 Start 必须大于等于 end，这样才能执行循环体。如果没有设置 Step，则 increment 缺省值为 1。

---

仲巴县18982227411： 简述VB支持哪些循环结构? - ？
坚须信润： for.....next for ...each...next do while...loop while...wend楼上应该还在说一个 if 循环 虽然if不是标准的循环语句,而是条件判定语句,但是也可以实现循环的比如这样Private Sub Form_Load() Dim n As IntegerHJonny: If n <> 3 Thenn = n + 1MsgBox ＂第＂ & n & ＂次循环＂GoTo HJonny End If End Sub

仲巴县18982227411： 有谁能帮我仔细讲讲vb中的循环语句. - ？
坚须信润： VB主要有两种循环结构,即Do...Loop和For...Next 1、Do...Loop结构 Do...Loop语句有四种形式,其中一种循环形式为:Do While 循环条件 语句组 LoopDo...Loop的第二种语句形式是:Do 语句组 Loop While 循环条件 //这种形式的...

仲巴县18982227411： VB中有多少种循环结构 - ？
坚须信润： 简单的说,就是for循环,while循环,do...while循环,do...until循环,do...loop until循环,还有一个可以形成循环,但是不用循环关键字的,那就是goto语句.

仲巴县18982227411： 请问VB里面循环结构有哪些,详细介绍 - ？
坚须信润： do循环 for循环 while循环

仲巴县18982227411： 循环结构的三种主要形式 vb - ？
坚须信润： do loop 只是这个可以有多种情况,归起来算一类,这个就有四种可能,以判断条件真假引起循环起或止 while wend 以判断条件开始循环 for next 以类加次数标记循环结束for each next 与之相似,不过是为数组中每个元素循环,直到最后一个元素

仲巴县18982227411： VB中的循环语句有哪些 - ？
坚须信润： 1、do while...loop:当条件为True时循环,,在进入循环之前检查条件. 2、do...loop while:当条件为True循环,在循环至少运行一次后检查条件. 3、do until...loop:当条件为false循环,在进入循环之前检查条件. 4、do.. loop until:当条件为...

仲巴县18982227411： VB程序里的循环结构怎么写? - ？
坚须信润： for i=起始值 to 终止值 step 阶值 next i 循环方式:判断起始值是否到终止值,每次在起始值上加 阶值(阶值 可正负),知道超出范围,退出;Exit for可中间退出for循环 dim i as integer i=3 do while i>0(条件例:i>0,将会循环3次,然后结束退出) i=i-1 loop

仲巴县18982227411： 求解 VB多重循环结构 - ？
坚须信润： 1.什么叫“外循环”与“内循环”?如果有三重以上的循环,又分别应该叫什么呢?两个循环,里面的叫“内循环”,外面的叫“外循环”,一般两个循环的比较常见,三重以上的循环结构还没见到过.如果有三个 以上的循环重合起来,我认为...

仲巴县18982227411： 求详解,vb循环结构知识. - ？
坚须信润： 第一个:先给s赋值0 i=1 时 s=0+1=1 i=2时 s=1+2=3 (在原有的基础上加 i 的值) i=3时 s=3+3=6 …… i=100时,s=(1+2+3+……)+100 第二个 s的初值仍旧是0 i=100时 s=0+100=100 i=99时 s=100+99=199 i=98时 s=199+98=297 …… i=1时 s=(100+99+98+……)+1 知道了吧,两种其实只是加的顺序相反而已. 第二个中的step叫做“步长”,step -1 表 示每循环一次,i的值加-1.第一个不写step默认是 step 1.即每循环一次i的值加1

仲巴县18982227411： vb的几种循环结构? - ？
坚须信润： 1.While...Wend 语句 只要指定的条件为 True,则会重复执行一系列的语句.语法 While condition [statements]..Wend2.Do...Loop2.1 第一种用法 用 Do 循环重复执行一语句块,且重复次数不定.Do...Loop 语句有几种演变形式,但每种都计算数...