Question

EXCEL高阶问题，在线跪求高手解答。急急急~~

我想给孩子做个100以内连加连减随机出题器，但是问题是老是得出的数大于100求高手赐一算术结果不超过100的EXCEL出题公式或出题器。
出题示意是：0＞A+或-B+或-C=＜100
A+或-B+或-C=小于100 请高手将公式直接列出。
补充问题：
1：前面的三个数加减同样不超过100
2：不能为负数
麻烦各位达人了。

Answer 1

ctrl+N新建excel文件
F11，打开vba编辑器
菜单“插入”“模块”
将下列内容复制到模块中
---------------------------------------------
Sub ct()
Randomize
For i = 1 To 100
a = Int(Rnd() * 100 + 1)
b = Int(Rnd() * (100 - 1) - a)
c = Int(Rnd() * (100 - a - b) - a - b)
Cells(i, 1) = a & IIf(b >= 0, "+" & b, b) & IIf(c >= 0, "+" & c, c)
Cells(i, 2) = Evaluate(Cells(i, 1).Value)
Next i
End Sub
-----------------------------------------------------------
保存
关闭vba编辑器
保存excel表格
关闭excel表格
重新打开刚才保存的表格，打开时选择启动宏。
alt+f8，执行名为CT的宏
效果是
A1:A100是你要的式子
B1:B100是式子的答案.

追问

不好意思 小白了我 我这是2007版本的 我找不到插入里德模块选项啊

追答

alt+f11打开编辑器，上面忘记写alt+了
留下你的信箱或者QQ，我传给你文件吧

Answer 2

随机数用公式
=INT(RAND()*99+1)
这是生成1到100的随机整数。
即rand()*（最大数-最小数）+最小数，就是这个最大数与最小数之间的数，加上INT就是取整数。
可以用VBA来完成也可以直接输入公式完成。

Answer 3

A1：
=INT(RAND()*100)
B1：
=IF(RAND()>0.5,INT(RAND()*(100-A1)),-INT(RAND()*A1))
C1：
=IF(RAND()>0.5,INT(RAND()*(100-SUM(A1:B1))),-INT(RAND()*SUM(A1:B1)))
注：加法还是减法随机产生