qbasic编

来源：百度知道编辑：UC知道时间：2024/04/28 08:57:26

从键盘上读入数据，当首次读到10时，输出是第几个数据，若已读了10个数据仍不出现10，则停止读数，输出0

DIM A(10)
FOR I=1 TO 10
INPUT A(I)
IF A(I)=10 THEN PRINT I: END
NEXT I
PRINT "0"
题目我可以解出来，一楼的回答好像有一点问题，END IF多些了一个，判断也有问题，还有没有输出结果。

DIM A(10)
FOR I =1 TO 10
INPUT A(I)
IF A(I)=10 THEN EXIT FOR
END IF
NEXT I
END IF
关键是的你的题目不详细，补充一下，谢谢～！

dim a(10)
for i=1 to 10
input a(i)
if a(i)=10 then print i:end
next i
print "0"

CLS
DIM A(20)
FOR I=1 TO 10
INPUT A(I)
IF A(I)=10 THEN PRINT I;:END
NEXT I
PRINT 0
是这样吗?