VB打印九九乘法表

##左下角

Private Sub Command1_Click()
Print Tab(50); "9x9 乘法口诀表"
For i = 1 To 9
For j = 1 To i
Print "  " & i & "x" & j & "=" & i * j,
Next j
Print ""
Next i
End Sub

结果：

##左上角

Private Sub Command1_Click()
Print Tab(50), "9x9 乘法口诀表"
Dim i, j As Integer
For i = 1 To 9
  For j = i To 9
   Print i; "*"; j; "="; i * j,
 Next j
   Print ""
Next i
End Sub

结果：

##右上角

Private Sub Command1_Click()
Print Tab(60); "9x9 乘法口诀表"
Dim i, j, k, s As Integer
For i = 1 To 9
   For j = 1 To i - 1
   Form1.Print "",
       Next j
' Print "",
   For k = i To 9
   s = i * k
   Form1.Print i; "x"; k; "="; s,
       Next k
  Print ""
    Next i
End Sub

结果：

##右下角

Private Sub Command1_Click()
Print Tab(60), "9x9  乘法口诀表"
Dim i, j, k As Integer
For i = 1 To 9
   For j = i To 9
   Print "",
   Next j
   k = 10 - i
   For j = 1 To i
   Print i; "*"; k; "="; i * k,
   k = k + 1
   Next j
   Print ""
Next i
End Sub

结果：