乘法表：
Private Sub Form_Click()
For i = 1 To 9
For j = 1 To i
Print j; "*"; i; "="; i * j;
If j = 2 And (i = 3 Or i = 4) Then
Print " ";
End If
Next j
Print
Next i
End Sub
运行图示：
