Sub 打印九九乘法表（）
Dim i%, j%
For i = 1 To 9 Step 1
'j=i 例:數(shù)到第2列時，第2列的第一個不需要，即直接跳過了2*1=2
For j = i To 9 Step 1
Cells（j, i） = （i） & "×" & （j） & "=" & （i * j）
Next
Next
End Sub
Sub 制作九九乘法表（）
Dim a%, b%
For a = 1 To 9
For b = 1 To 9
If Cells（a, b）.Row >= Cells（a, b）.Column Then
Cells（a, b） = b & "×" & a & "=" & b * a
End If
Next
Next
End Sub
承擔(dān)因您的行為而導(dǎo)致的法律責(zé)任，
本站有權(quán)保留或刪除有爭議評論。
參與本評論即表明您已經(jīng)閱讀并接受
上述條款。