关于乘法口决 显示出三角形的 样子。。。谁给我写这个程序呀？分两边显示

Question

Private Sub Form_Click()
FontSize = 10
Print Tab(30); "9*9 table:)"
Print: PrintPrint Tab(31); " *  ";For i = 1 To 9
Print Tab(i * 3); (10 - i);
Next iFor k = 1 To 9
Print Tab(32 + k * 3); k;
Next k
For j = 1 To 9
     For s = 1 To j
         temp = j * s
         Print Tab(30 - s * 3); temp;
     Next s
         Print Tab(31); j;     For t = 1 To j
         temp1 = j * t
         Print Tab(32 + t * 3); temp1;
     Next t
Next j
End Sub

Answer 1

Private Sub Form_Click()
Dim a99(9, 9) As Integer
Dim i As Integer, j As Integer, k As IntegerPrintFor i = 0 To 8
  a99(i + 1, 0) = i + 1
  a99(0, i + 1) = i + 1
Next i
For i = 0 To 9
  For j = 0 To 9
     If i <> 0 And j <> 0 Then k = i * j Else k = i
     If i = 0 And j > 0 Then k = j
     If k > 9 Then
       Print Space(5) + Trim(Str(k));
     Else
       Print Space(5) + Str(k);
     End If
  Next j
  Print
Next i
End Sub

Answer 2

这样就行了，呵呵： 
Private Sub Form_Click()
Dim i As Integer, j As Integer, k As IntegerPrint
For i = 0 To 9
  For j = 0 To 9
     If i <> 0 And j <> 0 Then k = i * j Else k = i
     If i = 0 And j > 0 Then k = j
     If k > 9 Then
       Print Space(5) + Trim(Str(k));
     Else
       Print Space(5) + Str(k);
     End If
  Next j
  Print
Next i
End Sub