圖片:
乘法表打印實(shí)現(xiàn)如下



Dim se As String
Dim j As Integer
Dim i As Integer
For i = 1 To 9
' TextBox3.Text &= Space((i - 1) * 9)
For j = 1 To 9
se = i & " *" & j & "=" & i * j
TextBox3.Text &= se & Space(8 - Len(se))
Next j
TextBox3.Text &= vbCrLf
Next i