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