编一页连加连减加减混合算式

dongdonggege

各位老师大家好，

在小学一年级数学的教学中，想出一些习题，检验一下学生的学习情况，我只想出一些连加、连减，还有一些加减混合的试题。
本来我以为很简单，弄了后才知道，好像不太好出题，论坛里面也没有这样的例题。
哪位老师帮帮我，这是我手工制作的体型，这些体型是随机的。
有这么几个要求：
1、字号4号，每行5题，22行，算式110题，每题算式右边空格4个。
2、一年级的题目，属于10以内的加减法。每个数小于等于10，每次计算的得数小于等于10，最后的得数小于等于10。比如A+B-C，A+B<=10，A+B-C<=10。无论A+B+C，A-B-C，A-B+C。
3、题型随机，题型有连加、连减、加减混合。
大概就是这些，恳请老师出手。

vbee

EXCEL那边很多，这不考虑用WORD

dongdonggege

我自己弄了一个连加的，效果不是理想。

dongdonggege

vbee 发表于 2023-11-16 10:44
EXCEL那边很多，这不考虑用WORD

老师有兴趣的话，试试。

dongdonggege

论坛里的高手呢，难道对这个不感兴趣？

过客fppt

下面是生成一个，自己调整一下

Sub 随机生成10以内的加减法()
    Dim num1 As Integer
    Dim num2 As Integer
    Dim num3 As Integer
    Dim result1 As Integer
    Dim result2 As Integer
   
    Randomize '初始化随机数生成器
   
    '生成三个随机数
    num1 = Int(Rnd() * 10)
    num2 = Int(Rnd() * 10)
    num3 = Int(Rnd() * 10)
   
    '计算两个结果
    result1 = num1 + num2 + num3
    result2 = num1 + num2 - num3
   
    '判断结果是否小于10
    If result1 < 10 Then
        '将计算式插入到文档中
        Selection.TypeText text:=num1 & "+" & num2 & "+" & num3 & "=" & result1 & ","
    End If
   
    If result2 < 10 Then
        '将计算式插入到文档中
        Selection.TypeText text:=num1 & "+" & num2 & "-" & num3 & "=" '& result2 & ","
    End If
End Sub

batmanbbs

过客fppt 发表于 2023-11-16 18:02
下面是生成一个，自己调整一下

Sub 随机生成10以内的加减法()

                                                           

过客fppt

batmanbbs 发表于 2023-11-16 23:41
不是10以内运算吗，不用随机生成三个数，两个数就行，然后用10 - 两个数的和/差，算出第3个数

谢谢指点，不过感觉这样的话，好像每个算式的答案都是10

dongdonggege

过客fppt 发表于 2023-11-16 18:02
下面是生成一个，自己调整一下

Sub 随机生成10以内的加减法()

我上面说了，加减混合的，要求A+B<=10，同时A+B-C<=10；A-B<=10，同时A-B+C<=10。能不能改下，A+B<=10，且>=0；A-B+C<=10，且>=0。
你的程序来了一个7+7-9=，第一步就超过10。

dongdonggege

讲乱了，A+B<=10，A+B-C<=10。
要求：A+B<=10 且>=0；同时A-B+C<=10 且A-B+C>=10。