[讨论]大家帮我看下这个那么改,我不知道错到那了

主题：[讨论]大家帮我看下这个那么改,我不知道错到那了

abcdk10 [专家分：0] 发布于 2006-09-21 19:28:00

CLS
RANDOMIZE

k = 1
30 z = 1000
m = 4000
r = 1
ssx=4

a = INT((z - r + 1) * RND + r)
s = INT((m - r + 1) * RND + r)
a%= INT((ssx-r ) * RND )
b%= INT((ssx-r ) * RND )

if a%=1 then m%="+"
if a%=2 then m%="-"
if a%=3 then m%="*"
if a%=4 then m%="/"

if b%=1 then n%="+"
if b%=2 then n%="-"
if b%=3 then n%="*"
if b%=4 then n%="/"

y = a m% s n% s
PRINT y
PRINT a; a%; s; b%; s; "=?":INPUT "huei da zhe dao ti~~~!! :", x
IF y <> x THEN PRINT "ni huei da cuo la~~~da an wei~~!!", y

IF y = x THEN k = 2
IF k = 2 THEN PRINT "gong xi ni huei da zheng qie ~~~hehe": END
GOTO 30

END

'提示这个错了不知道那么弄大家帮下忙哈:Expected: end-of-statement

本帖地址： http://bbs.pfan.cn/post/193528.html

回复列表（共5个回复）

沙发

abcdk10 [专家分：0] 发布于 2006-09-21 21:02:00

我找到解决办法了

CLS
RANDOMIZE
k = 0
40 r = 1
ssx = 4

IF k = 10 THEN PRINT "ni ke yi tuei chu l": END

u = INT((ssx - r + 1) * RND + r)
i = INT((ssx - r + 1) * RND + r)

IF u = 1 THEN x$ = "+": k = k + 1
IF u = 2 THEN x$ = "-": k = k + 1
IF u = 3 THEN x$ = "*": k = k + 1
IF u = 4 THEN x$ = "/": k = k + 1
IF i = 1 THEN y$ = "+": k = k + 1
IF i = 2 THEN y$ = "-": k = k + 1
IF i = 3 THEN y$ = "*": k = k + 1
IF i = 4 THEN y$ = "/": k = k + 1
PRINT x$, y$, u, i, k
RANDOMIZE
GOTO 40

END

还要感谢 moz 我在他的主题：超长数运算里看到了我要的答案,看来还得多看下帖子哦.
但是运行后开始都是那几个,也不是很随即嘛,,那么搞定它不出来都是那就个数?
高手帮下忙呀

板凳

maxumi [专家分：2200] 发布于 2006-09-22 07:50:00

CLS
[color=red]RANDOMIZE TIMER[/color]
k = 0
40 r = 1
ssx = 4

IF k = 10 THEN PRINT "ni ke yi tuei chu l": END

u = INT((ssx - r + 1) * RND + r)
i = INT((ssx - r + 1) * RND + r)

IF u = 1 THEN x$ = "+": k = k + 1
IF u = 2 THEN x$ = "-": k = k + 1
IF u = 3 THEN x$ = "*": k = k + 1
IF u = 4 THEN x$ = "/": k = k + 1
IF i = 1 THEN y$ = "+": k = k + 1
IF i = 2 THEN y$ = "-": k = k + 1
IF i = 3 THEN y$ = "*": k = k + 1
IF i = 4 THEN y$ = "/": k = k + 1
PRINT x$, y$, u, i, k
[color=red]RANDOMIZE[/color] '<------请把这一句杀掉
GOTO 40

END

3 楼

moz [专家分：37620] 发布于 2006-09-22 11:34:00

for k=1 to 5 : PRINT mid$("+-*/",rnd*3+1,1),mid$("+-*/",rnd*3+1,1) : next

不知道你需要的是什么,
如果需要每次得到不同的值,
你应该要在每次 randomize 提示你输入种子数的时候输入不同的种子值就可以了.

4 楼

maxumi [专家分：2200] 发布于 2006-09-22 14:48:00

[quote]
如果需要每次得到不同的值,
你应该要在每次 randomize 提示你输入种子数的时候输入不同的种子值就可以了.[/quote]

RANDOMIZE TIMER不就行了?

5 楼

abcdk10 [专家分：0] 发布于 2006-09-22 18:35:00

真的很感谢大家的帮忙,
在帮我看下这个
y = a m$ s n$ s
那么才能让它计算并成y的变量?

我来回复

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

主题：[讨论]大家帮我看下这个那么改,我不知道错到那了

回复列表（共5个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

主题：[讨论]大家帮我看下这个那么改,我不知道错到那了

回复列表 （共5个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

回复列表（共5个回复）