在VB里输出九九乘法表

Private Sub Form_click()
For a = 1 To 9
For b = 1 To a
Print b; "*"; a; "="; b * a;
Next b
Print
Next a
End Sub

Private Sub Form_click()
For a = 1 To 9
For b = 1 To a
Print b; "*"; a; "="; b * a;
Next b
Print
Next a
End Sub
Private Sub Form_Load()
Me.AutoRedraw = True
Cls
For j = 1 To 9
For k = 1 To 9
If k > j Then Exit For
Print k & "*" & j & "=" & j * k; " ";
Next k
Print
Next j
End Sub
Private Sub Form_Click()
Dim i, j As Integer
For i = 1 To 9
For j = i To 9
Line (i * 200, j * 250)-(i * 200, j * 250)
ForeColor = i * j * 253
Print Space((i - 1) * 6); i & "×" & j & "=" & i * j
Next j
Next i
End Sub

Private Sub