显示乘法表的值

Private Sub Form_Click()
Dim m As Long, n As Long, p As Long
For m = 1 To 9 and n=1 to 9
p = m * n
Next m and n
Print p
End Sub
-------------------------为什么这样写不行?有劳告知-----------------------

晕，这么强~~~~~~~~~~~
改为：
Private Sub Form_Click()
Dim m As Long, n As Long, p As Long
For m = 1 To 9
for n=1 to 9
p = m * n
Print m & "*" & n & "=" & p
Next n
Next m
End Sub

and能这样用吗？

For a = 1 To 9
For b = 1 To a
Print a; "*"; b; "="; a * b;
Next b
Print
Next a

上三角
Private Sub Form_Click()
Dim i, j As Integer
Dim s As String
Print Tab(35); "九九乘法表"
For i = 1 To 9
For j = i To 9
s = i & "×" & j & "=" & i * j
Print Tab((j - 1) * 9 + 2); s;
Next j
Print
Next i
End Sub
-----------------------------------------
下三角
Private Sub Form_Click()
Dim i, j As Integer
Dim s As String
Print Tab(35); "九九乘法表"
For i = 1 To 9
For j = 1 To i
s = i & "×" & j & "=" & i * j