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