1s0WHILEs10ssjjj1
WENDPRINTjEND
运行程序输出结果是
19．x1y1WHILEx4Z0WHILEyx2ZZ1yy1WENDPRINTZxx1y1WENDEND
运行后输出的结果
20．INPUTxIFx100ANDx1000THENax＼100b（xa100）10cxmod10x100c10baPRINTxENDIFEND
上述程序如果输入x的值是351，则运行结果
是
21．x1
3DOkk1
k
xx2LOOPUNTILx
PRINT
xEND
程序运行结果是
f22．s0i1whilei10IFiMOD50THENss1ELSEssiENDIFii1we
dPRINTsEND
程序运行结果是
23．a1b1i2whilei5
aabbabii1we
dpri
ta，be
d
程序运行结果是
四、将下面程序的的空格中填上相应语句补充完整（每空2分，共20分）
24下面程序的作用为判断是否闰年（非闰年为不可被4整除，或能被100整除但不能被400整除的年份）。
INPUT“Year”yIFyMOD40THEN
ELSE
IF
THEN
Leapyear0
ELSE
Leapyear1
ENDIF
ENDIF
IFLeapyear0THEN
PRINT“No
LeapYear”
ELSE
PRINT“LeapYear”
ENDIF
END
25下面程序的作用是求
1111的值
123456
99100
i1
sum0
DO
sumsum
LOOPUNTILPRINTsumEND

f26下面程序是求1000以内被3整除余数为2，被7
整除余数为3的所有自然数之和
i1
s0
WHILEi1000
IF
THEN
ENDIFii1WENDPri
tsEND
27下面程序是求两正整数m
的最大公约数
INPUTm，
IFm
THEN
m
tENDIFrmmod
WHILEm
rrmmod
WEND
PRINT“thegreatestcommo
divisoris”；END
五、程序设计（共8分）28．（8分）完全数（Perfect
umber）是一些特殊的自然数：它所有的真因子即除了本身以外的约数的和，恰好等于它本身。例如第一个完全数是6，它有约数1、2、3、6，除去它本身6外，其余3个数相加，1＋2＋3＝6。又如：8的真因子是1，2，4，而1247，所以8不是完全数。按定义设计一个QBASIC程序找出500以内的完全数。
f参考答案
题号123456789101112
答案ACDDDBABBACD
13x0a
dx10144
152371AD16
16232
175
186
20153
211316
2223
24Leapyear0ymod1000a
dymod4000
251ii1ii2i99
26imod32a
dimod73ssi
27tmr0

28p2
whilep500
i1
s0
whilesp
ifpmodi0the

ssi
e
dif
ii1
we
d
ifps
pri
tp
e
dif
pp1
we
d
e
d
193456233455
精品推荐强力推荐值得拥有
精品推荐强力推荐值得拥有精品推荐强力推荐值得拥有精品推荐强力推荐值得拥有精品推荐强力推荐值得拥有精品推荐强力推荐值得拥有精品推荐强力推荐值得拥有精品推荐强力推荐值得拥有精品推荐强力推荐值得拥有精品推荐强力推荐值得拥有精品推荐强力推荐值得拥有精品推荐强力推荐值得拥有精品r