20以内进位加法、退位减法练习题，VBA代码

'20以内进位加法、退位减法练习题，VBA代码

Sub 二十以内加减法()

    Cells.ClearContents '清空工作表

    For i = 1 To 10

        For j = i To 10 '只保留右上角

            Cells(i, j) = j & "+" & 10 - j + i & "=" '加法练习式

            Cells(i + 12, j) = 10 + i & "-" & j & "=" '减法练习式

        Next j

    Next i

End Sub