您所在位置：主题：[讨论]抄作业和做作业的都到这里来。
moz
[专家分：37620] 发布于 2005-05-26 18:20:00
为小学生编写一个一位数加法运算的练习程序。
先让学生选择难度：A，B
难度A：程序一共产生10道题（由计算机随机产生），在屏幕上依次显示各题，要求学生输入答案，每道题有两次回答机会。只要答对一次即给10分，两次都未答对不给分。
难度B：程序一共产生10道题（由计算机随机产生），在屏幕上依次显示各题，要求学生输入答案，每道题只给一次回答机会。答对给10分，未答对不给分。
每当所有题都答完时，在屏幕上显示本次练习成绩，并询问是否再来一次；选择“Y”，则重新选择难度，再来一次；选择“N”，退出练习程序。
要求用到WHILE-WEND语句。
defint a-z
print "是否开始练习？";
while ucase$(input$(1))="Y"
cls
input "请选择难度 A,B：";a$
a$=ucase$(rtrim$(a$))
if a$<>"B"then j=1 else j=2
f=0
for t=1 to 10
randomize timer
x=rnd*10
y=rnd*10
z=x+y
for i=1 to j
print
print "第";t;"题：";x;"+";y;"=";
input ;s
if s=z then
print "√";
f=f+10
exit for
else
print "×";
end if
next i,t
print
print "本次练习完成，你的成绩是";f;"分. 是否需要再来一次？(Y/N)";
wend
先让学生选择难度：A，B
难度A：程序一共产生10道题（由计算机随机产生），在屏幕上依次显示各题，要求学生输入答案，每道题有两次回答机会。只要答对一次即给10分，两次都未答对不给分。
难度B：程序一共产生10道题（由计算机随机产生），在屏幕上依次显示各题，要求学生输入答案，每道题只给一次回答机会。答对给10分，未答对不给分。
每当所有题都答完时，在屏幕上显示本次练习成绩，并询问是否再来一次；选择“Y”，则重新选择难度，再来一次；选择“N”，退出练习程序。
要求用到WHILE-WEND语句。
defint a-z
print "是否开始练习？";
while ucase$(input$(1))="Y"
cls
input "请选择难度 A,B：";a$
a$=ucase$(rtrim$(a$))
if a$<>"B"then j=1 else j=2
f=0
for t=1 to 10
randomize timer
x=rnd*10
y=rnd*10
z=x+y
for i=1 to j
print "第";t;"题：";x;"+";y;"=";
input ;s
if s=z then
print "√";
f=f+10
exit for
else
print "×";
end if
next i,t
print "本次练习完成，你的成绩是";f;"分. 是否需要再来一次？(Y/N)";
wend
