无论是For循环还是Do循环，它们的循环体中还再次可以包含循环语句，这样就形成了循环嵌套（也叫多重循环）。在VB中，For循环和Do循环可以互相嵌套。
u循环嵌套的结构
内层循环必须完整地嵌套在外层循环之内，即内层循环是外层循环体的一部分，内外层循环不能交叉。例如：
v循环嵌套的执行过程
多重循环的执行由里向外展开，即先执行内层循环，再执行外层循环。例如，一个三重循环的执行过程与钟表的秒针、分针和时针的运转类似。
问题 以下程序段，每层循环各执行多少次？写出运行结果。
ForI = 1 To 3
Print "######"
For J = 1 To 2
Print "@@@@@@"
For K = 1 To 2
Print "******"
Next K
Next J
Next I
例题3：计算S=1！+2！+3！+……+20！
Private Sub Form_Click()
DimS As Single, temp As Single
Dim I As Integer, J As Integer
S = 0
For I = 1 To 20
temp = 1
For J = 1 To I
temp = temp * J
Next J
S = S + temp
Next I
Print "1!+2!+……20!=", S
End Sub
例题4：找出100~999之间的所有水仙花数。所谓水仙花数，也叫阿姆斯特朗数，是指这样三位数：它的各位数字的立方和等于它本身。例如：407=43+03+73。
Private Sub Form_Click()
Dim I As Integer, a As Integer
Dim b As Integer, c As Integer
For I = 100 To 999
a = I \ 100
b = (I - 100 * a) \ 10
c = I - 100 * a - 10 * b
If I = a^3 + b^3 + c^3 Then PrintI
Next I
End Sub