Private Sub Form_Click()
Dim i As Integer, j As Integer
For i = 1 To 9
For j = 1 To i
Print j & "*" & i & "=" & i * j,
Next j
Print
Next i
End Sub
i=1
j=1
for i = 1 to 9
for j= 1 to 9
print i & " * " & j & " = " & i*j
print " "
if i = j then exit for
next
print chr(13)
next
Private Sub Form_Click()
For i = 1 To 9
For j = i To 9
Print i & "*" & j & "=" & i * j & " ";
Next j
Print
Next i
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024