全国高等学校计算机等级考试（江西考区）
二级QBASIC上机测试模拟试卷三
一、二、三题同一级的一、二、三题
四、 程序改错题（20分）
以下程序从一批英文名字中找出姓”LI”者（中国人的姓名写成英文是名在前，姓在后）。
该程序有两处错误，请调试改正，但不得增删语句与行号
程序如下：
10 READ a$
20 DO WHILE $<> "end"
30 If Right(a$, 2) = "Li" Then Print a$
40 READ a$
50 Loop
60 DATA Li Li, Zhang Wang, Li Mao, Bin Xue
70 DATA Fun Ling, Gen Zhen, Bin Li, end
80 End
五、程序填空题
以下程序通过调用子程序求S=3！+5！+7！，然而，该程序是一个不完整的程序，请将其补充完整，
以便能得到正确的答案
10 S = 0
20 For I = 3 To 7 Step 2
30 GoSub 100
40 (1)
50 Print "S="; S: Next I
60 End
100 P = 1
110 For J = 1 To I
120 P = P * J
130 Next J
140 (2)
