怎么用VB打九九乘法表

三角形的九九乘法表

Private Sub Form_Load()
Dim i, j, s
For i = 1 To 9
For j = 1 To i
s = s & j & "×" & i & "=" & IIf(Len(i * j) < 2, i * j & " ", i * j) & " "
Next
s = s & vbCrLf
Next
MsgBox s
End Sub

Private Sub 确定_Click()
Dim i As Integer
Dim j As Integer
Dim str As String
Me.AutoRedraw = True
For i = 1 To 9
str = ""
For j = 1 To 9
str = str & i & "×" & j & " = "
str = str & i * j
str = str & vbTab
Next j
Print str
Next i
End Sub

Private Sub Form_Click()
Dim i As Integer, j As Integer, k As Integer
Me.AutoRedraw = True
Print Tab(30); "九九乘法表"
Print "*" & vbTab;
For i = 1 To 9
Print CStr(i) & vbTab;
Next
Print
For j