Sub testNest()Dim i AsIntegerDim j AsIntegerDim s AsString
s =""For i =1To9For j =1To9If i <= j Then
s = s & i &"*"& j &"="& i * j
If j <>9Then
s = s &", "EndIfEndIfNext
s = s & vbLf
Next
MsgBox s
EndSub
Sub TwodimensionalArray()Dim i AsIntegerDim j AsIntegerDim arr(1To9,1To9)AsIntegerFor i =1To9For j =1To9
arr(i, j)= i * j
NextNextDim s AsString
s =""For i =1To9For j =1To9If i <= j Then
s = s & i &"*"& j &"="& arr(i, j)If j <>9Then
s = s +", "EndIfEndIfNext
s = s + vbLf
Next
MsgBox s, vbOKCancel, "九九乘法表"
EndSub
Sub testDoLoop() Dim i As Integer Dim j As Integer Dim s As String s = "" For i = 1 To 9 For j = 1 To 9 If i <= j Then s = s & i & "*" & j & "=" & i * j