编写VBA程序辑器

编写VBA程序辑器

Public Sub 九九乘法表()
Dim i, j, result As Integer     '立即窗口中输出
Dim str As String
For i = 1 To 9
For j = 1 To i
result = i * j
str = str & j & "×" & i & "=" & result & ""
Next j
str = str & vbCrLf      '完成一次内循环要换行一次，vbCrLF是换行符
Next i
Debug.Print str
End Sub

结果