用VB实现答应三角九九乘法表~~

Private Sub Command1_Click()
Dim i, j As Integer
For i = 1 To 9
For j = 1 To i
Label1.Caption = Label1.Caption & i & " * " & j & " = " & i * j & " "
Next j
Label1.Caption = Label1.Caption & vbCrLf
Next i
End Sub

上三角九九乘法表：
Private Sub form_click()
Dim i As Integer, j As Integer
For i = 1 To 9
For j = 1 To 9
If i >= j Then
se = i & "x" & j & "=" & i * j
Print Tab((j - 1) * 9 + 1); se;
End If
Next j
Print
Next i
End Sub
下三角九九乘法表：
Private Sub form_click()
Dim i As Integer, j As Integer
For i = 1 To 9
For j = 1 To 9
If i <= j Then
se = i & "x" & j & "=" & i * j
Print Tab((j - 1) * 9 + 1); se;
End If
Next j
Print
Next i
End Sub