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 ’結束過程