假定有下面的程序段：
Private Sub Form_Click()
    For i = 1 To 3
        For j = 1 To i
            For k = j To 3
                Print "i="; i, "j="; j, "k="; k
            Next k
        Next j
    Next i
End Sub

这是一个三重循环程序，在这个程序中，外层，中层和内层循环的次数分别是多少？

解：在多重循环中，外层循环变化一次，内层循环从头到尾执行一遍。该题是一个三重循环，而且中层循环变化的终值和内层循环变量的初值是随上一层循环的循环变量的变化而变化的，因此需要逐层加以计算后累加出各层的循环次数。

模拟计算机的计算过 程，计算各层的循环次数如下。
(1)外层循环：i= 1 To 3， 循环次数为3。

(2)中层循环：当i = 1时，j = 1 To 1，循环1次；
                    当i = 2时，j = 1 To 2， 循环2次
                    当i = 3时，j = 1 To 3， 循环3次；
   中层循环的循环次数一共为6。

(3)内层循环：当j = 1时，k = 1 To 3, 循环3次；
                    当j = 1时，k = 1 To 3, 循环3次；
                    当j = 2时，k = 2 To 3, 循环2次；
                    当j = 1时，k = 1 To 3, 循环3次*
                    当j = 2时，k = 2 To 3, 循环2次；
                    当j = 3时，k = 3 To 3, 循环1次；
   内层循环的循环次数一共为14。

因此，外层、中层和内层循环的循环次数分别为3、6和14。

来源：visual basic程序设计教程第四版答案(刘炳文)

本文链接：http://www.wb98.com/vb1/post/vb_7.15.html