A. vb循環結構
Private Sub Command1_Click()
Dim a As String, i As Long
Label2.Caption = ""
For i = 1 To Len(Text1.Text)
a = Mid(Text1.Text, i, 1) + a
Next i
Label2.Caption = a
End Sub
Private Sub Form_Load()
Text1.Text = ""
Label1.Caption = "輸入字元串"
Command1.Caption = "反向輸版出權"
Label2.Caption = ""
End Sub
B. 簡單的VB編程，用循環結構
Private Sub Form_Click()
Dim n As Integer
Dim p As Double
n = 0
p = 0
While (1 / (2 * n + 1)) > 10 ^ (-4)
p = p + ((-1) ^ n) / (2 * n + 1)
n = n + 1
Wend
Form1.Print p * 4
End Sub
Private Sub Form_Click()
Dim n As Integer
Dim p As Double
n = 0
pi = 0
While (1 / (2 * n + 1)) > 10 ^ (-4)
If n Mod 2 = 0 Then
p = p+ 1 / (2 * n + 1)
Else
p = p - 1 / (2 * n + 1)
End If
n = n + 1
Wend
Form1.Print p * 4
End Sub
這里給你兩種思路，你可以看著改一下，直接在窗體的click事件里寫入代碼就可以，p*4即為所得結果！希望對你有用，謝謝！
C. vb循環結構 for
^Private Sub Command1_Click()
Print "1000以內復的制同構數為："
Dim i As Integer, n As Long
For i = 1 To 1000
n = i ^ 2
If (n - i) Mod 10 ^ (Len(Trim(Str(i)))) = 0 Then Print i;
Next i
End Sub
D. vb FOR循環結構
當外循環變數的值每變化一次，內循環都要運行一遍（運行多少次由i值而定，例如i=1時運行1次，i=2時運行2次……），每次退出內循環都要執行print語句（換行），然後i值再加1（直到超過5結束）
所以運行結果是
1
23
456
78910
1112131415
E. 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
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 不可能包含用戶自定義類型。
F. VB循環結構DO……LOOP
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 』循環往復
G. vb循環結構
i = 3
裡面循環3次
For j = 1 To 3
a = i & "*" & j & "=" & i * j
Print a;
Next j
第一次
j=1
a = i & "*" & j & "=" & i * j
a = 3 & "*" & 1 & "=" & 3 * 1
二次版
j=2
a = 3 & "*" & 2 & "=" & 3 * 2
第三權次
j=3
H. vb 循環結構
PrivateSubCommand1_Click()
a=Val(Text1.Text)
Ifa=1Ora=2Then
Text2.Text=1
ExitSub
EndIf
a1=1:a2=1
Fori=3Toa
Sum=a1+a2
a1=a2
a2=Sum
Nexti
Text2.Text=Sum
EndSub
I. vb循環結構
PrivateSubCommand1_Click()'圖案1
N=5'共5行
Cls
Fori=1ToN
Forj=1Toi
Print"*";
Nextj
Nexti
EndSub
PrivateSubCommand2_Click()'圖案2
N=5'倒三角是5行
Cls
Fori=-N+1ToN-1
k=N-Abs(i)
PrintTab(N+1-k);
Forj=1To2*k-1
Print"*";
Nextj
Nexti
EndSub
PrivateSubCommand3_Click()'九九乘法表
Fori=1To9
Forj=1Toi
Printi&"*"&j&"="&i*j&"";
Ifi*j<10ThenPrint"";
Nextj
Nexti
EndSub