编一段Qbasic的程序

来源：百度知道 编辑：UC知道 时间：2024/06/27 21:37:52
只知道一部分的书名，输入这一部分的书名，能打印出来这一本书的全名。
事先要用read/data存储一些书名，用instr作出来
越快越好！

CLS
DIM a AS STRING,b AS STRING
DATA I , you , he（I,you,he只是个例子）
INPUT "",a
FOR i = 1 to 3
READ b
IF INSTR（b,a) <> 0 THEN PRINT b : c = 1 ：EXIT FOR
NEXT i
IF c = 0 THEN PRINT "data error!"
END