自己动手编写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
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