回 帖 发 新 帖 刷新版面

主题:求一个1000以内加减法自动出100题程序!

谢谢各位大哥哥大姐姐帮我一下!这是学校兴趣小组的老师留的思考题目!!

回复列表 (共8个回复)

沙发

求一个1000以内加减法自动出100题程序!

板凳


3 楼

把问题说清楚 到底啥意思 是要100道题目吗?

4 楼

你说这题让我想起了我在学习机上玩BASIC的时候,怀念!我在学习机上编出来过

5 楼

1000以内的正数+-*/的题:
   CLS
   FOR i = 1 TO 100
10 x = INT(RND * 6 + 2) + 40
   IF x = 44 THEN
   GOTO 10
   ELSEIF x = 46 THEN
   GOTO 10
   END IF
   PRINT (RND * 1000 + 1); CHR$(x); (RND * 1000 + 1); "="
   NEXT i
   END
如果要1000以内正整数+-*/的题:
   CLS
   FOR i = 1 TO 100
10 x = INT(RND * 6 + 2) + 40
   IF x = 44 THEN
   GOTO 10
   ELSEIF x = 46 THEN
   GOTO 10
   END IF
   PRINT INT(RND * 1000 + 1); CHR$(x); INT(RND * 1000 + 1); "="
   NEXT i
   END

6 楼

用rnd语句吧,不过要分开出题(加减)

7 楼

请问6楼是什么意思呀????????[em15]

8 楼

用RND生成随机数组成算式就是了。。。。。

我来回复

您尚未登录,请登录后再回复。点此登录或注册