QBasic程序设计基础
QBasic程序设计基础
一. 选择题（从给出的A,B,C,D答案中，选出一个正确的答案）
1.NEW 在QBASIC 语言中是用于【】。
A)清内存 B)清屏幕 C)从磁盘上读入文件 D)往磁盘上写入文件
2. 表达式INT（-0.00001）的值是【】。
A) 0 B) 1 C)出错 D) -1
3. 表达式INT（-0.01）+INT（-10）+ABS（-10）的值是【】。
A) -1 B) 1 C)-2 D)0
4. 下列语句中正确的是【】
A) 10 LET x，y，z=1 B) 10 A=C+D
C) 10 S=π·R^2 D) 10 LET 20=SIN(x)
5.表达式INT(-17.8)+ABS(-17.8)的结果是【】
A)0.8 B)0 C)-0.2 D)-34.8
6.数组X(2,3)共有【】个元素
A)6 B)12 C)7 D)5
7.下面哪一个是BASIC语言中的字符常量【】
A)ABC B)E+5 C)"1E-2" D)1E-2
8．在BASIC语言中，常数126.66所表示的数的类型是【】
A)整数B)实数C)双精度型 D)复型
9. 表达式3\3*3/3 MOD 3 的值是【】
A)1 B)-1 C)2 D)-2
10. 下列四条数组说明语句中语法正确的是【】。
A) DIM A[10] B) DEF A(10) C) DIM A(10) D) DIMENSION A(10)
11. 数学关系表达式100<99的值是【】
A)T B)0 C)-1 D)F
12. 数学关系表达式100>99的值是【】
A)T B)0 C)-1 D)Y
13. 字符型关系表达式"100"<"99"的值是【】
A)T B)0 C)-1 D)N
14. 字符型关系表达式"100">"99"的值是【】
A)T B)0 C)-1 D)N
15. 字符型关系表达式"100"="99"的值是【】
A)T B)0 C)-1 D)Y
16. 语句PRINT 26 MOD 7运行时输出结果为【】。
A）3 B）4 C）5 D）6
17. 下面程序运行时的输出结果是【】。
10 PRINT "99"+"05"+"25"
20 END
A)15 B)990525 C)1.5 D)1.53.510
18. 语句 10 PRINT SGN(-6^2) 运行时输出的结果为【】。
A) -1 B) 36 C) 1 D)0
19.语句 10 PRINT SGN(-3^2)+ABS(-3^2)+INT(-3^2) 运行时输出的结果为【】。
A) 17 B) 27 C) 1 D) -1
20.在用DIM语句定义一个以上的数组时，数组名之间用【】隔开。
A）空格 B）逗号 C）分号 D）冒号
21.语句10 DIM A(10) 定义的数组有【】个元素。
A) 9 B) 10 C) 11 D) 12
22.语句10 DIM B20(20,20) 定义的数组有【】个元素。
A) 20 B) 40 C) 400 D) 441
23.要将X,Y两个变量的值互换，正确的写法是【】
A) 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=X
24.语句 10 PRINT INT(8.99) 运行时输出的结果为:【】。
A) 7 B) 8 C) 9 D)10
25.语句 10 PRINT INT(-6.87)运行时输出的结果为:【】。
A) -6 B) -7 C) -8 D) -9
26.语句 10 PRINT INT(-4.99); INT(4.99) 运行时输出的结果为:【】。
A) -4 4 B) -5 4 C) -4 5 D) -5 5
27.变量A加B大于零和变量C加D大于零两个条件之一为真，但A必须大于零的逻辑表达式是【】。
A) A+B>0 AND C+D>0 AND A>0 B) (A+B>0 OR C+D>0) AND A>0
C) A+B>0 OR C+D>0 AND A>0 D) (A+B>0 AND C+D>0) AND A>0
28.QBASIC运行环境中, 三个逻辑运算符NOT,AND,OR在运算过程中,优先级从高到低的顺序是【】
A)AND→NOT→OR B)NOT→AND→OR C)OR→AND→NOT D)NOT→OR→AND
29.列语句中正确的是【】
A)10 READ X3,Y4,Z5 B)10 READ X+3,X+5,X+6
C)10 READ 3X,4Y,5Z D)10 READ X3; Y4; Z5
30. QBASIC运行环境中, A!是【】
A)整型变量B)单精度变量C)双精度变量D)字符串变量
31.结构化程序设计的三种控制结构是【】
A)FOR/NEXT,WHILE/WEND和IF块语句B)子程序,过程和块IF语句.
C)顺序结构,选择结构和循环结构 D)IF-THEN/ENDIF,FOR/NEXT
32.表达式W>INT (21.58)*3+2*X是【】
A)算术表达式 B)关系表达式C)逻辑表达式D)代数表达式
33..下列表达式中结果为真的是【】
A)"a"<"A" B) "AB">"ABC" C)" B">"A" D)" CD "<" CD"
34.下列表达式中结果为真的是【】
A)"abcde"<"ABCDE" B)"ABCDF">"ABCDE"
C)"AB">"ABCDE" D)"ABCD "<"ABCD"
35. 程序运行时，转子程序调用应当有一个【】语句.
A)RETURN B)GOSUB C)READ D)STOP
36.执行PRINT USING "##.##%";34.567的结果是【】
A)34.567 B)34.56 C)34.56% D)34.57%
37.下列程序输出的结果是【】
10 PRINT "65"+"35"+"10"
A)110 B)653510 C)65 D)65+35+10
38.在第10行第20列打印一个字符所用的定位语句是【】
A)LOCATE 10,20 B)LOCATE 20,10
C)LINE 10,COLUMN 20 D)ROW 10, COL 20
39.语句 DIM A(4,5,6)定义的数组有【】个元素.
A)15 B)120 C)210 D)456
40.序运行时输出的结果是【】
READ X,Y
PRINT SIN(X),COS(X)
DATA PI/2, PI/2
A) 0 1 B) 0.99999 -0.000001 C) 出错信息 D) 1
41.下面程序运行时输出的结果是【】
10 READ X，Y，X，Y
20 PRINT Y
30 DATA 1，2，3，4
40 END
A）1 B）2 C）3 D）4
42.行后X的值是【】
10 FOR X=5 TO 1 STEP -1
20 Y=X
30 NEXT X
40 END
A) 5 B) 1 C) 0 D) 2
43.下面程序运行时输出结果为【】
10 LET X=1
20 FOR I=1 TO 4
30 PRINT X;
40 NEXT I
50 END
A) 1 2 3 4 B) 1 1 1 1 C) 4 3 2 1 D) 2 3 4 5
44. 下述程序运行时的输出结果为【】
10 A=3
20 B=A*A
30 A=A+B:B=B+A
40 PRINT A;B
50 END
A) 12 15 B) 12 3 C) 12 21 D) 21 12
45.执行下面程序后，I的值为【】。
10 FOR I=3 TO 10 STEP 2
20 PRINT I;
30 NEXT I
40 END
A)5 B)7 C)9 D)11
46. 执行下面程序后，输出结果为【】
10 X$="1234567"
20 PRINT LEN(X$)
30 END
A)1234567 B)"1234567" C)1和7 D)7
47.执行下面程序后，输出结果为【】
10 A$="123" : B$="456"
20 C=VAL(A$)+VAL(B$)
30 PRINT C
40 END
A.）123 B）456 C）0 D）579
48. 执行下面程序后，输出结果为【】
10 FOR K=1 TO 10 STEP 2
20 K=2*K
30 PRINT "*";
40 NEXT K
50 PRINT
60 END
A) * * B) * * * 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) 8
50.执行下面程序后，输出结果为【】
5 J=0:N=0
10 WHILE J<30
20 J=(J+1)*(J+1)
30 N=N+1
40 WEND
50 PRINT N
60 END
A) 0 B) 3 C) 4 D) 29
51.下面程序的输出结果是【】。
10 A$="HAPPY "
20 B$="NEW "
30 C$="YEAR!"
40 D$=C$+B$+A$
50 PRINT RIGHT$(D$,6);MID$(D$,6,4);LEFT$(D$,5)
60 END
A) HAPPY NEW YEAR! B) YEAR! NEW HAPPY
C) NEW YEAR! HAPPY D) NEW HAPPY YEAR!
52.执行下面程序后，输出结果为【】
10 FOR K=1 TO 3
20 X$=STRING$(K,"*")
30 PRINT X$
40 NEXT K
50 END
A)* B)1* C)3* D)***
** 2* 2** **
*** 3* 1*** *
53. 执行下面程序后，输出结果为【】
10 READ X
20 X=INT(ABS(X))
30 ON X GOTO 100,150,200,250
100 Y=X+X:GOTO 300
150 Y=X*X:GOTO 300
200 Y=X/2:GOTO 300
250 Y=SQR(X)
300 PRINT Y
310 DATA -4.99
320 END
A)10 B)4 C)5 D)2
54.在运行下面的程序时，【】行语句会出错。
10 DIM A(5)
20 FOR I=1 TO 7
30 A(I)=I+1
40 NEXT I
50 END
A)10 B)20 C)30 D)40
55.下面程序的循环次数是【】。
10 FOR I=8 TO 35 STEP 3
20 PRINT I;
30 NEXT I
40 END
A) 10 B) 9 C) 27 D) 28
56.执行下面程序后，输出结果为【】
10 DEF FNA(X,Y)=X*Y+7*Y+X
20 X=3 : Y=4
30 PRINT FNA(Y,X)
A. 36
B. 43
C. 37
D. 44
57.运行下列程序时的输出结果是【】。
10 DIM A(10)
20 FOR J=6 TO 10
30 READ A(J)
40 NEXT J
50 PRINT A(A(10))
60 DATA 2,3,4,5,6
70 END
A)2 B)4 C)6 D)出错信息
58. 以下程序运行时输出的结果是【】。
10 FOR I=0 TO 5
20 READ X
30 PRINT X;
40 IF X>3 THEN RESTORE
50 DATA 1,2,3,5,4
60 NEXT I
70 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=0
20 WHILE X<20
30 X=X+1
40 X=X*X
50 WEND
60 PRINT X
70 END
A)16 B)19 C)20 D)25
60. 执行下面程序后，输出结果为【】
10 FOR K = 0 TO 3
20 ON K GOTO 30, 50, 70
30 A = 1
40 PRINT K, A: GOTO 90
50 B = 2
60 PRINT K, B: GOTO 90
70 C = 3
80 PRINT K, C
100 END
A) 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 3
61.执行下面程序后，输出结果为【】
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 2
62.下面的程序是有关数组的运算，选择结果【】
10 DIM A(3,3)
20 FOR M=1 TO 3
30 FOR N=1 TO 3
40 IF N=M OR N=3-M+1 THEN A(M,M)=1 ELSE A(M,N)=0
50 NEXT N
60 NEXT M
70 FOR M=1 TO 3
80 FOR N=1 TO 3
90 PRINT A(M,N);
100 NEXT N
110 PRINT
120 NEXT M
130 END
此程序的运行结果是:
A) 1 0 0 B)1 1 1
0 1 0 1 1 1
0 0 1 1 1 1
C) 0 0 0 D)1 0 1
0 0 0 0 1 0
0 0 0 1 0 1
63. 选择运行结果【】
10 FOR X=1 TO 5
20 FOR Y=0 TO X-1
30 PRINT TAB(Y+X); CHR$(65+X);
40 NEXT Y
50 PRINT
60 NEXT X
70 END
此程序的运行结果是:
A)B B)B
CC CC
DDD DDD
EEEE EEEE
FFFFF FFFFF
C)BB D)A
CCC BB
DDDD CCC
EEEEE DDDD
FFFFFF EEEEE
64. 选择运行结果【】
10 LET X=0
20 LET Y=1
30 LET X=X+Y
40 LET Y=Y+X
50 IF X<=20 THEN GOTO 30
60 PRINT X; Y
70 END
此程序的运行结果是:
A)21 34 B)0 1 C)20 21 D)X Y
65. 选择运行结果【】
10 DIM M(20)
20 FOR I=1 TO 20
30 M(I)=0
40 NEXT I
50 N=10
60 FOR I=1 TO N
70 FOR J=1 TO N
75 M(J)=M(I)+1
80 NEXT J
85 NEXT I
90 PRINT M(N)
99 END
此程序的运行结果是:
A)10 B)20 C)19 D)11
66. 选择运行结果【】
10 X=1
20 GOSUB 40
30 END
40 DEF FNA(I)=X^2
50 FOR I=1 TO 5
60 PRINT FNA(I);
70 X=X+1
80 NEXT I
90 RETURN
此程序的运行结果是:
A） 1 2 4 8 16 B） 1 4 9 16 25
C） 1 4 25 36 49 D） 1 4 16 49 121
67. 此程序是用自定义函数的方法根据键盘输入不同的半径，求相应圆面积。请将程序补充完整。
10 PI=3.14159
20 DEF【①】=PI*R^2
30 INPUT "R1="; R1
40 PRINT "S="; FNS(【②】)
50 END
① A）FNS() B）FNS(PI) C）FNS(R1) D）FNS(R)
② A) PI*R^2 B)PI C)R1 D)R
68. 此程序是求100之内的所有完备数。完备数是其各因子之和等于其本身的正整数。请将程序补充完整。
10 FOR N=1 TO 100
20 【①】
30 S=0
40 WHILE A 50 IF 【②】 THEN S=S+A 60 【③】 70 WEND 80 IF 【④】THEN PRINT N 90 NEXT N 100 END ① A）S=S+A B）A=A+1 C）S=N D）A=1 ② A）N MOD A=0 B）A=0 C）N=0 D）N\A=0 ③ A)S=S+A B)A=A+1 C)A=A-1 D)A=1 ④ A)S<>N B)A<>N C)S=N D)N MOD A=0 69.下列程序中,最内层循环体执行的次数共【】 10 FOR I=1 TO 3 20 FOR J=1 TO I 30 FOR K=1 TO J 40 NEXT K 50 NEXT J 60 NEXT I 70 END A)10 B)6 C)9 D)3 70.下列程序输出的结果是【】 10 FOR K=1 TO 2 20 FOR L=1 TO K 30 PRINT "1"; 40 NEXT L 50 NEXT K 60 END A)1 B)11 C)111 D)1111 71.下列程序执行的结果是【】 10 A$="123":B$="456" 11 C=VAL(A$)+VAL(B$) 12 PRINT C\100 13 END A)123 B)3 C)5 D)579 72. 下列程序执行的结果是【】 10 FOR X=1 TO 2 20 A=0 21 FOR Y=0 TO X-1 22 A=A+1 23 NEXT Y 24 PRINT A; 25 NEXT X 26 END A)1 B)3 C)1 2 D)2 3 73. 下列程序运行时输出的结果是【】 10 DEF FNA(X,Y)=X*Y+7*X 20 X=3: Y=4 30 PRINT FNA(X,Y)+3 31 END A)36 B)43 C)37 D)44 74. 下列程序运行时输出的结果是【】 10 DEF FNA(A,B,C)=A+B*C 20 X=3:Y=4:Z=4 21 ABC=FNA(Z,Y,X) 22 PRINT "ABC=";ABC 23 END A)ABC=12 B) ABC=17 C) ABC=23 D) ABC=60 75. 下列程序运行时输出的结果是【】 10 S=0 11 FOR J=1 TO 10 12 READ X 13 IF X/3=INT(X/3) OR X/5=INT(X/5) THEN S=S+X 14 NEXT J 15 PRINT "S=";S 16 DATA 1,3,5,7,9,11,13,15,17,19 17 END A)27 B)20 C)32 D)37 76. 下列程序运行时输出的结果是【】 10 FOR J=0 TO 10 11 READ A(10) 12 NEXT J 13 PRINT "A0=";A(0) 14 DATA 1.88,2.55,3.66,6.66,8,77,90.5,0,36.5,55.5,33 15 END A)A0=1.88 B)33 C)A0=A D)A0=0 77. 下列程序运行时输出的结果是【】 5 J=0 10 WHILE J<30 20 J=(J+1)*(J+1) 30 N=N+1 40 WEND 50 PRINT N 51 END A)0 B)3 C)4 D)29 78. 下列程序运行时输出的是【】 10 DIM A(10) 20 FOR J=6 TO 10 21 READ A(J) 22 NEXT J 23 PRINT A(0)+A(A(6))/A(10) 24 DATA 1,2,3,4,5 25 END A)0.2 B)6 C)0 D)出错信息 79．下列程序运行时输出的结果是【】 5 DIM A(10) 10 FOR K=10 TO 6 STEP -1 20 READ A(K) 30 NEXT K 40 DATA 1,3,5,7,9 50 FOR J=1 TO 5 60 PRINT A(J); 70 NEXT J 80 END A)1 3 5 7 9 B)9 7 5 3 1 C)0 0 0 0 0 D)1 1 1 1 1 80.下列程序运行时输出的结果是【】 10 C$="" 20 FOR J=1 TO 4 30 READ A$ 40 C$=C$+LEFT$(A$,J) 50 NEXT J 60 PRINT C$ 70 DATA UNITE,NIGHT,VERSION,SITYARD 80 RND A)UNVS B)VERSION C)UNITED D)UNIVERSITY 81.下列程序运行时输出的结果是【】 10 S=0 20 FOR K=3 TO 1 STEP -1 30 IF K<=1 THEN X=1 40 IF K<=2 THEN X=2 50 IF K<=3 THEN X=3 60 PRINT X; 70 S=S+X 80 NEXT K 90 PRINT S 100 END A)3 3 3 9 B)3 2 1 5 C)1 1 1 3 D)1 2 3 6 82.下列程序运行后屏幕显示的是【】 10 CLS 20 X=100:Y=80:R1=100:R2=80 30 SCREEN 1,0:COLOR 5 40 CIRCLE(X,Y),60 50 CIRCLE(R1,R2),R2 60 END A)一个圆 B）二个同心圆 C)二个不同心的圆D)无任何显示 83. 下列程序运行时输出的结果是【】 10 FOR K=1 TO 2 20 GOSUB 70 30 S=S+K 40 NEXT K 50 PRINT S;K 60 END 70 K=K*(K+1)*(K+2) 80 S=6 90 RETURN A)24 3 B)6 3 C)30 24 D)12 7 84.为了验证函数RND的随机性,采用下述方法:生成N个0到100间的随机整数,然后按0~9,10~19,20~29,....90~99十个区段统计各区段中随机数的个数.(设N=1000) 10 DIM A(10) 20 FOR N=1 TO 1000 30 X=INT(RND*100) 40 【①】 50 【②】 60 NEXT N 70 FOR N= 0 TO 9 80 PRINT A(N); 90 NEXT N 100 END ①A)K=X/10 B)K=K/100 C)K=X\10 D)K=X\100 ②A)A(N)=A(N+1) B)A(K)=A(K+1)+1 C)A(X)=A(X)+1 D)A(K)=A(K)+1 85.下面的程序用于计算12+22+32+42+52+62+72......+202，请选择正确答案。 S=0 FOR I=1 TO 20 S=【】 NEXT I PRINT "S=";S END A) S+I/2 B) S+I2 C) S+I+I D) S+I^2或S+I*I 86. 下面的程序用于计算1/1+1/2+1/3+1/4+......+1/100，请选择正确答案。 S=1:K=0 WHILE 【】 K=K+1 S=S+1/K WEND A) K<100 B) K=100 C) K<=100 D) K<>100 87.把DATA语句中的10个数输出到磁盘上，以文件名TEST1.DAT保存起来。 OPEN "C:TEST1.DAT" FOR 【】 FOR I=1 TO 10 READ N WRITE#1,N NEXT I CLOSE END DATA 90,86,99,100,80,91,93,86,81,98 A) OUTPUT AS#1 B) INPUT AS#1 C) OUTPUT D) INPUT 88.求键盘输入的任意数的阶乘N!。 INPUT "N=";N F=1:I=1 WHILE I<=N F=【】 I=I+1 WEND PRINT "N!=";F END A) F+I B) F^I C) F*I D) F/I 89.下面是一个建立通讯录文件的程序，其中有姓名、性别、电话、地址，存入文件ADDR.DAT,若姓名输入"#"号，则程序结束。 10 OPEN "ADDR.DAT" FOR OUTPUT AS#1 20 INPUT 【】 30 IF NAME$="#" THEN CLOSE: GOTO 60 40 WRITE#1, NAME$,SEX$,PHONE$,ADDRES$ 50 GOTO 20 60 END A) NAME,SEX,PHONE,ADDRES B) "NAME","SEX","PHONE","ADDRES" C) NAME#,SEX#,PHONE#,ADDRES# D) NAME$,SEX$,PHONE$,ADDRES$ 90. 下面是一个从已经建立的通讯录文件ADDR.DAT读数据的程序，其中有姓名、性别、电话、地址。 10 OPEN "ADDR.DAT" FOR 【】 20 WRITE NOT EOF(1) 30 INPUT #1, NAME$,SEX$,PHONE$,ADDRES$ 40 PRINT NAME$,SEX$,PHONE$,ADDRES$ 50 END A) OUTPUT AS#1 B) INPUT C) OUTPUT D) INPUT AS#1 1. 数学式 2SIN3x+COSx-| x|+1的BASIC表达式为【】. 2．数学式子（|X|+COSX）（SIN2X+LN2X+TAN2X+Ln2Y）的QBASIC表达式为【】 3. 已知 X=3 Y=5 A=2 B=-3，则表达式NOT A>X OR NOT B 【】 4.下面程序运行后的输出结果是【】 10 A=12.3 : B=45.6 : C$="%" 20 D$=STR$(A+B)+C$ 30 PRINT D$ 40 END 5.下面程序运行后的输出结果是【】 10 K=0 20 FOR J=1 TO 5 30 K=K+J 40 NEXT J 50 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 END 7. 下面是一个用子程序的方法求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 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 J 70 PRINT 80 NEXT L 90 END 9. 下面程序运行后的输出结果是 TEST1 GOOD! TEST2 WRANG! 请填入所需内容. 10 PRINT "TEST1" 20 GOSUB【①】 30 PRINT【②】 40 GOSUB 200 50 END 100 PRINT "GOOD!" 110 RETURN 200 PRINT "WRANG!" 210【③】 10 .求1!+2!+3!+4!+6!+7!+8!+9!+10! 10 LET S=0 20 LET T=1 30 FOR【①】 40 LET T=T*N 50 LET S=【②】 60 NEXT N 70 PRINT S 80 END 11. 输入10个学生的成绩,打印其平均成绩. 10 sum=0 20 FOR I=1 TO 10 30 INPUT S(I) 40 SUM=SUM+S(I) 50【①】 60 AVER=【②】 70 PRINT "Arerage=";【③】 80 END 12. 输入0-10之间某个数,输出相应的英文单词. 10 INPUT "N=";【①】 20 IF N=-1 THEN END 30 FOR I=0 【②】 40 READ A$ 50 IF I=N THEN PRINT A$:GOTO 70 60 NEXT I 70 【③】 80 GOTO 10 90 DATA ZERO,ONE,TWO,THREE,FOUR,FIVE,SIX,SEVER,EIGHT,NINE,TEN 13.下面程序运行时输出的结果为一个四行三列的矩阵： 4 5 6 5 6 7 6 7 8 7 8 9 请根据程序的需要在【】处填上正确的内容。 10 DIM A(4,3), B(3,4) 20 FOR L=1 TO 4 30 FOR J=1 TO 3 40 A(L,J)=L+J 50 B(J,L) =【①】 60 PRINT B(J,L); 70 【②】 80 PRINT 90 【③】 100 END 14.找100到999之间的所有"水仙花数".所谓"水仙花数"是一个三位数,其个位,十位,百位数的立方和等于该数本身. 10 FOR I=100 TO 999 20 A=INT(I/100) 30 B=【①】 40 C=【②】 50 IF I=A*A*A+B*B*B+C*C*C THEN PRINT I 60 NEXT I 70 END 15. 下列程序的作用是利用随机函数产生10个1~100之间的随机整数，打印其中3的整数倍的数。在【】处填上正确的内容。 10 FOR M=1 TO 10 20 X=【①】 40 IF 【②】THEN PRINT X； 60 NEXT M 70 PRINT 80 END 16. 把十进制数转换成二进制数，此例限于十进制数[1~255]范围，。 10 DIM B(8) 20 INPUT N 30 M=0 40 IF N=0 THEN GOTO 100 50 B=【①】 60 M=M+1 70 B(M)=N-B*2 80 N=B 90 GOTO 40 100 FOR 【②】STEP -1 110 PRINT B(I); 120 NEXT I 130 END 17.下面的程序是输入一个十进制数，转换成十六进制数，并输出。 INPUT N A=【】 B=N-16*A C$="0123456789ABCDEF" H$=MID$(C$,A+1,1)+ MID$(C$,B+1,1) PRINT H$; "H" END 18. 下面的程序输出一个三角形图形 * * * * * * * * * * * * * * * * FOR I=0 TO 3 PRINT TAB(30-I) FOR J=1 TO 2*I+1 【①】 NEXT J 【②】 NEXT I END 19.把一个数插入到一个已经排好序的数组里，再重新排好序。 10 DIM A(11) 20 FOR I = 1 TO 10 30 【①】 40 NEXT I 50 INPUT X 60 FOR I = 1 TO 10 70 IF 【②】THEN GOTO 90 80 NEXT I 90 FOR J = 10 TO I STEP -1 100 A(J + 1) = A(J) 110 NEXT J 120 【③】 140 FOR I = 1 TO 11 150 PRINT A(I); 160 NEXT I 170 END DATA 3, 5, 7, 12, 14, 16, 28, 36, 40, 52 20.画一个圆、一个椭圆和一个扇形。 CLS CONST pi = 3.14159# SCREEN 2 CIRCLE (150, 100), 50, 1 【①】 (320, 100), 130, , -pi, -pi / 2 【②】 STEP(-80, -30), 80, , , , 5 / 25 PAINT (150, 100), 2, 1 END 21．用随机函数产生10个1~60以内的随机整数，从小到大排序后输出。 10 DIM N(10) 20 FOR I = 1 TO 10 30 N(I) = 【①】 40 NEXT I 50 FOR M = 1 TO 9 60 FOR N = M + 1 TO 10 70 IF N(M) <= N(N) THEN GOTO 90 80 【②】 90 NEXT N 100 PRINT N(M); 110 NEXT M 120 END 22.创建一个成绩文件GRADE.DAT并存入磁盘，成绩单纪录的人数由键盘输入。 INPUT N OPEN "GRADE.DAT" FOR 【①】 AS#1 FOR I=1 TO N INPUT NUM, NAME$, ENG, MATH 【②】, NUM, NAME$, ENG, MATH NEXT I CLOSE #1 END QBasic程序设计自测题答案 一、选择题 1.A 2.D 3.A 4.B 5. C 6. B 7.C 8.B 9.A 10.C 11.B 12.C 13.C 14.B 15.B 16.C 17.B 18.A 19.D 20.B 21.C 22.D 23.C 24.B 25.B 26.B 27.B 28.B 29.A 30.B 31.C 32.B 33.C 34.B 35.B 36.C 37.B 38.A 39.C 40.C 41.D 42.C 43.B 44.C 45.D 46.D 47.D 48.B 49.D 50.C 51.A 52.A 53.D 54.C 55.A 56.C 57.A 58.C 59.D 60.B 61.C 62.A 63.A 64.A 65.C 66.B 67.①D②C 68.①D②A③B④C 69. A 70. C 71.C 72.C 73.A 74.B 75.C 76.D 77.C 78.C 79.C 80.D 81.A 82.B 83.D 84.①C②D 85.D 86.C 87.A 88.C 89.D 90.D 二、填空题 1.2*sin(3*x)+cos(x)-abs(x)+1 2. (ABS(X)+COS(X))*(SIN(2*X)+TAN(2*X)+LOG(2*Y)) 3. -1 4. 57.9% 5. 15 6 21 6. 4 7. S=S+P 8. 1 2 3 3 4 5 5 6 7 9. ①100、②"TEST2"、③RETURN 10. ①N=1 TO 10、②S+T 11. ①NEXT I 、②SUM/10、③AVER 12. ①N、②TO 10、③END 13. ①A(L,J)+2、②NEXT J、③NEXT L 14. ①INT(I/10)-A*10、②I-A*100-B*10 15. ①INT(RND*100)+1、②X MOD 3=0 16.①INT(N/2)、②I=M TO 1 17. ①INT(N/16) 18. ①PRINT "*";、②PRINT 19. ①READ A(I)、②A(I)>X、③A(I)=X 20. ①CIRCLE 、②CIRCLE 21. ①INT(RND(1) * 60)+1、②T = N(M): N(M) = N(N): N(N) = T 22. ①OUTPUT、②WRITE #1 Qbasic 教程 ●计算机语言大致分为三种： 机器语言（0、1）、 汇编语言（指令是用符号和数字来代替二进制代码的）、 高级语言（是由一系列按一定语言规则写出的语句组成的语言） ●关于程序： ?计算机程序就是：用计算机语言描述的解决问题的程序。 ?程序是：由让计算机完成任务的、合乎计算机语言规则的一系 列语句（指令）组成的。 ?计算机程序设计就是：探求解决问题的方法并将实现它的步骤 写成计算机的程序的过程。 ● 第一章BASIC语言概述 BASIC（Beginner’s All-purpose Symbolic Instruction Code 的缩写，意为初学者通用符号指令代码） 一、BASIC语言的发展 .BASIC语言于1964年问世三、QBasic的特点 QBasic是结构化的程序设计语言，与第二代BASIC相比有如下特点： 1、扩充了变量和常量的类型 .变量名长度：40个字符 .增加了长整型、定长字符型变量 .可定义数值常量、字符串常量 2、提供了新的选择结构 .条件语句 IF<条件>THEN <语句组1> ELSE <语句组2> END IF .多分支语句SELECT 3、改进了循环结构 增加以下两个循环语句: .WHILE循环 WHILE <条件> <循环体> WEND .DO循环 2、微机BASIC(第二代) .Microsoft总裁Bill.Gates编写只有4k字节的解释程序.TRS-80 BASIC .Apple BASIC .MSBASIC(BASICA) .GWBASIC 3、结构化BASIC（第三代） .限制GOTO语句，程序模块化 .True BASIC真正的BASIC .Quick BASIC .Turbo BASIC .QBasic(DOS5.0以上) 4、面向对象的BASIC .windows环境下的Visual BASIC，图形界面，支持多媒体. 二、QBasic的特点 QBasic是结构化的程序设计语言，与第二代BASIC相比有如下特点： 1、扩充了变量和常量的类型 .变量名长度：40个字符 .增加了长整型、定长字符型变量 .可定义数值常量、字符串常量 2、提供了新的选择结构 .条件语句 IF<条件>THEN <语句组1> Contest - 2011级C语言课程大作业 Start Time: 2012-02-19 16:25:00 End Time: 2012-03-01 22:00:00 Current Time: 2012-2-23 15:51:18 Status:Running Public 写在最前： 本文档中的题目；在不不同的编译器中可能会有提示错误，呵呵，小小的动动手改下变量的定义就可以运行了……………….. 由于能力不足..有题目未解决的…或者有错误的我会…认真听取大家的..意见的…. 呵呵……..有一两个….偷了下懒哦……… 提供原题目还有本人自己的解答的源代码。感谢大家的。。。。建议……………. 问题A: 趣味程序设计＿狼追兔子 时间限制: 1 Sec 内存限制: 128 MB 提交: 341 解决: 63 [提交][状态][讨论版] 题目描述 一只兔子躲进了n个环形分布的洞的某一个中。狼在第一个洞没有找到兔子，就隔一个洞，到第三个洞去找；也没有找到，就隔两个洞，到第六个洞去找。以后每次多一个洞去找兔子……这样下去，如果一直找不到兔子，请问兔子可能在哪个洞中？ 输入 有多组测试数据，读取到文件结尾符为止。每组测试数据输入n（2≤n≤100），即洞穴个数。输入到文件结尾符为止。 输出 兔子可能藏匿的洞。如果不止一个，按从小到大的顺序输出。如果不存在，输出空行。 样例输入 10 8 15 样例输出 2 4 7 9 2 4 5 7 8 9 11 12 14 提示 用一个数组a[10]，对应的元素a[0]，a[1]，a[2]……a[9]对应表示10个洞，初值均置1。通过一个循环用“穷举法”找兔子，第n次查找对应第(n－1)%10个洞，如果在第(n－1)%10个洞中没有找到兔子，因此将数组元素a[(n－1)%10]置0值。循环完成后，检查a数组各元素（各个洞）的值，若其值仍为1，则兔子可能藏身该洞中。 #include 第八节QBASIC综合实例 一、教材分析 程序的顺序结构、分支结构和循环结构这三种程序设计的基本结构的综合运用是程序设计中的最难部分，关键是训练学生掌握程序设计的基本步骤。 二、学生分析 学生对程序的顺序结构、分支结构和循环结构这三种程序设计的基本结构有了较为全面的了解，有了一定的语句基础。但是考试并不要求学生能独立编写程序，而只要求学生能读懂程序和完善程序。 教学知识点： 1、编制100以内的加法例子 2、打印“水仙花数” 3、打印“魔方数” 4、高次方程的求解 5、掌握程序设计的基本步骤 教学重点： 1、编制100以内的加法例子 2、打印“水仙花数” 3、打印“魔方数” 教学难点： 1、编制100以内的加法例子 2、打印“水仙花数” 3、打印“魔方数” 4、掌握程序设计的基本步骤 教学过程： 1、我们为小学生编制100以内的加、减、乘、除，具体要求是随机产生10道题，然后让学生回答，如果回答对打印出“Good!”，并就加上10分；否则打印出“Wrong!”[先以加法为例子进行讲解]。 REM 加法练习题 S=0 Randomize FOR I=1 TO 10 X=INT(RND(1)*100+1) Y= INT(RND(1)*100+1) PRINT X；“+”；Y；“=”； INPUT Z IF Z=X+Y THEN S=S+10 PRINT “Good!” ELSE PRINT “Wrong!” END IF PRINT “S=”；S END 2、打印出100---999之间的所有“水仙花数”，所谓“水仙花数”就是本数的值等于本数各数字的立方和。如：153=13+53+33[重点是数字的分离技术]。 FOR I=100 TO 999 A=INT(I/100) B=INT((I-A*100)/10) C=I-A*100-B*10 IF I=A*A*A+B*B*B+C*C*C THEN PRINT I END IF NEXT I END 3、打印如下的“魔方数”。 CLS FOR I = 0 TO 12 STEP 4 FOR J = 1 TO 4 PRINT I + J; NEXT J PRINT NEXT I PRINT FOR I = 1 TO 4 FOR J = 0 TO 15 STEP 4 PRINT I + J; QBasic 基础入门教程：基础课程0－启动和进入 Qbasic是一个Dos下的程序，也称作命令行方式，操作主要用键盘输入，因此需要适应用键盘来操作电脑，慢慢多熟悉； 1、启动程序 1）下载Qbasic程序，可以在“常用教具”里下载：https://www.wendangku.net/doc/4b19019316.html,/teliute/jiaoju/index.htm 2）解压到D:盘根目录中，进入Qbasic文件夹后，双击一个Qbasic的文件，图标是一个窗口； 3）双击这个图标即可启动程序，出来的界面是英文的，程序设计里英文用的要比较多些； 另外一种进入方法，用命令行方式进入； 1）点“开始－所有程序－附件－命令提示符” ，进入Dos窗口，有个光标在一闪一闪； 2）输入D:↙ cd qbasic↙ qbasic↙（↙表示每行输完后按一下回车键，cd后面有个空格），这样也可以进入到Qbasic的窗口中； 这样的好处在于，如果有适当的汉字系统可以在这儿加载，然后程序中就可以输入汉字； 2、启动程序 1）程序启动后进入一个蓝色的窗口，窗口里头都是英文的标题； 2）按一下键盘左上角的“ESC键”进入窗口，这儿记着要按一下ESC键，才能进到窗口中，光标在工作区的右上角一闪一闪； ESC键有取消的作用，可以去掉开始的这个欢迎对话框； 3）退出qbasic的方法，按一下键盘上的Alt键再按F键，按Alt键的时候，菜单栏第一个File会变黑File加亮显示起来，按F 后会出来一个菜单； 4）再按一下X键，就可以退出qbasic了，如果出现一个保存对话框提示，没用的按N键就可以退出，有用的按一下Y键保存一下，然后退出； 本节学习了qbasic的进入和退出方法，如果你成功地理解并完成了练习，请继续学习下一课内容； QBasic 基础入门教程：基础课程1－编辑程序 这一节我们来学习，如何在编辑器中输入和运行程序，下面我们通过一个练习来学习操作； 1、启动qbasic 1）进入D:\qbasic文件夹，双击运行qbasic程序，按ESC键进入编辑窗口； 2）窗口上边是菜单栏，第一个是File文件菜单，中间是编辑区，下边是立即窗口； 3）按F6键或点击鼠标可以在两个区切换，最下边是状态栏，提示按F5键是运行： 目录 1 题目内容及设计要求 (1) 2 总体设计 (2) 2.1 总体功能框图 (2) 2.2 类的设计说明 (3) 2.3 主要算法流程图 (3) 3 程序清单及注释 (5) 4 运行结果与分析 (13) 5 总结 (17) 6 参考文献 (17) 1题目内容及设计要求 题目: 设计菜单选择趣味程序 内容及要求： 设计一个比较使用的菜单，通过菜单选择不同的功能。设计分两步：首先涉及一个含有多个菜单项的菜单演示程序，然后再为这些菜单项配上相应的功能。 出圈游戏一： （1）设计一个SeqList类。 （2）在头文”head.h”中声明类，并使用默认的内联函数方式定义它们。 （3）使用类的数组来求解。 （4）用Joseph()函数求解出圈，使用函数game1()作为菜单项。 （5）在文件game1.cpp中实现Joseph和game1()函数。 出圈游戏二： （1）使用上题中的SqList类.使用向量数组求解。 （2）重载Joseph()函数来求解出圈，使用函数game2()作为菜单项。 （3）在文件game2.cpp中实现Joseph()和game2()函数 求解方程： （1）设计类FindRoot 将方程系数设计成属性，将方程的根x1,x2。以及用来作为判定条 件的d(d=b*b-4*a*c) 均设计成类的属性 （2）设计构造函数 （3）设计求根成员函数Find(). （4）设计输出结果成员函数Display(). 2总体设计 一、菜单驱动程序 二、求解一元二次方程 三、设计出圈游戏 3 2.1 总体功能框图 2.2 类的设计说明 类FindRoot的设计 为了方便，除了将方程系数设计为属性之外，还将方程的根x1和x2，以及用来作为判定条件的d(d=b*b-4*a*c)均设计成类的属性。如图1是其类图，图2是对象obj的对象图。 其中，成员函数Find()是用来求方程的根，Display()则用来输出结果。由此可见，它们都需要用到属性d。可在构造函数中求出d的值，其他成员函数直接使用这个属性，不必再去计算。 类SeqList的设计 这里要求使用名字，而在名字的字符串中，可能存在空格。可以为该类设计两个属性，一个是字符串，用来存储名字。另一个是整数，用来表示报数的位置。若使用类的数组，则可以通过数组的下标，将位置和名字对应起来。 在声明的类中，同时定义的成员函数就是默认的内联函数。另外，考虑到使用类的数组，所以不为它定义构造函数，而是用系统提供的默认无参数构造函数 2.3 主要算法流程图 第六节 QBASIC程序的实现 【教学设计学科名称】 QBASIC程序是甘肃教育、甘肃声像出版社出版的初中信息技术八年级教材下册模块二《QBASIC 程序》第一节教学内容。 【所在班级情况，学生特点分析】 对于初中学生来说，学习QBASIC程序是首次接触程序设计，学起来会感到有点吃力。但是，他们通过其它学科的学习及一个多学期的信息技术学习，具备了用简单程序来解决问题的能力。引导学生参与教学过程，合作学习、交流讨论。 【教材内容分析】 本节主要让学生熟悉QBASIC程序的工作窗口中，学会程序的输入、运行和保存。对于初中学生来说这是第一次触程序设计，这一节介绍的是QBASIC程序设计基础知识，它是后面章节的学习的基础，学好了该节，有助于下一节及其它程序设计语言的学习和理解。 【教学目标】 知识与技能：熟悉QBASIC程序的工作窗口，学会程序的输入、运行和保存。 过程与方法：通过教师讲解演示，让学生理解程序的编写、输入、运行。通过自主探究学习，掌握QBASIC程序的基础知识。 情感态度与价值观：使学生具备辨别能力并熟练掌握语句在综合题中的应用。同时培养学生的自学能力及分析、解决实际问题的能力。 【教学重难点分析】 教学重点：熟悉QBASIC程序的工作窗口，学会程序的输入、运行和保存。 教学难点：程序的输入、运行和调试。 【教学课时】 1课时 【教学过程】 一、导入新课 计算机能做很多的事情，包括各种控制活动，它们都有在程序的控制和指挥下进行的。像今天我们学习的QBASIC程序就是一种计算机语言，我们可以用QBASIC程序编写计算机程序逻辑来使计算机完成预定任务，它的神奇力量来自人们设计好的一系列语句和指令。计算机语言是程序设计的工具，解决问题的具体方法和步骤是程序设计的关键。 【设计意图】：创设情境，引入新课。 二、讲授新课 1.什么是QBASIC程序设计语言。 师：演示QBASIC程序两个数相加程序的执行并提问，什么是QBASIC程序设计语言？ 图一 QBasic基础入门教程 基础课程0 …………启动和进入Qbasic是一个Dos下的程序，也称作命令行方式，操作主要用键盘输入，因此需要适应用键盘来操作电脑，慢慢多熟悉； 1、启动程序 1）下载Qbasic程序，可以在“常用教具”里下载： https://www.wendangku.net/doc/4b19019316.html,/jiaoju/index.htm 2）解压到D:盘根目录中，进入Qbasic文件夹后，双击一个Qbasic的文件， 图标是一个窗口； 3）双击这个图标即可启动程序，出来的界面是英文的，程序设计里英文用的要比较多些； 另外一种进入方法，用命令行方式进入； 1）点“开始－所有程序－附件－命令提示符”，进入Dos窗口，有个光标在一闪一闪； 2）输入 D:↙ cd qbasic↙ qbasic↙（↙表示每行输完后按一下回车键，cd 后面有个空格），这样也可以进入到Qbasic的窗口中； 这样的好处在于，如果有适当的汉字系统可以在这儿加载，然后程序中就可以输入汉字； 2、启动程序 1）程序启动后进入一个蓝色的窗口，窗口里头都是英文的标题； 2）按一下键盘左上角的“ESC键”进入窗口，这儿记着要按一下ESC键，才能进到窗口中，光标在工作区的右上角一闪一闪； ESC键有取消的作用，可以去掉开始的这个欢迎对话框； 3）退出qbasic的方法，按一下键盘上的Alt键再按F键，按Alt键的时候，菜单栏第一个File会变黑File加亮显示起来，按F后会出来一个菜单； 4）再按一下X键，就可以退出qbasic了，如果出现一个保存对话框提示，没用的按N键就可以退出，有用的按一下Y键保存一下，然后退出； 本节学习了qbasic的进入和退出方法，如果你成功地理解并完成了练习，请继续学习下一课内容； 基础课程1 …………编辑程序 这一节我们来学习，如何在编辑器中输入和运行程序，下面我们通过一个练习来学习操作； 1、启动qbasic 1）进入D:\qbasic文件夹，双击运行qbasic程序，按ESC键进入编辑窗口； 【设计题目】 设计菜单选择趣味程序 【设计要求】 菜单是应用程序的界面，本题的任务是设计一个比较实用的菜单，通过菜单选择不同的功能。设计分为两步：首先设计一个含有多个菜单项的菜单演示程序，然后再为这些菜单项配上相应的功能。 菜单内容 程序运行后，界面给出3个菜单项的内容和输入提示。 1.解一元二次方程 2.出圈游戏 3.退出程序 选择l-3： 使用数字1-3来选择菜单项，执行相应的菜单项功能，其他输入则不起作用。 【总体设计】 一、菜单驱动程序 输入1-3之间的任意一个数字，即可进入相应选择项。从程序测试结果可知，当选择相应选择项时，其输出信息分别为：解一元二次方程、出圈游戏和退出程序。 1.主程序的设计 假设使用文件select.cpp，内容如下: /********************************* *select.cpp主程序文件 *********************************/ #include"cpp2.h" void main() { handle_menu(); //调用菜单处理函数 } 2.实现循环和功能选择的设计-菜单处理函数 /********************************* *菜单处理函数 *********************************/ void handle_menu(void) { for(; ;) { switch(menu_select())//调用菜单选择函数 { case 1: FindIt();//求解一元二次方程 break; case 2: game();//出圈游戏 break; case 3: cout<<"\t再见!\n"; return; } } } 这里使用for循环实现重复选择，假设输入选择用变量用cn存储，它作为menu_select()函数的返回值提供给switch语句。 3.得到cn的合理值的设计-菜单选择函数 应该设计一个函数用来输出提示信息和处理输入，这个函数应该返回一个数 值cn，以便供给switch语句使用。 /********************************* *菜单选择函数 **********************************/ /****************************************************************************** ******* 项目: 1602液晶显示实验+键盘+菜单+DS1302 编译器: A VR Studio_4.12sp4+winA VR412 目标芯片: A Tmega16 时钟: 外部8000000hz 建立日期: 2006-11-18 最后修改日期: ******************************************************************************* **********/ /*--------------------------------------------------------------------------------------- LCD引脚定义 ------------------------------------------------------------------------------------------ 1602pin 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 地Vcc VL Rs Rw En D0 D1 D2 D3 D4 D5 D6 D7 灯+ 灯- | | | | | | | M16 PA1 PA2 PA3 PA4 PA5 PA6 PA7 ******************************************************************************* **********/ /*------------------------------------------------------------------------------------------ 头文件 ------------------------------------------------------------------------------------------*/ #include BASIC Qbasic 教程 BASIC（Beginner’s All-purpose Symbolic Instruction Code 的缩写，意为初学者通用符号指令代码）语言是在1964年由美国的两位教授Thomas 和John G.Kemeny在Fortran语言的基础上设计的语言系统，这个简单、易学的程序设计语言当时只有17条语句，12个函数和3个命令，现在一般称其为基本BASIC。 BASIC语言自诞生起，几十年间，经过世界和地的微机生产厂家的不断扩充和完善，先后出现了许多版本，IBM-PC及其兼容机上用的BASIC和GWBASIC.这些不同版本的BASIC语言并不兼容,在很大程度上依赖于具体的硬件,这些BASIC语言都是非结构化的,一般称其为第一代BASIC。70年代初，提出了结构化程序设计思想，BASIC语言的两位创始人Thomas 和John G.Kemeny于1985年推出了BASIC语言的新版本TrueBASIC，意思是说这才是真正的BASIC，以区别于各微机生产厂家自行开发的“街头BASIC”，它既保留了BASIC语言原有的简单，易学的特点，又使其成为结构化的程序设计语言，开创了BASIC语言的新纪元，属于第二代BASIC。 目前，比较流行的第二代BASIC还有Microsoft公司于1986年推出的Quick BASIC（快速BASIC）和Borland公司于1987年推出的TurboBASIC(增强BASIC)，尤其是Quick BASIC提供了集编辑、调试、编译、运行于一体的集成环境，具有下拉菜单、多窗口及在线帮助功能， 并和以前IBM-PC机上的各种BASIC版本保持兼容。 进入90年代，Microsoft公司研制的Windows视窗软件问世之后，微软公司又开发了一个在Windows下运行的、面向对象的Visual BASIC （可视BASIC，即图形界面式的BASIC），称为第三代BASIC，Visual BASIC与Quick BASIC完全兼容，有Quick BASIC编写的程序不经修改就可在Visual BASIC下运行。属于第三代BASIC语言的还有GFA-BASIC和CA-Realizer。 今天的BASIC语言与最初的BASIC语言相比，无论是在功能上，还是在使用方法上，已经发生了巨大的变化，再也不是当初所谓的“初学者通用符号指令代码”了，但BASIC无论怎样变化，始终保持其简单、易学的特点，拥有最广泛的用户。 1991年6年，伴随着MS-DOS 5.0的推出，微软公司也同时推出了QBASIC，并作为MS-DOS 5.0的一个组成部分免费提供给用户。现在的MS-DOS 5.0及其以上版本都含有QBASIC。QBASIC与Quick BASIC 完全兼容，是Quick BASIC的简化版本，除不能编译及减少了初学者暂时用不着的一些调试方法外，具有Quick BASIC的大部分功能。QBASIC 采用解释方式，是一种会话式的语言，编写的程序可以立即运行并得到结果。由于QBASIC、Quick BASIC都是Microsoft公司开发的，BASIC 语言保持着高度的兼容性和良好的继承性，在学习QBASIC的基础上，可以很容易地掌握和使用Quick BASIC。另外，QBASIC只有两个文件QBASIC.EXE和QBASIC.HLP,用一张360K字节的软盘就可以存放下,无论是使用,还是维护、管理都很方便，所以，QBASIC是最适合初学者 攀枝花学院 学生课程设计（论文） 题目：使用菜单选择趣味程序 学生姓名：张阳学号：201010804052 所在院(系)：计算机学院 专业：软件工程 班级：2010级1班 指导教师：何春燕 2010年6月20日 攀枝花学院本科学生课程设计任务书 注：任务书由指导教师填写。 课程设计（论文）指导教师成绩评定表 摘要 生活在二十一世纪的我们，我们面临着生活的挑战，社会的快速发展，时代的不断更新。越来越来多的现代科技占有主导地位，特别是科技方面的，尤为是计算机技术，在我们生活的各个领域广泛运用，占有一席之地，所谓的后来者居上。本次课程设计的内容就是使用菜单选择趣味程序，其主要操作就是通过编写程序来完成菜单选项，然后通过调用函数来完成小程序的编写，还要用到我们学到的选择，嵌套，循环的方法的使用。该课程主要是将我们的所学C语言运用于实践，在实践中学习，获得成长，锻炼我们的独立思考能力，动手操作能力，完善自己。我会努力完成此次任务，真正获得知识。 关键词：菜单项，函数，调用 目录 摘要 ............................................................................................................................................................................ I 1 需求分析 (1) 1.1 问题描述 (1) 1.2 需求环境 (1) 1.3 功能描述 (1) 2 概要设计 (2) 2.1 程序模块设计 (2) 2.2程序流程图 (2) 2.3 数据结构的设计 (3) 2.3.1 选择结构 (3) 2.3.2 调用函数 (3) 3 详细设计 (4) 3.1程序功能 (4) 3.2趣味菜单程序 (4) 4 测试与运行程序 (8) 5程序运行感言 (10) 结束语 (11) 参考文献 (12) 第一课QBASIC程序的实现 课时：1课时 班级：初一年级 教学目的：1．掌握QBASIC 系统的启动、退出。 2．初步了解QBASIC系统窗口。 3．初步认识QBASIC程序。 4．初步体验程序控制计算机。 教学重点：在QBASIC系统窗口下录入程序并执行。 教学难点：具体问题转化为QBASIC程序。 教学准备：2个简单QBASIC源程序代码。 教学过程： 引言： 从今天起我们学习计算机程序设计，首先大家要知道计算机能做很多的事情，包括各种控制活动，其实都是在程序的控制和指挥下进行的。计算机通过执行存入计算机中的程序完成各种任务，离开了程序，计算机什么也干不了。 什么是程序？程序是用计算机程序设计语言描述的解决问题的过程。 什么是计算机语言？被计算机识别的专用语言。QBASIC语言、VB语言、LOGO语言是程序设计语言（书写程序的），属于计算机语言。 什么是程序设计？是把“人自己做的事情转变成计算机能做的事 情”。此过程需要详尽描述完成事情的过程，以便设备能准确的重复这项工作。用计算机语言描述完成事情的过程是程序。QBASIC程序是用QBASIC语言描述完成事情的过程。 教学过程： （1）完成QBASIC系统的启动、程序录入、程序执行等任务。 （2）在QBASIC系统下调试运行输出*三角形图的程序 课前准备2个简单小程序 LET A=6.8 将数6.8送入变量A中 LET B=3.5 将数3.5送入变量B中 LET L=(A+B)*2 将A与B的2倍送入变量L中LET S=A*B 将A与B的积送入变量S中PRINT L,S 显示输出L及S的值 END 结束 PRINT “*” PRINT “**” PRINT “*****” PRINT “*******” END QBASIC语言程序设计 模拟试卷 （考试时间120分钟，满分100分） 一、选择题（30小题，每小题2分，共60分） 1、QBASIC表达式(LOG(1)+ABS(-1)+INT(RND(1))的值是 A) -1 B) 1 C) 0 D) 2 2、在QBASIC中表达式EXP(-8)+SIN(-8)+SQR(8)的类型是 A) 算术表达式 B) 关系表达式 C) 错误的表达式 D) 逻辑表达式 3、要使变量x赋值为1到100间(含1,不含100)的一个随机整数,正面语句正确的是 A) x=INT(100*RND) B) x=INT(101*RND) C) x=1+INT(100*RND) D) x=1+INT(99*RND) 4、有如下程序 FOR i=1 TO 3 FOR j=1 TO i FOR k=j TO 3 a=a+1 NEXT k NEXT j NEXT i PRINT a END 在运行后输出a的值是 A) 3 B) 14 C) 9 D) 21 5、有如下程序 a=3 IF a then Print3; END IF IF a THEN PRINT4; END IF IF a THEN PRINT5; END IF IF a THEN PRINT6; END IF PRINT END 运行后输出结果是 A) 3 B) 3 4 C) 3 4 5 D) 3 4 5 6 6、有如下程序 FOR j=1 TO 10 x=2*j-1 IF x/3=x\3 OR x/5=x\5 THEN s=s+x NEXT j PRINT "s=";s END 运行后输出S的值是 A) 27 B) 15 C) 32 D) 20 7、有如下程序 sum=0 FOR k=1 TO 10 IF k=10 THEN ELSE sum=sum+k END IF BASIC Qbasic教程 BASIC（Beginner’s All-purposeSymbolicInstructionCode的缩写，意为初学者通用符号指令代码）语言是在1964年由美国的两位教授Thomas和JohnG.Kemeny在Fortran语言的基础上设计的语言系统，这个简单、易学的程序设计语言当时只有17条语句，12个函数和3个命令，现在一般称其为基本BASIC。 BASIC语言自诞生起，几十年间，经过世界和地的微机生产厂家的不断扩充和完善，先后出现了许多版本，IBM-PC及其兼容机上用的BASIC和GWBASIC.这些不同版本的BASIC语言并不兼容,在很大程度上依赖于具体的硬件,这些BASIC语言都是非结构化的,一般称其为第一代BASIC。70年代初，提出了结构化程序设计思想，BASIC语言的两位创始人Thomas和JohnG.Kemeny于1985年推出了BASIC语言的新版本TrueBASIC，意思是说这才是真正的BASIC，以区别于各微机生产厂家自行开发的“街头BASIC”，它既保留了BASIC语言原有的简单，易学的特点，又使其成为结构化的程序设计语言，开创了BASIC语言的新纪元，属于第二代BASIC。 目前，比较流行的第二代BASIC还有Microsoft公司于1986年推出的QuickBASIC（快速BASIC）和Borland公司于1987年推出的TurboBASIC(增强BASIC)，尤其是QuickBASIC提供了集编辑、调试、编译、运行于一体的集成环境，具有下拉菜单、多窗口及在线帮助功能，并和以前IBM-PC机上的各种BASIC版本保持兼容。 进入90年代，Microsoft公司研制的Windows视窗软件问世之后，微软公司又开发了一个在Windows下运行的、面向对象的VisualBASIC（可视BASIC， 菜单程序设计 菜单程序设计2010年12月05日星期日下午09：52菜单程序设计 一、菜单 菜单的基本作用： 菜单的基本类型： 几个常用术语： --菜单条出现在窗体标题的下面，包含每个菜单的标题。 --菜单包含命令列表或子菜单名。 --菜单中列出的每一项。 --从某个菜单项分支出来的另外的一个菜单。具有子菜单的菜单项右边带有一个三角符号标志。 --分隔条是在菜单项之间的一条水平直线，用于修饰菜单。 --弹出式菜单是另一种形式的菜单，在按下鼠标右键时出现，它是一个上下文相关的菜单。 使用菜单编辑器可以为应用程序创建自定义菜单并定义其属性，利用这个编辑器，可以建立下拉式菜单，最多可达6层。 启动菜单编辑器的方法有4种(先选中一个窗体，使之为活动窗体)： 使用菜单"工具"/"菜单编辑器"； 启动后，弹出菜单设计窗口。 菜单编辑器窗口分为三个部分：数据区、编辑区和菜单项显示区。 1、数据区 用来输入或修改菜单项、设置属性。其中： 隔线。 可在该文本框中输入数值，这个值用来在帮助文件(用HelpFile属性设置)中查找相应的帮助主题。 用来确定菜单或菜单项是否出现或在什么位置出现。该列表有4个选项： 0-None菜单项不显示 2、编辑区 共有7个按钮。 3、菜单项显示区(菜单列表) 位于菜单设计窗口的下部，输入的菜单项在这里显示出来，并通过内缩符号(…)表明菜单项的层次。条形光标所在的菜单项是"当前菜单项"。 说明： 菜单项是一个总的名称，包括4个方面的内容：菜单名(菜单标题)、菜单命令、分隔线和子菜单。 内缩符号由4个点组成，它表明菜单项所在的层次，一个内缩符号(4个点)表示一层，两个内缩符号(8个点)表示两层…最多20个点，即5个内缩符号，它后面的菜单项为第六层。如果一个菜单项前面没有内缩符号，则该菜单为菜单名，即菜单的第一层。 隔线。 下面通过一个简单的例子说明菜单程序设计的基本方法和步骤。 例1 QBASIC程序设计 QBASIC程序设计 BASIC是英文Beginner’s All-purpose Sybol ——初学者通用符号指令代码。BASIC语言是一种常用的高级程序设计语言之一。目前比较流行的BASIC语言版本有True BASIC、Turbo BASIC、QBASIC、GWBASIC。本讲义仅介绍QBASIC。 BASIC语言基本知识与要求 １、QBASIC语言的基本知识： QBASIC语言的基本特点； 常量、变量、字符串、算术表达式的概念； 数的表式方法及范围； 语句的基本格式； 顺序、选择、循环结构的程序设计； 程序设计的基本步骤。 ２、QBASIC语句： LET INPUT PRINT END IF FOR DO WHILE REM ３、算术运算符、关系运算符与逻辑运算符：+、—、*、/、\、MOD、^ ＝、>、<、>＝、<＝、< > ＡＮＤ、ＯＲ、ＮＯＴ ４、流程图的基本符号；流程图的作用。 5、循环语句 循环变量、循环体、循环初值、循环终值、步长的概念；循环语句的基本格式。 6、常用函数 数值函数 ＩＮＴ（Ｘ）、ＡＢＳ（Ｘ）、ＳＱＲ（Ｘ）、ＲＮＤ（Ｘ）、 ＳＧＮ（Ｘ）、ＳＩＮ（Ｘ）、ＣＯＳ（Ｘ）、ＴＡＮ（Ｘ） 字符串函数（了解） ＡＳＣ、ＬＥＮ 、TAB （Ｘ）、ＶＡＬ、ＬＯＧ（Ｘ）、ＳＴＲ＄、ＣＨＲ＄、 ＬＥＦＴ＄、ＲＩＧＨＴ＄、 ＭＩＤ＄ 7、数组及其应用（了解） 下标变量、一维、二维数组的概念；数组说明语句 第一章 BASIC 语言基础 第一节 QBASIC 的环境 1、 QBASIC 的进入 用QBASIC 语言编写程序，首先要进入QBASIC 集成环境。QBASIC 主要由QBASIC.EXE 和QBASIC.HLP 两个文件组成，按照教师的要求进入指定的位置，运行QBASIC.EXE 后，屏幕上会出现一个如图1-1的对话框： 直接单击“确定”按钮，便进入QBASIC 的集成环境，其界面如下图2-2： 图1-1 QB的文件操作 学习重点： 1、了解文件的概念和分类。 2、掌握文件的打开、关闭以及读文件、写文件的方法，并能熟练运用。 3、会创建数据文件测试程序的正确性。 一、文件的概念 文件（file）也叫作文档，是存放在磁盘（包括硬盘、软盘、U盘、光盘）上的一批数据，每个文件必须有一个文件全名，用文件全名来指明文件。文件全名包括盘符、若干级目录、文件名、文件类型。 例如： d:\mydir\basic\data.txt 这里，盘符= d:，而且有三级目录，每个斜线引出一级目录，文件名= data ，每级目录和文件名都不得超8个字符，文件类型=.txt，这是最常见的正文文件类型。 以下的文件名均合法： C:\a1.bas 代表C盘根目录下的a1.bas文件。 C:\qb\xue.dat 代表C盘中qb子目录中的xue.dat文件。 A:student.dat 代表A盘中当前目录中的student.dat文件。 abc.bas 代表当前盘、当前目录中的abc.bas文件。 我们知道，计算机的内存容量小，造价高，而且还有一个严重的缺点——易失性，就是说一旦关闭了电源，内存中的全部内容就统统丢失了。为此人们引进了磁盘文件作为内存的补充。 那么文件有什么用途呢？举例说吧，假如你是班级学习委员，编了一个记分的程序。第一天你输入了10个同学的各科成绩，然后你就关机睡觉了。第二天打开机器，你的数据就不翼而飞了，还得从头再来。如果你会使用文件，那就好办了。第一天你键入了一些数据，关机前把它们记入文件，即使关机了文件中的数据也不会丢失，第二天只要让QB打开文件并把其中数据读入到内存，就可以继续输入了。 还有一种情况应该使用文件。如果一个程序需要读取许多数据，若是每次都从键盘敲入，那么既麻烦又容易出错。我们可以把数据做成一个文件，并且让程序读取其中的数据。这样一来程序可能具有更大的灵活性。 按照文件中数据的表现形式来分类，可以将文件分成正文文件和二进制文件。正文文件也叫做ASCII文件，其中的数据都是由ASCII代码构成的，例如我们在QB 一、说教材 1、教材内容：选自中等职业学校教材《QBASIC语言程序设计》第六章第三节数组的应用——《冒泡排序》。 2、本课教学目的：①让学生掌握冒泡排序的基本思想②能按该思想对一组无序数进行排序③能用QBASIC语言编写冒泡排序的程序。④培养学生勤动手、勤动脑的学习兴趣。 3、本课教学重点：通过本课的学习让学生掌握冒泡排序的基本思想，能编写程序。 4、本课教学的难点：模拟实际排序过程，排序程序的编写——各个循环体的语句。 5、本课课时安排：第一课时：学习冒泡排序相关内容；第二课时：学生上机，在QBASIC 语言编辑界面中完成该程序的编写，并调试通过。 6、本课课前准备：《冒泡排序》CAI辅助课件一。 7、本课教材简析：《冒泡排序》是程序设计中很经典的一种数组排序算法，排序思想清晰，过程可描述性强，学生容易理解、掌握；语言编程的实用性也较强，在各种语言的编写中都能应用，对计算机从业人员来说，是必须掌握的程序算法之一。 二、说学生 本节课面向的学生是中专计算机专业学生，自主学习能力不是很好，学习积极性不是很高。学生虽然已经学习了QBASIC语言一段时间，对基本的语句已经掌握，能进行小程序编写，但总的来说知识掌握还不全面，并且个体差异大，好的好、差的差，这节课对大部分学生来说都比较重要，对算法思想的培养对以后较多的排序、查找算法都是一个开端，所以这一节课是提高他们QBASIC语言程序设计能力的关键。 三、说教法 1、使用讲授引导及演示等方法，从具体实际例子对照算法思想。 2、课堂中，注重学生能动性培养，引导学生主动思考，注意即兴教学。 3、创设良好的多媒体教室环境和学习气氛，充分运用先进教学手段，以CAI课件辅助教学，调动学生的学习兴趣和积极性，使学生有兴趣地学、有意愿地学。充分体现知识性和趣味性相结合的原则。 四、说学法 教学活动是以教师为主导、学生为主体的双边活动。以突出学生为主体的学习模式，学生在教师的引导下，通过观察、分析、思考、设计等方法完成学习内容。然后通过练习让学生主动、积极地参与到实际应用中来，通过程序编写使学生由“要我学”转变到“我要学”，充分调动了学生的学习积极性和求知欲望，使整个课堂充满了浓厚的学习气氛。 五、本课教学步骤 课程设计(论文)任务书 软件学院软件+交通运输专业2012-2 班 一、课程设计(论文)题目菜单选择趣味程序 二、课程设计(论文)工作自2013 年 6 月17日起至 2013 年6 月 23 日止 三、课程设计(论文) 地点: 创新大楼 四、课程设计(论文)内容要求： 1．本课程设计的目的 （1）熟练掌握C++语言的基本知识和技能； （2）掌握面向对象程序设计的基本思路和方法； （3）了解指针、类的继承、文件的打开和保存、链表应用 （4）利用所学的基本知识和技能，解决面向对象程序设计问题 （5）培养分析、解决问题的能力；提高学生的科技论文写作能力。 2．课程设计的任务及要求 1）基本要求： 菜单是应用程序的界面，本题的任务是设计一个比较实用的菜单，通过菜单选择不同的功能。设计分为两步：首先设计一个含有多个菜单项的菜单演示程序，然后再为这些菜单项配上相应的功能。 程序运行后，界面给出3个菜单项的内容和输入提示。 1．解一元二次方程 2．出圈游戏 3．退出 选择1-3，使用数字1-3来选择菜单项，执行相应的菜单项功能，其他输入则不起作用。 出圈游戏的规则是，假设有人数为n个人的一个小组，他们按顺时针方向周围坐一圈。一开始任选一个正整数作为报数上限值m，从第一个人开始按顺时针方向自1开始顺序报数，报到m时停止报数。报数m的人出列，然后从他原来所在的，顺时针方向的下一个人开始重新从1报数，报到m时停止报数并出列。如此下去，直至所有人全部出列为止。要求按他们出列的顺序输出他们的名字。 2）创新要求： 能利用文件写入与读出数据。 3）课程设计论文编写要求 （1）要按照课程设计模板的规格书写课程设计论文 （2）论文包括目录、正文、心得体会、参考文献等 （3）课程设计论文用A4纸统一打印，装订按学校的统一要求完成Qbasic教程
计算机C语言趣味的程序设计——题目百例
QBASIC综合实例
QBasic 基础入门教程
设计菜单选择趣味程序
第六节 QBASIC程序的实现
QBasic_基础入门教程
C++第一单元实验一第二题-菜单选择程序
1602多级菜单程序超经典.
QBasic教程(全)
使用菜单选择趣味程序
qbasic程序的执行与实现
QBASIC语言程序设计
[实用参考]QBasic教程(全).doc
菜单程序设计
QBASIC程序设计
QBASIC文件操作
QBASIC语言程序设计说课
c++菜单选择趣味程序