OPTION BASE 1
DIM A(11) AS INTEGER,N AS INTEGER FOR I=1 TO 10 READ A(I) NEXT I
INPUT “输入一个整数：”,N FOR I=10 TO 1 STEP -1
IF [4] THEN A(I+1)=N:EXIT FOR Y( [5] )=Y(I) NEXT I
A( [6] )=N
PRINT “输出插入后的数组：” FOR I＝1 TO 11
PRINT A（I）； NEXT I
DATA -10,10,23,35,42,46,78,96,101,120 END
3. 数据过滤程序：从左边文本框输入任意文本，如果是数字字符，则显示在右边文本框中。运行结果如下图，请将事件过程补充完整。
对象 窗体 标签 标签 左边文本框 右边文本框 对象名 Form1 Label1 Label2 Text1 Text2
属性名 Caption Caption Caption Text Text (KeyAscii As Integer) Then
属性值 数据过滤 输入数据： 过滤后的数据： 事件过程如下： Private Sub Text1_ IF Text2.Text=
End IF End Sub
六、程序设计题（请用QBASIC语言按要求编写程序， 15分）
1. 从键盘输入任意一个正整数，输出该数各位数之和。如输入274，输出13(2+7+4=13)。
第6页
福州市《计算机类专业基础知识》第二次质检答题卡
(2005.4月 总分：300分 考试时间：150分钟)
学校：
班级：
姓名：
4) 10) 16) 22) 28) 2 4 6 8 10 12 14 16 18 20 22 24 座号： 成绩：
6) 12) 18) 24) 30) 一、 单项选择题（30*4=120分） 1) 2) 3) 7) 8) 9) 13) 14) 15) 19) 20) 21) 25) 26) 27) 二、填空题（24*3＝72分） 1 3 5 7 9 11 13 15 17 19 21 23 5) 11) 17) 23) 29) 三、 计算分析题（10+8+12=30分） 1．用公式法化简Y?AB?AB?AC。（10分）
2．根据右图所示的卡拉诺图化简逻辑函数。（8分）
第7页
CD AB 00 01 11 10 00 01 11 10 1 1 1 1 1 1 1 1 1 1 1 1 3.
四、 Qbasic语言程序分析题（每题6分，共18分） 1) 2) 3)
五、 程序填空题（3 *15分=45分） 1) 4) 7)
2) 5) 8)
3) 6) 9)
六、 程序设计题（请用QBASIC语言按要求编写程序， 15分）
要求：字迹工整
第8页