private Sub Form_Click() ’當窗體單擊時觸發此過程

Dim i,j as Integer ’宣告預設型別變數i（變體型）和長整型變數j

print ’在窗體上列印空白的一行

For i=1 To 9 ’設定迴圈 i 每次迴圈從1到9 預設步長1（每次迴圈加1）

’完整： for i = 1 to 9 step 1

For j=1 To i ’設定迴圈 j 每次迴圈從1到i的值 預設步長1（每次迴圈加1）完整： for i = 1 to i step 1

print left((str(j*j) & space(5),4);

’此語句錯誤應為：

’ Print Left(Str(j * j) & Space(5), 4)

’ print 在窗體中列印

’ left（str,n） 取str左邊的n個字元

’ str（n） 將n這個數值型轉換為字串型

’ space（n） 返回n個空格

’ 翻譯出來就是：

’ 在窗體中打印出 （j×j 的結果 加上5個空格）的左邊4個字元

Next j ’執行到這裡繼續迴圈j

print ’列印一行空白行

next i ’執行到這裡繼續迴圈i

End Sub ’結束過程