請問要如何用visual basic寫九九乘法表

Question

我們老師出了這麼一個作業給班上，
目前還沒有一個同學作出來，
請各位幫幫忙，要如何用visual basic寫出如下的九九乘法表

1×1=1 1×2=2 1×3=3 1×4=4 1×5=5 1×6=6 1×7=7 1×8=8 1×9=9
2×2=4 2×3=6 2×4=8 2×5=10 2×6=12 2×7=14 2×8=16 2×9=18
3×3=9 3×4=12 3×5=15 3×6=18 3×7=21 3×8=24 3×9=27
4×4=16 4×5=20 4×6=24 4×7=28 4×8=32 4×9=36
5×5=25 5×6=30 5×7=35 5×8=40 5×9=45
6×6=36 6×7=42 6×8=48 6×9=54
7×7=49 7×8=56 7×9=63
8×8=64 8×9=72
9×9=81

Answer 1

Private Sub Command1_Click()
Dim I As Integer, J As Integer, K As Integer
For I = 1 To 9
For K = 2 To I
Print ,
Next
For J = I To 9
Print I & "*" & J & "=" & J * I,
Next
Print
Next
End Sub

Answer 2

Private Sub Command1_Click()
For i = 1 To 9
Print Space((i - 1) * 11);
For j = i To 9
Print i & "*" & j & "=" & i * j & " ";
Next j
Print
Next i
End Sub

Answer 3

Private Sub Command1_Click()
Dim num(1 to 9,1 to 9) as integer
For i = 1 to 9
For j =1 to 9
num(i,j)=i*j
print num(i*j),
next j
print
next i
End Sub
或是
Private Sub Command1_Click()
For i = 1 to 9
For j = 1 to 9
Form1.Print i & "*" & j & "=" & i * j,
next j
(Form1.print)
next i
End Sub