vb制作的下九九乘法表

测试OK了
Private Sub Form_Load()
Me.AutoRedraw = True
For i = 1 To 9
For j = 1 To 9
If i < j Then Me.Print: Exit For
Me.Print j & "×" & i & "=" & i * j & " ";
Next j
Me.Print
Next i
End Sub

Dim i, j, s
For i = 1 To 9
For j = 1 To i
s = s & j & "×" & i & "=" & IIf(Len(i * j) < 2, i * j & " ", i * j) & " "
Next
s = s & vbCrLf
Next
print s

呵呵，急着下班写的：
for i=1 to 9
for j=1 to 9
a=i*j
print a;
next j
print
next i