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

gwjkkkkk

dongdonggege 发表于 2024-4-30 07:21
谢谢老师！能不能修改下。
进位加法，是两位数加整十数，或加一位数，可以进位。
退位减法，是两位数减 ...

没理解，模拟一下结果

dongdonggege

gwjkkkkk 发表于 2024-4-30 07:45
没理解，模拟一下结果

比如，
进位加法：24+6,24+60；
退位减法：63-6,63-60；像这样的。

413191246se

ming 老师：好久不见了！

gwjkkkkk

dongdonggege 发表于 2024-4-30 07:21
谢谢老师！能不能修改下。
进位加法，是两位数加整十数，或加一位数，可以进位。
退位减法，是两位数减 ...

Option Explicit
Sub test()
    Dim ar, iRnd, i&, j&, k&, m&, 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, "+")
                If iRnd(2) = "-" Then
                    iRnd(1) = Int(91 * Rnd + 10)
                    iRnd(3) = Int(100 * Rnd)
                Else
                    iRnd(1) = Int(100 * Rnd)
                    iRnd(3) = Int(100 * Rnd)
                End If
                If iRnd(2) = "-" Then
                    If iRnd(1) < iRnd(3) Then vTemp = iRnd(1): iRnd(1) = iRnd(3):  iRnd(3) = vTemp
                    m = Val(Right(iRnd(1), 1)) - Val(Right(iRnd(3), 1))
                Else
                    m = Val(Right(iRnd(1), 1)) + Val(Right(iRnd(3), 1))
                End If
                iNum = IIf(iRnd(2) = "-", iRnd(1) - iRnd(3), iRnd(1) + iRnd(3))
            Loop Until (m < 0 Or m > 10) And 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

gwjkkkkk 发表于 2024-4-30 07:45
没理解，模拟一下结果

请参考附件。。。

dongdonggege

gwjkkkkk 发表于 2024-5-1 12:54
请参考附件。。。

老师你好，请帮我编二年级数学题，https://club.excelhome.net/thread-1706737-1-1.html，麻烦了。