二十以内进位加法，退位减法竖式（横式也行）

dongdonggege

各位老师，大家好，一年级正好学到100以内的加减法，麻烦各位老师，用VBA编一页Word，得数为100以内，两位数加减一位数，进位加法，退位减法，竖式最好，横式也行。
我想让学生做练习。

格式是8+63，63+8，也可以是63-8等等。
感谢。

ming0018

你这个是要自动出题是吗？

dongdonggege

ming0018 发表于 2024-4-29 15:58
你这个是要自动出题是吗？

就是的，这样方便。

ming0018

dongdonggege 发表于 2024-4-29 15:58
就是的，这样方便。

减法 都是 两位数减一位数 是么

dongdonggege

ming0018 发表于 2024-4-29 16:19
减法 都是 两位数减一位数 是么

不好意思，放学，刚到家，可以是一位数，减数也可以是两位数，是整十数，

ming0018

只做了加法，每次10题，你先看看能不能用吧，宏在文件里面了。

dongdonggege

ming0018 发表于 2024-4-29 17:29
只做了加法，每次10题，你先看看能不能用吧，宏在文件里面了。

刚做了一组，10题出现四题0-0，能改下减法吗？都是横式，能写成竖式吗？

gwjkkkkk

Option Explicit
Sub test()
    Dim ar, iRnd, i&, j&, k&, n&, iNum&, vTemp
    ReDim ar(1 To 30, 1 To 4)
    ReDim iRnd(1 To 3)
    Randomize
    For i = 1 To UBound(ar)
        For j = 1 To UBound(ar, 2)
            Do
                n = Int(2 * Rnd)
                iRnd(2) = Switch(n = 0, "-", n = 1, "+")
                For k = 1 To UBound(iRnd) Step 2
                    iRnd(k) = Int(100 * Rnd)
                Next k
                If iRnd(2) = "-" Then
                    If iRnd(1) < iRnd(3) Then vTemp = iRnd(1): iRnd(1) = iRnd(3):  iRnd(3) = vTemp
                End If
                iNum = IIf(iRnd(2) = "-", iRnd(1) - iRnd(3), iRnd(1) + iRnd(3))
            Loop Until iNum <= 100
            ar(i, j) = Join(iRnd, "") & "="
        Next j
        
    Next i
    With ActiveDocument
        .Range(0).Delete
        With .Tables.Add(Range:=Selection.Range, NumRows:=30, NumColumns:=4, DefaultTableBehavior:=wdWord9TableBehavior)
            .Range.ParagraphFormat.Alignment = wdAlignParagraphCenter
            .Range.Cells.VerticalAlignment = wdCellAlignVerticalCenter
            For i = 1 To UBound(ar)
                For j = 1 To UBound(ar, 2)
                    .Cell(i, j).Range.Text = ar(i, j)
                Next j
            Next i
        End With
    End With
End Sub

gwjkkkkk

请参考附件。。。

dongdonggege

gwjkkkkk 发表于 2024-4-29 20:46
请参考附件。。。

谢谢老师！能不能修改下。
进位加法，是两位数加整十数，或加一位数，可以进位。
退位减法，是两位数减整十数，或减一位数，可以退位。