外迴圈確定將要列印多少行，內迴圈則要確定每一行要列印多少個*和多少個空格，自己把行數和每一行要列印的*和空格的個數列出來找規律，相當於高中時的數學歸納法。比如說：要列印三行*組成一個三角形,程式碼如下（圖形如下）： * *** ***** Private Sub Command1_Click() Dim i As Integer Dim j As Integer Dim k As Integer For i = 1 To 3 For j = 1 To 3 - i + 1 Print " "; Next j For k = 1 To 2 * i - 1 Print "*"; Next k Print Next i End Sub現在只能按照這個程式打印出的圖形分析，需要看圖形找規律。由於第三行的左邊也有一個空格，所以從上到下每行的第一顆*的左邊的空格數依次是3，2，1，相當於陣列中的a1,a2,a3（即列印空格那個迴圈的變數）；而行數是第1，2，3行,相當於陣列的下標（外迴圈的變數） 則有1 32 23 1. .. .. .i j不難看出有：j=3-i+1 (等差數列)列印*的問題也可以這樣推斷出來。
外迴圈確定將要列印多少行，內迴圈則要確定每一行要列印多少個*和多少個空格，自己把行數和每一行要列印的*和空格的個數列出來找規律，相當於高中時的數學歸納法。比如說：要列印三行*組成一個三角形,程式碼如下（圖形如下）： * *** ***** Private Sub Command1_Click() Dim i As Integer Dim j As Integer Dim k As Integer For i = 1 To 3 For j = 1 To 3 - i + 1 Print " "; Next j For k = 1 To 2 * i - 1 Print "*"; Next k Print Next i End Sub現在只能按照這個程式打印出的圖形分析，需要看圖形找規律。由於第三行的左邊也有一個空格，所以從上到下每行的第一顆*的左邊的空格數依次是3，2，1，相當於陣列中的a1,a2,a3（即列印空格那個迴圈的變數）；而行數是第1，2，3行,相當於陣列的下標（外迴圈的變數） 則有1 32 23 1. .. .. .i j不難看出有：j=3-i+1 (等差數列)列印*的問題也可以這樣推斷出來。