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