QBasic程序设计基础

1、 农广校-QBasic程序设计自测题 24 QBasic程序设计基础一. 选择题（从给出的A,B,C,D答案中，选出一个正确的答案）1.NEW 在QBASIC 语言中是用于【 】。A)清内存 B)清屏幕 C)从磁盘上读入文件 D)往磁盘上写入文件2. 表达式INT（-0.00001）的值是【 】。A) 0 B) 1 C)出错 D) 13. 表达式INT（-0.01）+INT（-10）+ABS（-10）的值是【 】。A) -1 B) 1 C)-2 D)04. 下列语句中正确的是【 】 A) 10 LET x，y，z=1 B) 10 A=C+D C) 10 S=R2 D) 10 LET 20=SI

2、N(x)5.表达式INT(-17.8)+ABS(-17.8)的结果是【 】 A)0.8 B)0 C)-0.2 D)-34.86.数组X(2,3)共有【 】个元素 A)6 B)12 C)7 D)57.下面哪一个是BASIC语言中的字符常量【 】A)ABCB)E+5C)“1E-2” D)1E-28在BASIC语言中，常数126.66所表示的数的类型是【 】A)整数B)实数C)双精度型 D)复型9.表达式33*3/3 MOD 3 的值是【 】A)1 B)-1 C)2 D)-210. 下列四条数组说明语句中语法正确的是【 】。A) DIM A10 B) DEF A(10) C) DIM A(10) D

3、) DIMENSION A(10)11. 数学关系表达式10099的值是【 】 A)T B)0 C)-1 D)Y13. 字符型关系表达式”100”99”的值是【 】 A)T B)0 C)-1 D)N15. 字符型关系表达式”100”=”99”的值是【 】 A)T B)0 C)-1 D)Y16. 语句PRINT 26 MOD 7运行时输出结果为【 】。A）3 B）4 C）5 D）6 17. 下面程序运行时的输出结果是【 】。10 PRINT 99+05+2520 ENDA)15 B)990525 C)1.5 D)1.53.510 18. 语句 10 PRINT SGN(-62) 运行时输出的结果

4、为【 】。 A) 1 B) 36 C) 1 D)019.语句 10 PRINT SGN(-32)+ABS(-32)+INT(-32) 运行时输出的结果为【 】。 A) 17 B) 27 C) 1 D) 120.在用DIM语句定义一个以上的数组时，数组名之间用【 】隔开。 A）空格 B）逗号 C）分号 D）冒号21.语句10 DIM A(10) 定义的数组有【 】个元素。 A) 9 B) 10 C) 11 D) 1222.语句10 DIM B20(20,20) 定义的数组有【 】个元素。 A) 20 B) 40 C) 400 D) 44123.要将X,Y两个变量的值互换，正确的写法是【 】 A)

5、 100 X=Y:Y=X B) 100 Y=X:X=Y C) 100 T=X:X=Y:Y=T D) 100 X=T:T=Y:Y=X24.语句 10 PRINT INT(8.99) 运行时输出的结果为:【 】。A) 7 B) 8 C) 9 D)1025.语句 10 PRINT INT(-6.87)运行时输出的结果为:【 】。A) -6 B) -7 C) -8 D) 926.语句 10 PRINT INT(-4.99); INT(4.99) 运行时输出的结果为:【 】。A) -4 4 B) -5 4 C) -4 5 D) -5 527.变量A加B大于零和变量C加D大于零两个条件之一为真，但A必须大

6、于零的逻辑表达式是【 】。 A) A+B0 AND C+D0 AND A0 B) (A+B0 OR C+D0) AND A0 C) A+B0 OR C+D0 AND A0 D) (A+B0 AND C+D0) AND A028.QBASIC运行环境中, 三个逻辑运算符NOT,AND,OR在运算过程中,优先级从高到低的顺序是【 】A)ANDNOTOR B)NOTANDOR C)ORANDNOT D)NOTORAND29.列语句中正确的是【 】A)10 READ X3,Y4,Z5B)10READ X+3,X+5,X+6C)10 READ 3X,4Y,5ZD)10READ X3; Y4; Z530.

7、 QBASIC运行环境中, A!是【 】A)整型变量 B)单精度变量 C)双精度变量 D)字符串变量31.结构化程序设计的三种控制结构是【 】A)FOR/NEXT,WHILE/WEND和IF块语句B)子程序,过程和块IF语句.C)顺序结构,选择结构和循环结构 D)IF-THEN/ENDIF,FOR/NEXT32.表达式WINT (21.58)*3+2*X是【 】A)算术表达式 B)关系表达式 C)逻辑表达式 D)代数表达式33.下列表达式中结果为真的是【 】 A)”a”ABC” C)” B”A” D)” CD ” CD”34.下列表达式中结果为真的是【 】 A)”abcde”ABCDE”C)”

8、AB”ABCDE” D)”ABCD ”ABCD”35. 程序运行时，转子程序调用应当有一个【 】语句. A)RETURN B)GOSUB C)READ D)STOP36.执行PRINT USING “#.#%”;34.567的结果是【 】A)34.567 B)34.56 C)34.56% D)34.57%37.下列程序输出的结果是【 】10 PRINT “65”+”35”+”10”A)110B)653510C)65D)65+35+1038.在第10行第20列打印一个字符所用的定位语句是【 】A)LOCATE10,20 B)LOCATE20,10C)LINE 10,COLUMN 20 D)ROW

9、 10, COL 2039.语句 DIMA(4,5,6)定义的数组有【 】个元素. A)15 B)120 C)210 D)45640.序运行时输出的结果是【 】READ X,YPRINT SIN(X),COS(X)DATAPI/2,PI/2A) 01 B) 0.99999 -0.000001 C) 出错信息 D) 1 041.下面程序运行时输出的结果是【 】10READX，Y，X，Y20PRINTY30DATA1，2，3，440 ENDA）1B）2 C）3 D）442.行后X的值是【 】10 FOR X=5 TO 1 STEP -1 20 Y=X30 NEXT X40 ENDA) 5 B) 1

10、 C) 0 D) 243.下面程序运行时输出结果为【 】10 LET X=120 FOR I=1 TO 430 PRINT X;40 NEXT I 50 ENDA) 1 2 3 4 B) 1 1 1 1 C) 4 3 2 1 D) 2 3 4 544.下述程序运行时的输出结果为【 】10 A=320 B=A*A30 A=A+B:B=B+A40 PRINT A;B50 END A) 12 15 B) 12 3 C) 12 21 D) 21 12 45.执行下面程序后，I的值为【 】。10 FOR I=3 TO 10 STEP 220 PRINT I;30 NEXT I40 END A)5 B)7

11、 C)9 D)11 46. 执行下面程序后，输出结果为【 】 10 X$=1234567 20 PRINT LEN(X$) 30 ENDA)1234567 B)1234567 C)1和7 D)747.执行下面程序后，输出结果为【 】 10 A$=123 : B$=456 20 C=VAL(A$)+VAL(B$) 30 PRINT C 40 END A.）123 B）456 C）0 D）57948. 执行下面程序后，输出结果为【 】10 FOR K=1 TO 10 STEP 220 K=2*K 30 PRINT *;40 NEXT K50 PRINT60 END A) * * B) * * *

12、C) * * * * D) * * * * * 49.执行下面程序后，输出结果为【 】10 A=1.2 : B=321 20 C=LEN(STR$(A)+STR$(B) 30 PRINT C 40 END A) 3 B) 4 C) 6 D) 850.执行下面程序后，输出结果为【 】5 J=0:N=0 10 WHILE J3 THEN RESTORE50 DATA 1,2,3,5,460 NEXT I70 END A) 1 2 3 5 4 B) 1 2 3 1 2 5 C) 1 2 3 5 1 2 D) 1 2 3 5 4 1 59. 执行下面程序后，输出结果为【 】10 X=020 WHILE

13、 X2030 X=X+140 X=X*X50 WEND60 PRINT X70 ENDA)16 B)19 C)20 D)2560. 执行下面程序后，输出结果为【 】PRINT10 FOR K = 0 TO 320 ON K GOTO 30, 50, 7030 A = 140 PRINT K, A: GOTO 9050 B = 260 PRINT K, B: GOTO 9070 C = 380 PRINT K, C90 NEXT K100 ENDA) 0 0 B) 0 1 C) 1 0 D) 1 1 1 1 1 1 2 1 2 2 2 2 2 2 3 2 3 3 3 3 3 3 3 3 3 36

14、1.执行下面程序后，输出结果为【 】10 K=7 MOD 5 20 ON K GOTO 30,40,50 30 A=1 40 A=2 50 A=3 60 PRINT K;A 70 END A) 2 1 B) 2 2 C) 2 3 D) 1 262.下面的程序是有关数组的运算，选择结果【 】10 DIM A(3,3)20 FOR M=1 TO 330 FOR N=1 TO 340 IF N=M OR N=3-M+1 THEN A(M,M)=1 ELSE A(M,N)=050 NEXT N60 NEXT M70 FOR M=1 TO 380 FOR N=1 TO 390 PRINT A(M,N);

15、100 NEXT N110 PRINT 120 NEXT M130 END 此程序的运行结果是:A) 1 0 0 B)1 1 1 0 1 0 1 1 1 0 0 1 1 1 1C) 0 0 0 D)1 0 1 0 0 0 0 1 0 0 0 0 1 0 163. 选择运行结果【 】10 FOR X=1 TO 520 FOR Y=0 TO X-130 PRINT TAB(Y+X); CHR$(65+X);40 NEXT Y50 PRINT60 NEXT X70 END 此程序的运行结果是:A)B B)B CC CC DDD DDD EEEE EEEE FFFFF FFFFFC)BB D)A CC

16、C BB DDDD CCC EEEEE DDDD FFFFFF EEEEE64. 选择运行结果【 】10 LET X=020 LET Y=130 LET X=X+Y40 LET Y=Y+X50 IF X=20 THEN GOTO 3060 PRINT X; Y70 END 此程序的运行结果是:A)21 34 B)0 1 C)20 21 D)X Y65. 选择运行结果【 】10 DIM M(20)20 FOR I=1 TO 2030 M(I)=040 NEXT I50 N=1060 FOR I=1 TO N70 FOR J=1 TO N75 M(J)=M(I)+180 NEXT J85 NEXT

17、 I90 PRINT M(N)99 END 此程序的运行结果是:A)10 B)20 C)19 D)1166. 选择运行结果【 】10 X=120 GOSUB 4030 END40 DEF FNA(I)=X250 FOR I=1 TO 560 PRINT FNA(I);70 X=X+180 NEXT I90 RETURN 此程序的运行结果是:A） 1 2 4 8 16 B） 1 4 9 16 25C） 1 4 25 36 49 D） 1 4 16 49 12167. 此程序是用自定义函数的方法根据键盘输入不同的半径，求相应圆面积。请将程序补充完整。10 PI=3.1415920 DEF【 】=P

18、I*R230 INPUT R1=; R140 PRINT S=; FNS(【 】)50 END A）FNS() B）FNS(PI) C）FNS(R1) D）FNS(R) A) PI*R2 B)PI C)R1 D)R68. 此程序是求100之内的所有完备数。完备数是其各因子之和等于其本身的正整数。请将程序补充完整。10 FOR N=1 TO 10020 【 】30 S=040 WHILE AN50 IF 【 】 THEN S=S+A60 【 】70 WEND80 IF 【 】THEN PRINT N90 NEXT N100 END A）S=S+A B）A=A+1 C）S=N D）A=1 A）N

19、MOD A=0 B）A=0 C）N=0 D）NA=0 A)S=S+A B)A=A+1 C)A=A-1 D)A=1 A)SN B)AN C)S=N D)N MOD A=069.下列程序中,最内层循环体执行的次数共【 】10 FOR I=1 TO 320 FOR J=1 TO I30 FOR K=1 TO J40 NEXT K50 NEXT J60 NEXT I70 ENDA)10 B)6 C)9 D)370.下列程序输出的结果是【 】10FOR K=1 TO 220FOR L=1 TO K30PRINT “1”;40NEXT L50NEXT K60 ENDA)1 B)11 C)111D)1111

20、71.下列程序执行的结果是【 】10 A$=”123”:B$=”456”11 C=VAL(A$)+VAL(B$)12 PRINT C10013 ENDA)123B)3 C)5D)57972. 下列程序执行的结果是【 】 10 FORX=1 TO 220 A=021 FOR Y=0 TO X-122 A=A+123 NEXT Y24 PRINT A;25 NEXT X26 ENDA)1 B)3 C)1 2 D)2 373. 下列程序运行时输出的结果是【 】 10 DEFFNA(X,Y)=X*Y+7*X 20 X=3:Y=430 PRINT FNA(X,Y)+331 ENDA)36 B)43 C)

21、37 D)4474. 下列程序运行时输出的结果是【 】 10 DEFFNA(A,B,C)=A+B*C20 X=3:Y=4:Z=421 ABC=FNA(Z,Y,X)22 PRINT “ABC=”;ABC23 ENDA)ABC=12 B) ABC=17 C) ABC=23 D) ABC=6075. 下列程序运行时输出的结果是【 】10 S=011 FOR J=1 TO 1012 READ X13 IF X/3=INT(X/3) OR X/5=INT(X/5) THEN S=S+X14 NEXT J15 PRINT “S=”;S16 DATA1,3,5,7,9,11,13,15,17,1917 EN

22、DA)27 B)20 C)32 D)3776. 下列程序运行时输出的结果是【 】10 FOR J=0 TO 1011 READ A(10)12 NEXT J13 PRINT “A0=”;A(0)14 DATA 1.88,2.55,3.66,6.66,8,77,90.5,0,36.5,55.5,3315 ENDA)A0=1.88 B)33C)A0=A D)A0=077. 下列程序运行时输出的结果是【 】5 J=010 WHILE J3020 J=(J+1)*(J+1)30 N=N+140 WEND50 PRINT N51 ENDA)0 B)3 C)4 D)2978. 下列程序运行时输出的是【 】

23、 10 DIM A(10)20 FOR J=6 TO 1021 READ A(J)22 NEXT J23 PRINT A(0)+A(A(6)/A(10)24 DATA 1,2,3,4,525 ENDA)0.2 B)6 C)0 D)出错信息79下列程序运行时输出的结果是【 】5 DIMA(10)10FOR K=10TO 6STEP-120READ A(K)30 NEXT K40DATA1,3,5,7,950FOR J=1TO 560PRINT A(J);70NEXT J80 ENDA)1 3 5 7 9 B)9 7 5 3 1C)0 0 0 0 0 D)1 1 1 1 180.下列程序运行时输出

24、的结果是【 】10 C$=“”20 FOR J=1 TO 430 READ A$40 C$=C$+LEFT$(A$,J)50 NEXT J60 PRINT C$70 DATA UNITE,NIGHT,VERSION,SITYARD80 RNDA)UNVS B)VERSIONC)UNITEDD)UNIVERSITY81.下列程序运行时输出的结果是【 】10 S=020 FOR K=3 TO 1 STEP 130 IF K=1 THEN X=140 IF K=2 THEN X=250 IF K=3 THEN X=360 PRINT X;70 S=S+X80 NEXT K90 PRINT S100

25、ENDA)3 3 3 9 B)3 2 1 5C)1 1 1 3 D)1 2 3 682.下列程序运行后屏幕显示的是【 】10 CLS20 X=100:Y=80:R1=100:R2=8030 SCREEN 1,0:COLOR 540 CIRCLE(X,Y),6050 CIRCLE(R1,R2),R260 ENDA)一个圆 B）二个同心圆 C)二个不同心的圆D)无任何显示83. 下列程序运行时输出的结果是【 】10 FOR K=1 TO 220 GOSUB 7030 S=S+K40 NEXT K50 PRINT S;K60 END70 K=K*(K+1)*(K+2)80 S=690 RETURNA

26、)24 3B)6 3C)30 24D)12 784.为了验证函数RND的随机性,采用下述方法:生成N个0到100间的随机整数,然后按09,1019,2029,.9099十个区段统计各区段中随机数的个数.(设N=1000) 10 DIM A(10)20 FOR N=1 TO 100030 X=INT(RND*100)40 【 】50 【 】60 NEXT N70 FOR N= 0 TO 980 PRINT A(N);90 NEXT N100 ENDA)K=X/10 B)K=K/100 C)K=X10 D)K=X100A)A(N)=A(N+1) B)A(K)=A(K+1)+1 C)A(X)=A(X

27、)+1 D)A(K)=A(K)+185.下面的程序用于计算12+22+32+42+52+62+72+202，请选择正确答案。S=0FOR I=1 TO 20S=【 】NEXT IPRINT “S=”;SENDA) S+I/2 B) S+I2 C) S+I+I D) S+I2或S+I*I86. 下面的程序用于计算1/1+1/2+1/3+1/4+1/100，请选择正确答案。S=1:K=0WHILE 【 】K=K+1S=S+1/KWENDENDA) K100 B) K=100 C) K=100 D) K10087.把DATA语句中的10个数输出到磁盘上，以文件名TEST1.DAT保存起来。OPEN

28、“C:TEST1.DAT” FOR 【 】FOR I=1 TO 10 READ N WRITE#1,NNEXT ICLOSEENDDATA 90,86,99,100,80,91,93,86,81,98A) OUTPUT AS#1 B) INPUT AS#1 C) OUTPUT D) INPUT88.求键盘输入的任意数的阶乘N!。 INPUT “N=”;N F=1:I=1 WHILE IX OR NOT BY 的值为【 】4.下面程序运行后的输出结果是【 】 10 A=12.3 : B=45.6 : C$=%20 D$=STR$(A+B)+C$30 PRINT D$40 END5.下面程序运行后

29、的输出结果是【 】10 K=020 FOR J=1 TO 5 30 K=K+J40 NEXT J50 PRINT K,J,K+J 60 END 6. 下面程序运行后的输出结果是【 】 10 READ A,B 20 DATA 1 30 RESTORE 40 READ C 50 DATA 2,3 60 T=A+B+C 70 PRINT T 80 END7. 下面是一个用子程序的方法求3!+4!+5!的值的程序,请把第40语句补充完整. 10 S = 0 20 FOR T=3 TO 5 30 GOSUB 200 40【 】 50 NEXT T 60 PRINT 3!+4!+5!=;S 70 END

30、200 P = 1 210 FOR I = 1 TO T 220 P=P*I 230 NEXT I 240 RETURN 8. 下面程序运行时输出的结果是【 】。 10 DIM A(3,3) 20 FOR L=1 TO 3 30 FOR J= 1 TO 3 40 A(L,J)=(L-1)*2+J 50 PRINT A(L,J); 60 NEXT J70 PRINT80 NEXT L90 END9. 下面程序运行后的输出结果是TEST1 GOOD! TEST2 WRANG! 请填入所需内容. 10 PRINT TEST1 20 GOSUB【 】 30 PRINT【 】 40 GOSUB 200

31、50 END 100 PRINT GOOD! 110 RETURN 200 PRINT WRANG! 210【 】10 .求1!+2!+3!+4!+6!+7!+8!+9!+10!10 LET S=020 LET T=130 FOR【 】40 LET T=T*N50 LET S=【 】60 NEXT N70 PRINT S80 END11. 输入10个学生的成绩,打印其平均成绩.10 sum=020 FOR I=1 TO 1030 INPUT S(I)40 SUM=SUM+S(I)50【 】60 AVER=【 】70 PRINT Arerage=;【 】80 END 12. 输入0-10之间某个

32、数,输出相应的英文单词.10 INPUT N=;【 】20 IF N=-1 THEN END30 FOR I=0 【 】40 READ A$50 IF I=N THEN PRINT A$:GOTO 7060 NEXT I70 【 】80 GOTO 1090 DATA ZERO,ONE,TWO,THREE,FOUR,FIVE,SIX,SEVER,EIGHT,NINE,TEN13.下面程序运行时输出的结果为一个四行三列的矩阵：4 5 65 6 76 7 87 8 9请根据程序的需要在【 】处填上正确的内容。 10 DIM A(4,3),B(3,4) 20 FORL=1TO 4 30FORJ=1TO

33、340 A(L,J)=L+J50B(J,L)=【 】60PRINTB(J,L);70【 】80 PRINT90【 】100END14.找100到999之间的所有”水仙花数”.所谓”水仙花数”是一个三位数,其个位,十位,百位数的立方和等于该数本身. 10FOR I=100 TO 99920 A=INT(I/100)30 B=【 】40 C=【 】50 IF I=A*A*A+B*B*B+C*C*C THEN PRINT I60 NEXT I70 END15. 下列程序的作用是利用随机函数产生10个1100之间的随机整数，打印其中3的整数倍的数。在【 】处填上正确的内容。10 FOR M=1 TO1

34、020 X=【 】40 IF【 】THENPRINT X；60 NEXT M70 PRINT 80 END16. 把十进制数转换成二进制数，此例限于十进制数1255范围，。10 DIM B(8)20 INPUT N30 M=040 IF N=0 THEN GOTO 10050 B=【 】60 M=M+170 B(M)=N-B*280 N=B90 GOTO 40 100 FOR 【 】STEP 1110 PRINT B(I);120 NEXT I130 END17.下面的程序是输入一个十进制数，转换成十六进制数，并输出。INPUT NA=【 】B=N-16*AC$=”0123456789ABCDEF”H$=MID$(C$,A+1,1)+ MID$(C$,B+1,1)PRINT H$; “H”END18. 下面的程序输出一个三角形图形* * * * * * * * * * * * * * * FOR I=0 TO 3 PRINT TAB(30-I)F