玩了一下乘法口诀表,虽然很简单,希望后面后有进步吧。
Sub 乘法口诀表()
Dim i As Integer, j As Integer
Cells.Clear
For i = 1 To 9
For j = 1 To 9
If i >= j Then
Cells(i, j) = i & "*" & j & "=" & i * j
End If
Next j
Next i
End Sub
效果图如下:
玩了一下乘法口诀表,虽然很简单,希望后面后有进步吧。
Sub 乘法口诀表()
Dim i As Integer, j As Integer
Cells.Clear
For i = 1 To 9
For j = 1 To 9
If i >= j Then
Cells(i, j) = i & "*" & j & "=" & i * j
End If
Next j
Next i
End Sub
效果图如下: