vb题：输出九乘九表的上三角和下三角

上三角
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
Print Tab((j - 1) * 9 + 2); s;
Next j
Print
Next i
Print
Print
End Sub

看看 有什么不同

Private Sub Form_Click()
Dim a As Integer
Dim b As Integer
Dim c As String

For a = 1 To 9
c = ""
For b = 1 To a
c = c & a & "×" & b & "=" & a * b & vbTab
Next b
Print c
Next a
Print

For a =