Private Sub Command1_Click()
Dim n As Integer, m As Integer, a As String
For n = 9 To 1 Step -1                               '课中所出的问题在此处用降序
For m = 1 To n                                          就可实现。道理就是多重循环中
a = " " & n & "*" & m & "=" & n * m          外层循环第一次后就进入内循环  
Picture1.Print Tab((m - 1) * 10 + 1); a;        ，且只有内循环在内部条件下实现 
Next m                                                      其全部循环过程后才回到外部循环 
Picture1.Print                                            ， 开始其外部循环的下一次循环。
Next n                                                       （这也是多重循环难理解的地方） 
End Sub

举例说明：当外循环 i = 1 执行完，进入内部循环，这时内循环执行的是 j 从1到9的循环，也就是要循环9次，产生9个结果，执行完后才回到外循环执行 i =2,接着再进入内循环9次~~~~~~依此往下只到i >9。Picture1.Print Tab((m - 1) * 10 + 1); a;该地方的注意不要把a后的分号丢了。