A1 B1 C1 D112 + 6A1公式=round(20*Rand(),0)B1输入+或-C1公式=round(20*Rand(),0)D1公式="="&IF(B1="+",A1+B1,IF(B1="-",A1-B1,""))空白单元格上按删除键就重新生成随机数
var a,b,c:longint;begin randomize; a:=randomize(21); b:=randomize(21);c:=a+b;write(c);end.
楼上的公式错啦,应该是:A1 B1 C1 D112 + 6A1公式=round(20*Rand(),0)B1输入+或-C1公式=round(20*Rand(),0)D1公式="="&IF(B1="+",A1+C1,IF(B1="-",A1-C1,""))空白单元格上按删除键就重新生成随机数
从百度文库中搜索,有现成的这种随机编程Excel文件,下载运行即可,也容易看懂。