一个粉丝朋友（本职工作是数学老师）私下问我如何使用Excel出题：100以内三个数混合加减？
工具/原料
1
电脑
2
Excel
1 函数法
2
B列和C列中，分别输入函数 =randbetween(-100,100) 表示B列和C列的数字都显示为-100到100的随机数字
3
正数添加 +使用if函数给B列和C列的数字添加 +=IF(B1>0,'+'&B1,B1)
4
使用函数concat生成公式如图所示，使用公式 concat函数，=concat(A1,F1,G1,'=')，来生成公式。具体见下图。
5
大家来看看最终效果，如果需要更换题库，只需要双击下即可哦。
2 VBA法
1
Step1: 按下【Alt+F11】Step2：插入模块，输入以下代码 Step3：单击运行按钮，可以发现数学题就生成啦。 Sub 数学题() j = 1 For m = 1 To 20 Dim a, b, c, d, e, f Do a = WorksheetFunction.RandBetween(1, 100) b = WorksheetFunction.RandBetween(-100, 100) c = WorksheetFunction.RandBetween(-100, 100) If b > 0 Then b = '+' & b If c > 0 Then c = '+' & c d = a & b e = a & b & c Loop While f Cells(j, 'A') = e & '=' j = j + 1NextEnd Sub
2
单击运行按钮，可以发现数学题就生成啦。