vb编程循环语句是

Ⅰ VB循环语句主要有哪些

哈哈,都是些什么答案哦,误导:
VB循环主要有以下三类:
1)
FOR
循环变量=初值
TO
终值
[STEP
步长]
循环体
NEXT
循环变量
2)
WHILE
条件表达式
循环体
WEND
3)
DO
WHILE|UNTIL
表达式
循环体
LOOP
或
DO
循环体
LOOP
WHILE|UNTIL
表达式

Ⅱ VB循环语句

循环语句包括For-Next、While-Wend、Do-Loop语句。
暂且先给你介绍一下这些语句的简单用法：
For-Next语句：
For 变量 = 初值 To 终值 [Step 步长]
循环体
Next
当循环变量的值在初值到终值范围内时，执行一次循环体中的语句块，并使初值增加一个步长。当循环变量的值不在初值到终值范围内时，就退出循环，执行Next后面的语句。For循环语句执行的流程图。其中，
Step 步长 可省略，省略时，步长=1.
例如：
Private Sub Form_Activate()
For i = 1 To 5 Step 1
Print i
Next
End Sub
在这个例子中，运行程序后，窗体上会写出如下文字：
1
2
3
4
5
解析：
变量i由初值1到终值5共循环5次，每次循环时，输出i，并且将i的值加上步长的值1.所以，但第二次循环式，i的值就变为2.循环5此后，i的值变为5.再循环时i就变为6，便超过了终值5，因此循环结束，VB开始运行Next语句之后的代码。

Do-Loop语句：
Do
循环体
...[Exit Do]
Loop
循环体会在Do 与 Loop 之间不停循环。Exit Do 语句可有可无，是为了设定当满足一定条件后，运行Exit Do 语句，即退出循环。
如：
Private Sub Form_Activate()
Dim i As Integer
i = 1
Do
Print i
i = i + 1 '每次循环时都使i的值增加1
If i > 5 Then Exit Do '当i的值大于5（即循环5此后）时，退出循环
Loop
End Sub
其运行效果与上面的例子相同。

以上说明绝对不是复制的，给点辛苦分也行，谢谢~~

Ⅲ vb 循环语句怎么写

循环语句包括For-Next、While-Wend、Do-Loop语句比较常用的是for和whileFor-Next语句：
For 变量 = 初值 To 终值 [Step 步长]
循环体
Next
While Wend 语句：
While 条件
循环体
Wend
但满足条件时，（如当i>5时），便退出循环，否则执行循环体。Do-Loop语句：
Do
循环体
...[Exit Do]
Loop
循环体会在Do 与 Loop 之间不停循环。Exit Do 语句可有可无，是为了设定当满足一定条件后，运行Exit Do 语句，即退出循环。for应该是最简单的，因为不用自己去控制自增或自减，只要设置初始值，循环条件，和步阶就行了~

Ⅳ VB中的循环语句有哪些

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

Ⅳ 解释一下vb编程中的各种循环语句

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

Ⅵ vb 循环语句，求详解

Private Sub Command1_Click()//private表示私有函数
Dim n As Long, isprime As Boolean//定义n为long型变量isprime为布尔变量
n = InputBox("请输入一个不小于2的正整数：")//将输入的数值传给n
isprime = True//布尔值为true
For i = 2 To Sqr(n)//循环开始：i为变量从2逐渐移动到n的平方根
If n Mod i = 0 Then//判断开始：如果n除以i的余值为0则
isprime = False//布尔值为假
Exit For//跳出循环
End If//判断语句结束
Next i//下一重循环
If isprime Then//判断开始：如果布尔值为真
Print n; "是素数"//打印
Else//否则
Print n; "不是素数"//打印
End If//判断结束

End Sub

Ⅶ vb中的循环语句怎么写

下面提供多种方法：

第一种：

For i = 0 To 100

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

MsgBox i

EndIf

Nexti

第二种：

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

Ⅷ VB中的循环语句中的for... 是怎么用的

计数循环For格式：

For循环变量=初值To终值[Step为步长，默认步长为1]

[循环体]

[Exit For]

Next[循环变量][，循环变量]……

说明：

1、for循环格式中有多个参量，这些参量的含义如下：

1）循环变量：也称“循环控制变量”、“控制变量”或“循环计数器”。它是一个数值变量。

2）步长：不可为0。如果步长为1，则可省略不写。

3）格式中的初值、终值、步长均为数值表达式，但其值不一定是整数，可以是实数，VB自动调整。

2、For循环语句的执行过程是：首先把“初值”赋给“循环变量”，接着检查“循环变量”的值是否超过终值，如果超过就停止执行“循环体”，跳出循环，执行Next后面的语句，否则执行一次“循环体”，然后把“循环变量+步长”的值赋给“循环变量”，重复上述过程。

3、在VB中，For-Next循环遵循“先检查，后执行”的原则，即先检查循环变量是否超过终值，然后决定是否执行循环体。因此，当步长为正数，但初值>终值，或步长为负数，但初值<终值时，循环体将不会被执行。当初值等于终值时，不管步长是正数还是负数，均执行一次循环体。

4、For语句和Next语句必须成对出现，不能单独使用，且For语句必须在Next语句之前。

5、循环次数由初值、终值和步长3个因素确定，计算公式为：

循环次数=Int（终值-初值）/步长+1

6、For-Next循环可嵌套使用。

7、循环变量用来控制循环过程，在循环体内可以被引用和赋值。当循环变量在循环体内被引用时，称为“操作变量”，而不被引用的循环变量叫做“形式变量”。如果用循环变量做为操作变量，当循环体内循环变量出现的次数较多时，会影响程序的清晰性。

(8)vb编程循环语句是扩展阅读：

在VB中除了for（计数）循环，还包括当循环和Do循环两种循环形式。

1、在VB当中，当循环的格式如下：

While条件

[语句块]

Wend

“条件”为一布尔表达式。当循环语句的功能是：当给定的“条件”为True时，执行循环中的“语句块”。

2、Do循环的格式如下：

1）第一种格式：

Do

[语句块]

[Exit Do]

Loop [While|Until循环条件]

2）第二种格式：

Do [While|Until循环条件]

[语句块]

[Exit Do]

Loop

Ⅸ 用VB的6种循环语句分别编程实现10！

第一种用for...next 循环
Private Sub CommandButton1_Click()
dim i as integer

dim jc as double
jc=1
for i=10 to 1 step -1
jc=jc*i
next i
print "10!=“;
print jc
End Sub
第二种用当循环while...wend
Private Sub CommandButton1_Click()
dim i as integer

dim jc as double
jc=1
i=10
while i>=1
jc=jc*i
i=i-1
wend
print "10!=“;
print jc
End Sub
第三种用do循环do...loop
(1)do...loop while
Private Sub CommandButton1_Click()
dim i as integer

dim jc as double
jc=1
i=10
do
jc=jc*i
i=i-1
loop while i>=1
print "10!=“;
print jc
End Sub
(2)do...loop until
Private Sub CommandButton1_Click()
dim i as integer

dim jc as double
jc=1
i=10
do
jc=jc*i
i=i-1
loop until i<1
print "10!=“;
print jc
End Sub
(3)do while...loop
Private Sub CommandButton1_Click()
dim i as integer

dim jc as double
jc=1
i=10
do while i>=1
jc=jc*i
i=i-1
loop
print "10!=“;
print jc
End Sub
(4)do until...loop
Private Sub CommandButton1_Click()
dim i as integer

dim jc as double
jc=1
i=10
do until i<1
jc=jc*i
i=i-1
loop
print "10!=“;
print jc
End Sub