Dim i, j As Integer '實現9 X 9乘法口訣
For i = 1 To 9
For j = 1 To i
Print i; "*"; j; "="; i * j;
Next j
Print
Next i
End Sub