2017 年河北省普通高等学校对口招生考试
计算机专业理论试题（A）
一、选择题（本大题共50小题，每小题2分，共100分。在每小题所给出的四个选项中，只有一个符合题目要求，将正确选项填涂在机读卡上）
1．下列关于计算机语言的描述不正确的是..............................（ ）
A．程序设计语言通常分为机器语言、汇编语言和高级语言三类 B．Visual Basic程序设计语言属于结构化程序设计语言 C．汇编语言编写的程序必须编译成机器语言才能执行 D．常见的解释型语言有C语言
2．影响计算机运行速度的主要性能指标是..............................（ ）A．显示器的分辨率、打印机的性能 B．硬盘的容量和内存的容量 C．字长、内存容量和CPU的时钟频率 D．计算机所配备的语言、操作系统、外部设备
3．下列描述不正确的是..............................................（ ）A．多媒体技术最主要的两个特点是集成性和交互性 B．所有计算机的字长都是固定不变的，都是8位 C．CPU主要包括运算器和控制器两大部件 D．各种高级语言的编译系统都属于系统软件
4．下列关于计算机数制的描述正确的是................................（ ）A．八进制数有8个数码，范围是从1到8
B．一般在数字后面加一个大写字母B表示十六进制数 C．计算机内部所有信息都是以二制数表示的
D．十进制整数转换为二进制的规则是“除2取余数，余数顺序排列”
5．下列4种不同数制表示的数中，数值最大的一个是........................（ A．八进制数367
B．十进制数258
C．十六进制数F6 D．二进制数10000001
6．下列选项体现了冯· 诺依曼计算机体系结构特点的是.....................（ A．引入了CPU的概念 B．ASCII编码和指令系统 C．程序存储和程序控制 D．机器语言和十六进制
7．下列关于病毒的描述，正确的是........................................（ A．只要不上网，就不会感染病毒
B．不随意打开陌生、可疑邮件是预防病毒的一种手段
1
）））
C．只要安装最好的杀毒软件，就不会感染病毒
D．所有的病毒都会导致计算机越来越慢，甚至可能使系统崩溃
8．为了解决计算机中CPU与内存储器之间速度不匹配问题，常使用的部件是....（ ）
A．Cache A．系统
B．EPROM B．压缩
C．ROM D．Flash C．存档 D．只读
9．在Windows XP中，为避免文件内容被任意更改，可将其属性设置为.......（ ） 10．在Windows XP中，关于文件快捷方式的描述正确的是....................（ ）
A．删除文件快捷方式，即删除该快捷方式所指向的文件
B．对快捷方式重新命名后，双击该快捷方式图标，则不能打开其指向的文件 C．在桌面上创建文件的快捷方式，就是将相应的文件复制到桌面 D．创建文件快捷方式，就是建立指向相应文件的链接
11．在Windows XP中，下列关于回收站的描述正确的是.......................（ ）
A．放入回收站的内容，不占用硬盘的存储空间
B．U盘上被删除的文件或文件夹，可以利用回收站的“还原”命令将其恢复 C．执行回收站中的“清空回收站”命令，可以将回收站中的内容还原到原来位置 D．放置在回收站中的文件或文件夹，在回收站被清空之前，可以恢复
12．在Word 2003中，实现下图显示的排版效果，正确的操作方法是.............（ ）
A．将光标置于此段中，单击“格式”菜单中的“首字下沉”菜单项，选择“下沉” 格式。“下沉行数”设置为“2”，单击“确定”
B．将光标置于此段中，单击“工具”菜单中的“首字下沉”菜单项，选择“下沉” 格式。“下沉行数”设置为“2”，单击“确定”
C．选中相关文字，单击“格式”菜单中的“字体”菜单项，将“效果”中“上标” 前面的复选框选中，单击“确定”
D．将光标置于此段中，单击“插入”菜单中的“首字下沉”菜单项，选择“下沉”格式。“下沉行数”设置为“2”，单击“确定”
13．在Word 2003中，若要计算如下表中第2行第6列“厂家A”的“季度平均值”，需在“表格”菜单中
打开“公式”对话框，如下图所示，应在“=”后面输入正确的公式
是.........................................................（ ）
2
A．AVERAGE(B2:E2) B．AVERAGE(LEFT) C．AVERAGE(ABOVE) D．AVERAGE(B2:D2)
14．在Word 2003文档的页面设置中，不能进行的操作是................（ ）
A．设置页边距
B．设置纸张大小 D．设置分栏
C．设置纸张来源
15．Excel 2003的数据表 “销售业绩提成表” 如下图所示。若“总销量”达到或高于“奖励标准”，则
在“有无奖金”列填充“有”，否则填充“无”。 单元格H6中是“奖励标准”的值。现要求在单元格F3中填入公式，判断是否有奖金，并向下自动填充F列其他单元格； H9中填入公式计算奖励比例（有奖金人数除以总人数）。下列是F3和H9中分别填入的公式，其中完全正确的选项是...............（ ）
A．=IF(E3>=H6,\有\无\； =COUNTIF(F3:F10,\有\B．=IF(E3>=$H$6,\有\无\； =COUNTIF(F3:F10,\有\C．=IF(E3>=H$6,\有\无\； =COUNTIF(F3:F10,F6)/COUNT(F3:F10) D．=IF(E3>=$H6,\有\无\； =COUNTIF(F3:F10,F6)/COUNT(F3:F10)
16．在Excel 2003中，对数据进行分类汇总前，必须进行的操作是..............（ ）
A．查询 C．检索
B．筛选 D．排序
17．在Excel 2003工作表中，用“高级筛选”方式筛选数据时，在条件区同一行输入的多个条件之间的
关系是........................... ................（ ） A．“与”关系
B．“或”关系 D．“异或”关系
C．“非”关系
18．在Visual Basic中，要产生10到80之间（含10和80）的随机整数，下列表达式中正确的
3
是.....................................................（ ） A．Int(Rnd*80+10)
B．Int(Rnd*71+10)
C．Int(Rnd*71+70) D．Int(Rnd*10+80)
19．在Visual Basic中, 使用PictureBox控件装载图形，下列方法中不能实现此功能的选项
是.........................................................（ ） A．在设计时使用对象的 Picture 属性 B．在设计时使用剪贴板把图形从剪贴板粘贴到控件上 C．在运行时使用剪贴板把图形从剪贴板粘贴到控件上
D．在运行时使用 LoadPicture 函数装入指定的图形文件,然后将函数返回值赋值给控件的 Picture 属性
20．在Visual Basic中，下列为双精度类型的变量是......................（ ）
A．a$ C．a%
B．a! D．a# B．\D．\
21．在Visual Basic中，表达式String$(3,\的值是.................（ ）
A．\C．\
22．在Visual Basic 的窗体上有一个定时器控件Timer1和一个命令按钮C1，假定定时器控件Timer1的
Interval属性值为500，Enabled属性值为True；命令按钮C1的Left属性值为400，Width属性值为200。Timer1的Timer事件代码为：
Private Sub Timer1_Timer()
C1.Left = C1.Left - 100 End Sub
则程序开始运行多少秒后，命令按钮恰好完全从窗体的左边移出..........（ ）
A．5 C．3 A．列表框
B．4 D．2
B．复选按钮 D．框架
23．在Visual Basic中，下列控件没有Caption属性的是.....................（ ）
C．单选按钮
24．在Visual Basic的窗体中，有名称为List1的列表框，程序运行时，如果选中了列表项号为5的列表项
（列表框中最上面的列表项号为0），下列描述不成立的是（ ） A．List1.Selected(List1.ListIndex) 的值为逻辑值True B．List1.Selected(5) 的值为逻辑值True C．List1.List(5) 的值为逻辑值True D．List1.Listindex 的值为5
25．在Visual Basic中，下列程序运行后，单击命令按钮，则输出结果为........（ ）
4
Private Sub Command1_Click()
Dim x As Integer, y As Integer x = 10 y = 15
Call proc(x, y) Print x, y End Sub
Public Sub proc(a As Integer, ByVal b As Integer)
a = a * b x = a + b b = b + 100 End Sub A．10 165 C．165 15
B．150 15 D．150 115
26．在Visual Basic 中，为了使一个复选框被禁用（灰色显示），应把它的Value属性设置
为.........................................................（ ） A．0 C．2
B．1 D．False
27．在Visual Basic中，有如下程序段。程序运行后，单击命令按钮，在输入对话框中依次输入25，33，
55，66，输出结果是.................................（ ） Private Sub Command1_Click()
Dim x As Integer, y As Integer，a As Integer x = 100 For i = 1 To 4
y = InputBox(\请输入一个整数\If y Mod 5 = 0 Then a = a + y x = y Else
a = a + x End If Next i Print a End Sub A．160
B.100
5
C．120 D．90
B．SET MENU TO DEFAULT D．SET SYSMENU TO DEFAULT
28．在Visual Foxpro中，恢复系统菜单默认设置的命令是...................（ ）
A．SET DEFAULT SYSTEM C．SET SYSTEM TO DEFAULT
29．在Visual Foxpro中，如果指定参照完整性的“删除规则”为“级联”，则当删除父表中的记录
时...................................................（ ） A．系统自动备份子表相关记录到一个新表中 B．若子表中有相关记录，则禁止删除父表中记录 C．会自动删除子表中所有相关记录
D．不作参照完整性检查，删除父表记录与子表无关
30．在Visual Foxpro中，在DO WHILE……ENDDO循环结构中LOOP语句的作用是..（ ）
A．转移到DO WHILE语句行，开始下一次判断和循环
B．终止循环，将控制转移到本循环结构ENDDO后面的第一条语句继续执行 C．该语句在DO WHILE……循环结构中不起任何作用 程序开始处
31．在Visual Foxpro中，下列表达式返回结果为.T.的是.....................（ ）
A．AT(\计算机\电子计算机\B．TYPE(\C．\计算机系统结构\计算机\．SUBSTR(STR(120),3,1)=\
32．在Visual Foxpro中，下列关于查询的描述正确的是......................（ ）
A．不能将查询结果保存在报表文件中 B．查询文件的扩展名为.pqr C．只能对数据库表建立查询
D．查询是从指定的表或视图中提取满足条件的记录，可将结果定向输出
33．在Visual Foxpro中，用报表向导创建报表时，可设置的报表布局方式有.....（ ）
A．列数、方向、字段布局 B．列数、行数、字段布局 C．行数、方向、字段布局 D．列数、行数、方向
34．在Visual Foxpro中，关于过程调用的描述正确的是......................（ ）
A．当实参的数量多于形参的数量时，多余的实参被忽略 B．过程中必须包含RETURN语句，否则不能返回调用程序 C．参数传递都是按引用传递 D．上面的都不正确
35．在Visual Foxpro中，下列程序段执行以后，显示的结果为................（ ）
CLEAR A=10 B=20
6
D．退出循环，返回到
SET UDFPARMS TO REFERENCE SWA((A),B) ?A,B
PROCEDURE SWA PARAMETERS X1,Y1 TEMP=X1 X1=Y1 Y1=TEMP ENDPROC A． 10 10 C． 20 10 A．速率 C．主频
B． 10 20 D． 20 20 B．带宽 D．时延
36．下列选项不属于计算机网络性能指标的是..............................（ ）
37．在同一种网络体系结构下，下列关于网络协议与网络服务的描述中，正确的是（ ）
A．网络协议与网络服务同时存在，可以相互替代
B．网络协议与网络服务没有联系，可以独立存在并独立运行 C．网络协议是分层次的，而网络服务是不分层次的
D．网络协议水平存在于不同网络结点（即同层次同协议），网络服务垂直存在于同一网络结点相邻层次之间
38．在互联网中的两台计算机间传递文件时，组成该文件的数据被划分为若干个数据包进行传送。下列关
于数据传送过程的描述中，不正确的是.................（ ） A．受网络协议控制，数据包可能需要重新发送 B．数据包的长度不一定都是相同的 C．不同的数据包经过的传送路径是相同的 D．数据包不一定按发送顺序到达目标计算机
39．下列关于物理层通信的描述不正确的是................................（ ）
A．信号是数据的载体，可以通过物理层无差错传递
B．基带传输时，传送的是数字信号；宽带传输时，传送的是模拟信号 C．并行传输比串行传输效率高、信息吞吐量大 D．全双工通信的效率比半双工通信、单工通信高
40．在下列通信介质中，对抗电磁干扰最为理想的是.........................（ ）
A．同轴电缆 C．卫星通信
B．光纤
D．屏蔽双绞线
41．NIC（网络适配器，即网卡）不具备下列哪个功能..........................（ ）
7
A．透明传输 C．封装成帧
B．拥塞控制 D．差错检测
42．为了通过共享信道、最大限度提高信道利用率，在网络通信中广泛使用多路复用技术。下列关于多路
复用技术的描述不正确的是..........................（ ） A．频分复用是指在同一物理连接中使用不同的频率来传输不同的信号 B．时分复用是指在同一物理连接的不同时段来传输不同的信号 C．码分复用是指使用同一码制携带多路信号
D．波分复用是指将波长不同的光信号合成一束，沿着单根光纤进行传输
43．下列关于以太网标准10BASE-T的描述不正确的是.......................（ ）
A．“10”表示信号在电缆上的传输速率为10MB/s B．“T”表示连网介质为双绞线
C．“BASE”表示通过连网介质传送的信号是基带信号 D．使用10BASE-T标准的网络，其物理拓朴结构为星形
44．下列关于网络设备的描述正确的是....................................（ ）
A．网卡工作在数据链路层，可以进行路由选择
B．集线器与交换机都是工作在数据链路层的，但交换机性能优于集线器 C．中继器可以有效扩展网络范围，其工作在物理层 D．路由器在传输层将不同网络进行了互连
45．下列关于网络协议及拓朴的描述正确的是..............................（ ）
A．使用不同协议的网络，不能进行互连 B．不同拓朴结构的网络，可以进行互连
C．拓朴结构与网络协议有关，即一种网络结构只能使用一种特定的网络协议 D．环形网中使用的硬件设备，可以直接应用到星形网络中
46．下列对CSMA/CD的描述正确的是......................................（ ）
A．CSMA/CD通过令牌帧的传递控制结点数据的收、发过程
B．CSMA/CD工作方式允许多个结点同时发送数据而不会产生信道冲突
C．CSMA/CD指载波监听多点接入/碰撞检测，是一种公共介质竞争使用的控制方法 D．CSMA/CD是环形网络广泛使用的工作方式
47．计算机网络中主机的硬件地址是指....................................（ ）
A．域名地址 C．IP地址
B．端口地址 D．MAC地址
48．下列关于子网掩码的描述不正确的是..................................（ ）
A．子网掩码由四个十进制数组成，这四个十进制数只能是0或255 B．子网掩码与IP地址按位与运算，可以得到该计算机所在的网络地址 C．子网掩码可以用来屏蔽IP地址的一部分，以区别网络标识和主机标识
8
D．子网掩码可以用于将一个大的IP网络划分为若干小的子网络
49．有下列6个IP地址，下列关于IP地址分类的描述不正确的是..............（ ）
（1）128.36.199.3 （3）183.194.76.253 （5）89.3.0.1 A．(2)和(5)是A类 C．(1)和(3)是B类
（2）21.12.240.17 （4）192.12.69.248 （6）200.3.6.2
B．(6)和(2)是D类 D．(4)和(6)是C类
50．下列关于ARP协议的描述正确的是....................................（ ）
A．ARP协议向网络层提供地址转换服务，所以ARP工作在数据链路层 B．ARP协议工作时只通过检索方式，即可获得目标MAC地址 C．ARP协议完成从IP地址到MAC地址的转换 D．ARP协议通过向服务器问询，获得目标MAC地址
二、判断题（本大题14小题，每小题1分，共14分。将答案填涂在机读卡上，正确的填涂“√”格，错误的填涂“×”格）
1．目前在生活和工作中普遍使用的计算机，主要电子元器件采用的是大规模和超大规模集成电路。（ ） 2．CPU可以直接访问硬盘存储器。（ ）
3．操作系统的主要功能是对计算机所有资源进行统一控制和管理，为用户使用计算机提供方便。（ ） 4．在Windows XP中，将文件以鼠标左键拖拽方式释放至另一文件夹，完成的功能是复制而非移动。（ ） 5．在Word 2003中，表格外框线的线型可以设置不同，但表中内框线的线型设置必须一致。（ ） 6．在Word 2003中，通过“插入”菜单中的“页眉和页脚”菜单项，可以为文档设置页眉和页脚。（ ） 7．在Excel 2003中，可以通过使用“条件格式”功能，将满足条件的数据进行突出显示。（ ） 8．在Excel 2003中，如果要一次性在多个单元格中填入相同内容 ，采取的步骤是：①选中多个单元格；
②输入内容；③按Ctrl+Enter键。（ ）
9．在Visual Basic中，单击滚动条上的箭头，可触发滚动条的Scroll事件。（ ）
10．在Visual FoxPro中，当表单运行时，数据环境中的表处于只读状态，只能显示不能修改。（ ） 11．DHCP协议的主要功能是建立IP地址与域名的对应关系。（ ） 12．网络防火墙工作在网络层，可以实现基于IP地址的数据包过滤。（ ）
13．能够共享到网络中的资源，只能是以文件、数据等形式提供的软件资源，而不能是计算机硬件资源。
（ ）
14．FTP是一个应用层协议，可以用来传输各种格式的文件。（ ）
三、填空题（本大题共13小题，每小题2分，共26分。请将答案填写在答题纸上） 1．已知字母a的ASCII码是(97)10，则字母f的ASCII码是( )10。
2．在计算机中，供用户自定义计算机外观和功能，添加或删除程序，设置网络连接和用户账户等的应用
程序的集合是 。
9
3．在Windows XP中，要将整个桌面以图片的方式存入剪贴板，应按_ 键。 4．“计算机辅助设计”的英文缩写是 。
5．在Word 2003中，去除图片的部分边缘,使用的是图片工具栏中的 命令。 6．在Excel 2003中，在某一单元格填充分数2/3，输入方法为 。 7. 在Visual Basic中，顺序文件关闭语句是 。 8. Visual Basic中，由a和b两个变量组成的代数式
ab?a的算术表达式 是 。 a?b9. 在Visual FoxPro中，设M=200，N=300，X=\，Y=\，则表达式
IIF(TYPE(\的值为 。
10. 在Visual FoxPro中，使用命令DECLARE MM(5,6)定义的数组，包含的数组元素的个数为 。 11．与IPv4不同，IPv6协议使用 个字节来表示一个IP地址。 12．计算机网络的OSI参考模型，其中文名称为 。
13．如下图所示，5台计算机（PC1～PC5，IP地址为：192.168.1.1～192.168.1.5）均连接到交换机组成
一个局域网络，交换机与一台路由器连接，路由器已经连接到Internet，路由器参数如图所示。若5台计算机能够访问Internet，则其网关参数应设置为
四、根据已知的环境与题意，写出相应的Visual FoxPro操作命令或SQL语句，要求每小题用一条命令或语
句完成（本大题共5小题，每小题4分，共20分，请将答案填写在答题纸上）
现有数据库“JXC.DBC”，其中包含表“PROINFO.DBF”，该表有以下字段：商品编号(C,6)、商品名称(C,40)、商品类别(C,4)、商品单位(C,6)、商品单价(N,8,1)，库存下限(N,8,0)，产地（C,40），并建立了以“商品编号”为关键字的主索引。相应的数据库和表已打开，写出实现下述功能的命令(注意：每个命令只能写一条语句，多于一条不得分)。
1．删除所有“库存下限”小于100,“商品单位”不是“箱”的记录。（要求使用Visual FoxPro命令） 2．假设表“GOODS.DBF”与表“PROINFO.DBF”结构相同，将“GOODS.DBF”中的数据添加到“PROINFO.DBF”
表中。（要求使用Visual FoxPro命令）
10
交换机 路由器 LAN口：192.168.1.100 WAN口：118.5.10.22 Internet PC1 PC2 PC3 PC4 PC5
3.创建“SALLINFO.DBF”表（商品编号（C，6），售价（N，8,1））,并与“PROINFO.DBF”建立关联，关联
字段为“商品编号”。（要求使用SQL语句）
4．将“PROINFO.DBF”表所有“商品单位”为“听”，商品类别为“0001”的商品“库存下限”调整为200。
（要求使用SQL语句）
5．按不同“商品类别”计算“PROINFO.DBF”表中“商品单价”的平均值。（要求使用SQL语句） 五、程序分析（本大题共2小题，每小题5分，共10分，读程序并分析结果，请填写在答题纸上） 1．分析下面的Visual Basic程序，循环体中的语句s = s + 1循环了_______次。
Option Base 1
Private Sub Command1_Click() Dim i As Integer Dim s As Integer Dim k As Integer i = 0: s = 0
a = Array(80, 20, 100, 40, 70, 60, 50, 10, 90, 30) For k = 1 To 10
For i = a(k) To 1 Step -1 If i >= 45 Then goto Lab1 s = s + 1 Next i Lab1: Next k Print s End Sub
2．分析下面的Visual FoxPro程序，要使输出结果为VhayagawVgavIx,则输入的字符串应
为 。 CLEAR
ACCEPT \请输入字符串：\N=LEN(CHARIN) DIME YCHAR(N) FOR I=1 TO N IF I % 2=0
YCHAR(I)=SUBSTR(CHARIN,I,1) ELSE
YCHAR(I)=UPPER(SUBSTR(CHARIN,I,1))
11
ENDIF ENDFOR FOR I=1 TO N/2 TEMP=YCHAR(I) YCHAR(I)=YCHAR(N-I+1) YCHAR(N-I+1)=TEMP ENDFOR DCHAR=\FOR I=1 TO N
IF ASC(YCHAR(I))>=ASC(\ DCHAR=DCHAR+LOWER(CHR(ASC(\ ELSE
IF ASC(YCHAR(I))>ASC(\ DCHAR=DCHAR+UPPER(CHR(ASC(\ ELSE
DCHAR=DCHAR+YCHAR(I) ENDIF ENDIF ENDFOR ?DCHAR
六、写出下列程序的运行结果（本大题共5小题，每小题5分，共25分，请将答案填写在答题纸上） 1．分析下面Visual Basic程序。窗体中有一命令按钮（名称为Command1）。
Option Base 1
Private Sub Command1_Click() Dim i As Integer Dim k As Integer Dim m As Integer
a = Array(6, 4, 8, 2, 1, 3, 9, 12, 43, 67, 8) For i = 1 To 10 For k = i + 1 To 11 If a(i) > a(k) Then
a(i) = a(i) + a(k): a(k) = a(i) - a(k): a(i) = a(i) - a(k) End If Next k
If a(i) >= 10 Then a(i) = Int(a(i) / 10)
12
Next i
If a(i) >= 10 Then a(i) = Int(a(i) / 10) m = 0
For i = 1 To 11 m = m + a(i) Next i Print m End Sub
窗体启动后，单击命令按钮，窗体显示的结果为________。
2．分析下面Visual Basic程序。如图所示，界面中有两个文本框和一个命令按钮，上面有字符的控件是
文本框1（名称Text1），中间的控件是文本框2（名称Text2），最下面的控件是命令按钮（名称Command1）。
Private Sub Command1_Click() Dim num As String Dim num1 As String Dim num2 As String Dim c As String Dim i As Integer Dim length As Integer Dim length1 As Integer Dim length2 As Integer length1 = 0: length2 = 0 num = Text1.Text length = Len(num) For i = 1 To length c = Mid(num, i, 1) If c <> \ num1 = num1 + c
13
length1 = length1 + 1 Else
If length1 > length2 Then length2 = length1: num2 = num1 length1 = 0: num1 = \ Else
length1 = 0: num1 = \ End If End If Next i
If length1 > length2 Then num2 = num1 End If
Text2.Text = num2 End Sub
窗体运行后，在文本框1中输入图中所示的字母和数字，单击命令按钮，则在文本框2显示的内容是__________________。 3．有如下Visual FoxPro程序：
CLEAR PUBLIC C,D A=12345678 B=10 C=20 D=30 N=0
DO SUB1 WITH A,B ?A,B,C,D PROCEDURE SUB1 PARAMETERS X,Y PRIVATE C Y=0 FLAG=.T. DO WHILE FLAG Y=X+Y*10 X=INT(X/10)
14
N=N+1 I=0 E=Y DO WHILE I<=N
E=E*10 I=I+1
ENDDO D=E+D IF X<100
FLAG=.F.
ENDIF ENDDO
C=STR(X)+STR(Y) RETURN ENDPROC
运行上面的程序，显示的结果为： 。
4．现有表“CJB.DBF”，结构为：BJ_NAME(C,30)、XM(C，8)、YW(N,4,1),表中数据如下图所示：
有如下Visual FoxPro程序： ACCEPT \请输入班级名：\USE CJB.DBF
INDEX ON YW TAG YWSX DIME TEMP(10) K=0 SAV=0 N=0
DO WHILE NOT EOF()
15
IF TRIM(BJ_NAME)=TRIM(BJM) TEMP(K+1)=YW K=K+1
ENDIF N=N+1 SAV=SAV+YW SKIP ENDDO FOR M=1 TO 1
ZH1=TEMP(M) ENDFOR FOR M=2 TO 2
ZH2=TEMP(M) ENDFOR FOR M=3 TO 3 IF K<3 ZH3=ZH2 ELSE
ZH3=TEMP(K) ENDIF ENDFOR
P=ZH1*0.5+ZH2*0.35+ZH3*0.15-SAV/N ?P
运行上面的程序，输入“高三（1）班”，显示的结果是： 。
5. 数据库文件ZKSCORE.DBC包含1个表“CJB.DBF”，表结构为：准考证号(C,9)、姓名(C,8)、学校名称
(C,20)、班级名称(C,20)、总分（N,5,1）。表数据如下图所示：
16
有如下Visual FoxPro程序： ACCEPT \请输入准考证号：\OPEN DATABASE ZKSCORE ALTER TABLE CJB ADD X2 N(2,0)
SELECT 准考证号,姓名,学校名称,班级名称,总分,X2 FROM CJB ORDER BY; 学校名称,班级名称,总分 DESC INTO TABLE CJTMP GO TOP X=1 Y=X
NX1=CJTMP.总分 BJ=CJTMP.班级名称 XX=学校名称 DO WHILE NOT EOF()
IF BJ=CJTMP.班级名称 AND XX=CJTMP.学校名称 REPLACE X2 WITH IIF(NX1=CJTMP.总分,Y,X) Y=CJTMP.X2 X=X+1
BJ=CJTMP.班级名称 XX=学校名称 NX1=CJTMP.总分 ELSE X=1 Y=X
NX1=CJTMP.总分 REPLACE X2 WITH X X=X+1
BJ=CJTMP.班级名称 XX=CJTMP.学校名称 ENDIF SKIP ENDDO
SELECT 准考证号,姓名,X2 WHERE 准考证号=ZKZ FROM CJTMP INTO TABLE TMPJG ?准考证号,姓名,X2
运行上面的程序，输入“801510114”，显示的结果是： 。
17
七、Visual Basic程序改错(本大题共2小题，每题5分，共10分，每个小题的程序有两个错误行，请在
答题纸上写出错误行代码和对应的改正后代码，错误行代码和改正后代码完全正确方可得分) 1．下面的程序是利用InputBox函数依次输入两个长度小于20的、均由数字字符组成的字符串，依次存
入到两个字符串变量中，然后从两个字符串的起始位置开始依次取出一个字符进行操作，操作的规则是：
（1）把取出的字符转换成数字分别存入到数组a和数组b中，将两个数组中下标相同的元素值相加，如
果它们的和大于9，则存入数组c中，否则不存入。然后再分别取下一个字符，进行同样的操作。 （2）如果某个字符串中的字符已经取完，则把另一个未取完的字符串中的字符单个取出，转换成数字后
加上10直接存入到数组c中。
例如输入的字符串是：“123456789”和“96666666666”,则最后数组c中存入的应该是:10,10,11,12,13,14,15,16,16。
Option Base 1
Private Sub Command1_Click() Dim a(20) As Integer Dim b(20) As Integer Dim c(20) As Integer Dim i As Integer Dim j As Integer Dim len1 As Integer Dim len2 As Integer Dim str1 As String Dim str2 As String
str1 = InputBox(\请输入第一个数字字符串：\str2 = InputBox(\请输入第二个数字字符串：\len1 = Len(str1) len2 = Len(str2) i = 1: j = 1
Do While i <= len1 And i <= len2 a(i) = Val(Mid(str1, i, 1)) b(i) = Val(Mid(str2, i, 1))
If a(i) + b(i) > 9 Then c(j) = a(i) + b(i): j = j + 1 i = i + 1 Loop
If len1 > len2 Then str1 = Mid(str1, i) Else
18
Str2 = Mid(str2, i) End If
len1 = Len(str1) i = 1
Do While i <= len1
c(j) = Val(Mid(str1, i, 1)) + 10 i = i + 1: j = j + 1 Loop
For i = 1 To j Print c(i); Next i
End Sub
2．下面程序的功能是：定义一个4行4列的数组并赋值， 要求第1行至第4行产生的数分别在10至19、20至29、30至39、40至49之间，再用Inputbox函数输入一个1到4之间的数字，然后求该数字所对应行与列元素的和。如产生的数组是： 10 17 18 19
21 24 25 23 35 32 30 38 41 44 47 42
若输入一个数字2，则求第2行与第2列元素的和，结果为210。
Option Base 1
Private Sub Command1_Click() Dim a(4, 4) As Integer Dim num As Integer Dim s As Integer
Dim i As Integer, j As Integer For i = 1 To 4 For j = 1 To 4
a(i, j) = 10 + Int(Rnd * 10) Print a(i, j); Next j Print Next i
num = InputBox(\请输入一个1至4的数字：\s = a(num, num) For i = 1 To 4 For j = 1 To 4
If i = num Or j = num Then
19
s = s + a(num, num)
End If
Next j Next i Print s End Sub
八、程序填空（本大题共7个空，每空5分，共35分，按程序要求在答题纸上填入相应的内容，使程序
完整正确）
1．(Visual Basic试题)下面程序的功能是输入一个大于等于10小于500的数字，然后把10到该数字之
间的所有素数找出并存入到数组a中，并输出此数组。请在划线位置填写正确的内容。
Option Base 1
Private Sub Command1_Click() Dim num As Integer Dim a(100) As Integer Dim n As Integer Dim k As Integer Dim i As Integer Dim j As Integer n = 1
num = InputBox(\请输入一个数字：\For i = 10 To num k = Sqr(i) For j = 2 To k
If i Mod j = 0 Then ______________ Next j If j > k Then
____________: n = n + 1 End If Next i If n = 1 Then
Print \一个也没有\Else
For i = 1 To n - 1 Print a(i); Next i
20
End If End Sub
2．(Visual Basic试题)窗体上有五个标签(用来提示其右侧的内容，标题分别是数据1，数据2，滚动条，
运算符，结果)。数据1右侧是文本框1（名称为Text1），数据2右侧是一列表框（名称为List1），运算符右侧是一组合框（名称为Combo1），上述三个控件内容如程序及图所示。滚动条（名称为HS1）最小值和最大值分别是10和50，滚动条的LargeChange属性值为10。界面中目前显示42的控件是文本框2（名称为Text2），其值由文本框1中部分数据、组合框中选定的运算符及列表框中数据进行某种运算产生。标题显示“开始”的是一命令按钮（名称为Command1）。有一定时器控件(名称为Timer1)，初始设置Timer1.Enabled 为 False，Timer1.Interval =2000，定时器的Timer1_Timer事件主要功能是：程序中的变量a保存从Text1中选定的内容，变量c保存从Combo1中选定的值，变量b保存List1及HS1的运算结果。这些变量按指定规则运算，结果显示在Text2中。下图是窗体启动并单击“开始”按钮后，滚动条的值达到30时的状态。请在划线位置填写正确的内容。
Private Sub Form_Load() List1.AddItem \List1.AddItem \List1.AddItem \List1.AddItem \List1.AddItem \Combo1.AddItem \Combo1.AddItem \Combo1.AddItem \Combo1.AddItem \Text1.Text = \End Sub
Private Sub Command1_Click() Timer1.Enabled = True
21
Text1.SelStart =__________ Text1.SelLength = 2 End Sub
Private Sub Timer1_Timer() Dim a As Integer Dim b As Integer Dim s As Integer Dim c As String Static n As Integer n = n + 1
HS1.Value = n * 10 a = Val(Text1.SelText)
b = Val(List1.List((HS1.Value / 10) - 1)) c = ____________ Select Case c Case \ s = a + b Case \ s = a - b Case \ s = a * b Case \ s = a / b End Select Text2.Text = s If n = 5 Then n = 0
End Sub
3．(Visual FoxPro试题)已知有“KSSCORE.DBC”数据库，其中包含表“CJB.DBF”， “CJB.DBF”表的结
构为准考证号（C,9）、姓名（C,8）、学校名称（C,20）、班级名称（C,10）、科目1（C,4,1）、科目2（C,4,1）……科目9（C,4,1）（共9个科目）。应用程序运行时界面如下图所示：
22
设置控件属性如下：
有三个标签，其Name属性分别为Label1、Label2和Label3，Caption属性分别为“学校选择”、“班级选择”、“结果：”；有一个文本框，其Name属性为Text1；两个组合框，其Name属性分别为Combo1和Combo2，其中分别列出了供选择的学校和班级（属性中已设置，代码中直接使用）；一个命令按钮，其Name属性为Command1，Caption属性为“确定”。 编写Visual FoxPro程序，实现功能如下：
在Combo1中选择一个学校，在Combo2中选择一个班级，单击Command1(“确定”按钮)，则在Text1中显示该学校该班级9个科目优秀率的相关数据（每个科目优秀的标准是相应科目>=90，优秀率=相应科目优秀的人数/该学校该班人数*100%）。
Command1（“确定”按钮）的Click事件代码如下，请在划线位置填写正确的内容。（代码中行末的分号为逻辑行连接符） XXMC=THISFORM.COMBO1.VALUE BJMC=THISFORM.COMBO2.VALUE OPEN DATABASE KSSCORE
SELECT 学校名称,班级名称,COUNT(准考证号) AS 班级人数 FROM CJB GROUP BY; 学校名称,班级名称 INTO TABLE YXLTJTMP SELECT * FROM CJB.DBF INTO DBF BJYXLTJB ZAP
ALTER TABLE BJYXLTJB DROP COLUMN 准考证号 ALTER TABLE BJYXLTJB DROP COLUMN 姓名 ALTER TABLE BJYXLTJB ADD 班级人数 N(4,0) FOR K=1 TO 9
FKMRS=\科目\ ALTER TABLE BJYXLTJB ALTER &FKMRS N(4,0) ENDFOR FOR I=1 TO 9
KMC=\科目\
SELECT 学校名称,班级名称,COUNT(准考证号) AS KMCRS FROM CJB; WHERE GROUP BY 学校名称,班级名称 INTO DBF TJYXFTMP SCAN
UPDATE BJYXLTJB SET &KMC=TJYXFTMP.KMCRS WHERE BJYXLTJB.学校名称; =TJYXFTMP.学校名称 AND BJYXLTJB.班级名称=TJYXFTMP.班级名称 ENDSCAN
23
ENDFOR JIEGUO=\
JIEGUO=XXMC+\FOR K=1 TO 9
KMMC=\科目\
SELECT &KMMC AS KMRS,班级人数 FROM BJYXLTJB WHERE 学校名称=XXMC; AND 班级名称=BJMC INTO DBF YXJG
JIEGUO=JIEGUO+\班级人数*100)))+\ENDFOR
CLOSE DATABASE
2017 年河北省普通高等学校对口招生考试
计算机专业理论试题（A）答案
一、选择题（每小题2分） 1．D 2．C 3．B 11．D 21. B 31．B 12．A 22.C 32．D 13．D 23.A 33．A 4．C 14．D 24. C 34．D 5．B 15．B 25. B 35．A 6．C 16．D 26.C 36．C 7．B 17．A 27. A 37．D 8．A 18．B 28．D 38．C 9．D 19．C 29．C 39．A 49．B 10．D 20．D 30．A 40．B 50．C 41．B 42．C 43．A 44．C 45．B 46．C 47．D 48．A 二、判断题（每小题1分） 1．√ 2．× 3．√ 4． × 5．× 6．× 7．√ 8．√ 9．× 10. × 11．× 12． √ 13．× 14．√ 三、填空题（每小题2分） 1. 102 2．控制面板 3．PrintScreen（PrtSc ） 4．CAD 5．裁剪 6．0加空格加2/3 7．Close 8. a*b/(a-b)+a 9. AAAAAA
10．30 11．16 12．开放系统互连 13．192.168.1.100
四、命令或语句（每小题4分）
1． DELETE ALL FOR 库存下限<100 AND NOT 商品单位= \箱\
DELETE ALL FOR 库存下限<100 AND 商品单位<>\箱\2. APPEND FROM GOODS
3． CREATE TABLE SALLINFO.DBF(商品编号 C(6) REFERENCES PROINFO,售价 N(8,1))
4． UPDATE PROINFO.DBF SET 库存下限=200 WHERE 商品单位=\听\商品类别=\5． SELECT商品类别, AVG(商品单价) FROM “PROINFO.DBF” GROUP BY 商品类别
24
五、程序分析（每小题5分）
1. 100 2. createdatabase(字符串中的字母是由这些字符组成的，只要偶数位的是小写的，奇数位上的无论大小写都对，比如CrEaTeDaTaBaSe、CrEateDatabase) 六、写出程序执行结果（每小题5分）
1．52 2．kaoshi
3．12 876543 20 34567830 4． -11.05
5．801510114 张丽丽 2 七、程序改错
1、(共2处错，每处改对得2.5分，改错不扣分)
错误行：str2 = Mid(str2, i) 正确行str1 = Mid(str2, i)
错误行：For i = 1 To j 正确行: For i = 1 To j - 1
2、(共2处错，每处改对得2.5分，改错不扣分) 错误行：a(i, j) = 10 + Int(Rnd * 10) 正确行: a(i, j) = 10 * i + Int(Rnd * 10)
错误行：s = s + a(num, num) 正确行: s = s + a(i, j)
八、程序填空
1、（每空5分） Exit For a(n) = i 2、（每空5分） 1
Combo1.Text或Combo1
3（每空5分）
APPEND FROM YXLTJTMP &KMC>=90
THISFORM.TEXT1.VALUE=JIEGUO
25