全国高等学校计算机等级考试（江西考区）
二级QBASIC上机测试模拟试卷十三
一、二、三题同一级的一、二、三题
四、程序修改题。
下面程序实现的功能是：求出300以内所有偶数的平方和。
Cls
INPUT "input along integer number-";n&
************found*******************
nn$ = Str$(n&)
t = Len(nn$)
For j = t To 2 Step -1
bn$ = bn$ + Mid$(nn$, j, 1)
Next j
Print Val(bn$)
***********found********************
End
请在found之间找出两处错误并修改正确。
五、程序填空题。
下面程序实现的功能是：从键盘输入经济年增长率r，计算多少年总量s可以增加到原来4倍，其中r,s均为单精度实型数，请在（1）、（2）处将程序补充完整。注意：不得增行或删行。也不得更改程序的结构。
Cls
INPUT r
s = 1!: i = 0
Do
s = s * (1 + r)
i = i + 1
Loop Until s >= 4!
Print i - 1; s
End
