生成一段可以运行的有意思的vba代码带中文注释

Sub 九九乘法表() '定义变量i和j Dim i As Integer, j As Integer

'循环9次，控制乘法表的行数
For i = 1 To 9
    '循环i次，控制乘法表的列数
    For j = 1 To i
        '输出i*j，即乘法表的每个元素
        Debug.Print j & "×" & i & "=" & i * j & "   ";
    Next j
    '换行
    Debug.Print ""
Next i

End Sub

' 运行结果如下： '1×1=1
'1×2=2 2×2=4
'1×3=3 2×3=6 3×3=9
'1×4=4 2×4=8 3×4=12 4×4=16
'1×5=5 2×5=10 3×5=15 4×5=20 5×5=25
'1×6=6 2×6=12 3×6=18 4×6=24 5×6=30 6×6=36
'1×7=7 2×7=14 3×7=21 4×7=28 5×7=35 6×7=42 7×7=49
'1×8=8 2×8=16 3×8=24 4×8=32 5×8=40 6×8=48 7×8=56 8×8=64
'1×9=9 2×9=18 3×9=27 4×9=36 5×9=45 6×9=54 7×9=63 8×9=72 9×9=8