急求！QBasic检索问题

来源：百度知道 编辑：UC知道 时间：2024/06/08 19:35:04
已知10个同学的学号（XH)和成绩(CJ)，要求：输入学号，输出该学号同学的成绩。（用QBasic语言编写）
谢谢！

DIM A(10)
DIM B(11) AS STRING
FOR I=1 TO 10
INPUT A(I),B(I)
NEXT I
INPUT "请输入学号”；B（11）
FOR I=1 TO 10
IF B（11）=B（I）THEN PRINT A（I）
NEXTI
END

100 input xh1'好多年没用了，关键字没错吧？
110 for i=1 to 10
120 if xh(i)=xh1 then print cj(i)'输出语句是啥来着？
130 next i
140 end
'大概是这样吧？

cls
data 1,2,3… '在此就不一一列举了
data 90,89,88…
dim a(1 to 10）,b(1 to 10)
for i=1 to 10 '以下为读入数据语句
read a(i)
next i
for i=1 to 10
read b(i)
next i
input "shu ru xue hao:"x
if a(x)=b(x) then print b(x)
end
如果嫌我比楼下得多的话，那是因为他没写读入数据语句。
和高兴帮助你！

呵呵，还是有许多人记得qbasic啊。