全国高等学校计算机等级考试（江西考区）
二级QBASIC上机测试模拟试卷十二
一、二、三题同一级的一、二、三题
四、程序修改题
以下程序实现的功能是：小猴子第一天摘下若干个桃子，吃掉一半后，又多吃了一个。第二天早上，又将剩下的桃子吃掉一半，又多吃了一个，以后每天早上都吃了前一天剩下的一半另加一个，到第十天早上猴子再吃时，只剩下一个桃子了，请编程算出第一天猴子共摘了多少个桃子。
提示：设第n天桃子数为Xn，已知它是前一天的桃子数Xn-1的一半再减1，
即Xn=（1/2Xn-1）-1。
请在found之间找出两处错误并修改正确。
x = 1
For N% = 10 To 2 Step -1
Rem ******found*************************
x = (x / 2 - 1)
Rem *******found************************
Next N%
Print "the number of peaches is:"; x
End
五、程序填空题
以下程序实现的功能是：从键盘键入若干符号，统计大小写，数字及其它符号出现的个数，请在[1]、[2]处将程序补充完整。注意：不得增行或删行。也不得更改程序的结构。
Cls
INPUT a$
lcs$ = "": ucs$ = "": dgs$ = "": else$ = ""
For i = 1 To Len(a$)
z$ = Mid$(a$, i, 1)
[1] z$
Case "a" To "z"
lcs$ = lcs$ + z$
lc = lc + 1
Case "A" To "Z"
ucs$ = ucs$ + z$
uc = uc + 1
Case "0" To "9"
dgs$ = dgs$ + z$
dg = dg + 1
Case Else
else$ = else$ + z$
els = els + 1
[2]
Next i
Print "lower case"; lcs$; "len="; lc
Print "upper case"; ucs$; "len="; uc
Print "digit case"; dgs$; "len="; dg
PRINT "other case"; else$; "len="; els
End
