Private
Sub Mul()
Dim a, b, c As Integer
Text1.Text = ""
For a = 1 To 9
For b = 1 To a
c = b * a
Text1.Text = Text1.Text & b & "*" & a & "=" & c & ";"
Next b
Text1.Text = Text1.Text & Chr(13) & Chr(10)
Next a
End Sub
Private Sub Command1_Click()
Dim a, b, c, d As Integer
For b = 1 To 9
For a = 1 To b
c = b * a
If d < b And b <> 1 Then
Print
End If
Print a & "*" & b & "=" & c & " ";
d = b
Next
Next
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024