Dim i, j, m
For i = 1 To 9
For j = 1 To i
If i * j > 9 Then
m = ""
Else
m = " "
Print j; "*"; i; "="; m; i * j;
End If
If j Mod i = 0 Then Print
Next j
Next i
为什么不行呢?
Dim i, j, m
For i = 1 To 9
For j = 1 To i
Print j; "*"; i; "="; i * j;
If j Mod i = 0 Then Print
Next j
Next i
这个就行 就是不是很齐
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 Form_Load()
Dim i As Integer, j As Integer, k As Integer
Me.AutoRedraw = True
Print Tab(30); "九九乘法表"
For i = 1 To 9
Next
Print
For j = 1 To 9
For k = 1 To j
Print CStr(j * k) & vbTab;
Next
Print
Next
End Sub