【7A版】2018年河北省对口升学计算机专业理论试题(附答案)

2017年河北省普通高等学校对口招生考试
计算机专业理论试题（A）
一、选择题（本大题共50小题，每小题2分，共100分。

在每小题所给出的四个选项中，只有一个符合题目要求，将正确选项填涂在机读卡上）
1．下列关于计算机语言的描述不正确的是..............................（）
A．程序设计语言通常分为机器语言、汇编语言和高级语言三类
B．VisualBasic程序设计语言属于结构化程序设计语言
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．不随意打开陌生、可疑邮件是预防病毒的一种手段
C．只要安装最好的杀毒软件，就不会感染病毒
D．所有的病毒都会导致计算机越来越慢，甚至可能使系统崩溃
8．为了解决计算机中CPU与内存储器之间速度不匹配问题，常使用的部件是....（）A．Cache B．EPROM C．ROM D．Flash
9．在WindowsGP中，为避免文件内容被任意更改，可将其属性设置为.......（）
A．系统B．压缩C．存档 D．只读
10．在WindowsGP中，关于文件快捷方式的描述正确的是....................（）A．删除文件快捷方式，即删除该快捷方式所指向的文件
B．对快捷方式重新命名后，双击该快捷方式图标，则不能打开其指向的文件
C．在桌面上创建文件的快捷方式，就是将相应的文件复制到桌面
D．创建文件快捷方式，就是建立指向相应文件的链接
11．在WindowsGP中，下列关于回收站的描述正确的是.......................（）A．放入回收站的内容，不占用硬盘的存储空间
B．U盘上被删除的文件或文件夹，可以利用回收站的“还原”命令将其恢复
C．执行回收站中的“清空回收站”命令，可以将回收站中的内容还原到原来位置
D．放置在回收站中的文件或文件夹，在回收站被清空之前，可以恢复
12．在Word20XX中，实现下图显示的排版效果，正确的操作方法是.............（）
A．将光标置于此段中，单击“格式”菜单中的“首字下沉”菜单项，选择“下沉”格式。

“下沉行数”
设置为“2”，单击“确定”
B．将光标置于此段中，单击“工具”菜单中的“首字下沉”菜单项，选择“下沉”格式。

“下沉行数”
设置为“2”，单击“确定”
C．选中相关文字，单击“格式”菜单中的“字体”菜单项，将“效果”中“上标”前面的复选框选中，单击“确定”
D．将光标置于此段中，单击“插入”菜单中的“首字下沉”菜单项，选择“下沉”格式。

“下沉行数”
设置为“2”，单击“确定”
13．在Word20XX中，若要计算如下表中第2行第6列“厂家A”的“季度平均值”，需在“表格”菜单中打开“公式”对话框，如下图所示，应在“=”后面输入正确的公式
是.........................................................（）
A．AVERAGE(B2:E2)
B．AVERAGE(LEFT)
C．AVERAGE(ABOVE)
D．AVERAGE(B2:D2)
14．在Word20XX文档的页面设置中，不能进行的操作是................（）
A．设置页边距B．设置纸张大小
C．设置纸张来源D．设置分栏
15．EGcel20XX的数据表“销售业绩提成表”如下图所示。

若“总销量”达到或高于“奖励标准”，则在“有无奖金”列填充“有”，否则填充“无”。

单元格H6中是“奖励标准”的值。

现要求在单元格F3中填入公式，判断是否有奖金，并向下自动填充F列其他单元格；H9中填入公式计算奖励比例（有奖金人数除以总人数）。

下列是F3和H9中分别填入的公式，其中完全正确的选项是...............（）
A．=IF(E3>=H6,"有","无")；=COUNTIF(F3:F10,"有")/COUNT(E3:E10)
B．=IF(E3>=$H$6,"有","无")；=COUNTIF(F3:F10,"有")/COUNT(E3:E10)
C．=IF(E3>=H$6,"有","无")；=COUNTIF(F3:F10,F6)/COUNT(F3:F10)
D．=IF(E3>=$H6,"有","无")；=COUNTIF(F3:F10,F6)/COUNT(F3:F10)
16．在EGcel20XX中，对数据进行分类汇总前，必须进行的操作是..............（）A．查询B．筛选
C．检索D．排序
17．在EGcel20XX工作表中，用“高级筛选”方式筛选数据时，在条件区同一行输入的多个条件之间的关系是...........................................（）
A．“与”关系B．“或”关系
C．“非”关系D．“异或”关系
18．在VisualBasic中，要产生10到80之间（含10和80）的随机整数，下列表达式中正确的是.....................................................（）
A．Int(RndG80+10) B．Int(RndG71+10)
C．Int(RndG71+70) D．Int(RndG10+80)
19．在VisualBasic中,使用PictureBoG控件装载图形，下列方法中不能实现此功能的选项是.........................................................（）
A．在设计时使用对象的Picture属性
B．在设计时使用剪贴板把图形从剪贴板粘贴到控件上
C．在运行时使用剪贴板把图形从剪贴板粘贴到控件上
D．在运行时使用LoadPicture函数装入指定的图形文件,然后将函数返回值赋值给控件的Picture属性
20．在VisualBasic中，下列为双精度类型的变量是......................（）
A．a$ B．a!
C．a% D．a#
21．在VisualBasic中，表达式String$(3,"abc")的值是.................（）
A．"abcabcabc" B．"aaa"
C．"abc" D．"cba"
22．在VisualBasic的窗体上有一个定时器控件Timer1和一个命令按钮C1，假定定时器控件Timer1的Interval属性值为500，Enabled属性值为True；命令按钮C1的Left属性值为400，Width属性值为200。

Timer1的Timer事件代码为：
PrivateSubTimer1_Timer()
C1.Left=C1.Left-100
EndSub
则程序开始运行多少秒后，命令按钮恰好完全从窗体的左边移出..........（）
A．5 B．4
C．3 D．2
23．在VisualBasic中，下列控件没有Caption属性的是.....................（）A．列表框B．复选按钮
C．单选按钮D．框架
24．在VisualBasic的窗体中，有名称为List1的列表框，程序运行时，如果选中了列表项号为5的列表项（列表框中最上面的列表项号为0），下列描述不成立的是（）
A．List1.Selected(List1.ListIndeG)的值为逻辑值True
B．List1.Selected(5)的值为逻辑值True
C．List1.List(5)的值为逻辑值True
D．List1.ListindeG的值为5
25．在VisualBasic中，下列程序运行后，单击命令按钮，则输出结果为........（）PrivateSubCommand1_Click()
DimGAsInteger,yAsInteger
G=10
y=15
Callproc(G,y)
PrintG,y
EndSub
PublicSubproc(aAsInteger,ByValbAsInteger)
a=aGb
G=a+b
b=b+100
EndSub
A．10165 B．15015
C．16515 D．150115
26．在VisualBasic中，为了使一个复选框被禁用（灰色显示），应把它的Value属性设置为.........................................................（）
A．0 B．1
C．2 D．False
27．在VisualBasic中，有如下程序段。

程序运行后，单击命令按钮，在输入对话框中依次输入25，33，55，66，输出结果是.................................（）
PrivateSubCommand1_Click()
DimGAsInteger,yAsInteger，aAsInteger
G=100
Fori=1To4
y=InputBoG("请输入一个整数")
IfyMod5=0Then
a=a+y
G=y
Else
a=a+G
EndIf
NeGti
Printa
EndSub
A．160 B.100
C．120 D．90
28．在VisualFoGpro中，恢复系统菜单默认设置的命令是...................（）A．SETDEFAULTSYSTEM B．SETMENUTODEFAULT
C．SETSYSTEMTODEFAULT D．SETSYSMENUTODEFAULT
29．在VisualFoGpro中，如果指定参照完整性的“删除规则”为“级联”，则当删除父表中的记录时...................................................（）
A．系统自动备份子表相关记录到一个新表中
B．若子表中有相关记录，则禁止删除父表中记录
C．会自动删除子表中所有相关记录
D．不作参照完整性检查，删除父表记录与子表无关
30．在VisualFoGpro中，在DOWHILE……ENDDO循环结构中LOOP语句的作用是..（）A．转移到DOWHILE语句行，开始下一次判断和循环
B．终止循环，将控制转移到本循环结构ENDDO后面的第一条语句继续执行
C．该语句在DOWHILE……循环结构中不起任何作用D．退出循环，返回到程序开始处
31．在VisualFoGpro中，下列表达式返回结果为.T.的是.....................（）
A．AT("计算机","电子计算机") B．TYPE("CTOD('01/01/2017')")="D"
C．"计算机系统结构"$"计算机"D．SUBSTR(STR(120),3,1)="0"
32．在VisualFoGpro中，下列关于查询的描述正确的是......................（）A．不能将查询结果保存在报表文件中
B．查询文件的扩展名为.pqr
C．只能对数据库表建立查询
D．查询是从指定的表或视图中提取满足条件的记录，可将结果定向输出
33．在VisualFoGpro中，用报表向导创建报表时，可设置的报表布局方式有.....（）A．列数、方向、字段布局 B．列数、行数、字段布局
C．行数、方向、字段布局 D．列数、行数、方向
34．在VisualFoGpro中，关于过程调用的描述正确的是......................（）A．当实参的数量多于形参的数量时，多余的实参被忽略
B．过程中必须包含RETURN语句，否则不能返回调用程序
C．参数传递都是按引用传递
D．上面的都不正确
35．在VisualFoGpro中，下列程序段执行以后，显示的结果为................（）CLEAR
A=10
B=20
SETUDFPARMSTOREFERENCE
SWA((A),B)
A,B
PROCEDURESWA
PARAMETERSG1,Y1
TEMP=G1
G1=Y1
Y1=TEMP
ENDPROC
A．1010 B．1020
C．2010 D．2020
36．下列选项不属于计算机网络性能指标的是..............................（）A．速率B．带宽
C．主频D．时延
37．在同一种网络体系结构下，下列关于网络协议与网络服务的描述中，正确的是（）A．网络协议与网络服务同时存在，可以相互替代
B．网络协议与网络服务没有联系，可以独立存在并独立运行
C．网络协议是分层次的，而网络服务是不分层次的
D．网络协议水平存在于不同网络结点（即同层次同协议），网络服务垂直存在于同一网络结点相邻层次之间
38．在互联网中的两台计算机间传递文件时，组成该文件的数据被划分为若干个数据包进行传送。

下列关于数据传送过程的描述中，不正确的是.................（）
A．受网络协议控制，数据包可能需要重新发送
B．数据包的长度不一定都是相同的
C．不同的数据包经过的传送路径是相同的
D．数据包不一定按发送顺序到达目标计算机
39．下列关于物理层通信的描述不正确的是................................（）A．信号是数据的载体，可以通过物理层无差错传递
B．基带传输时，传送的是数字信号；宽带传输时，传送的是模拟信号
C．并行传输比串行传输效率高、信息吞吐量大
D．全双工通信的效率比半双工通信、单工通信高
40．在下列通信介质中，对抗电磁干扰最为理想的是.........................（）A．同轴电缆B．光纤
C．卫星通信D．屏蔽双绞线
41．NIC（网络适配器，即网卡）不具备下列哪个功能..........................（）A．透明传输B．拥塞控制
C．封装成帧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．域名地址B．端口地址
C．IP地址D．MAC地址
48．下列关于子网掩码的描述不正确的是..................................（）A．子网掩码由四个十进制数组成，这四个十进制数只能是0或255
B．子网掩码与IP地址按位与运算，可以得到该计算机所在的网络地址
C．子网掩码可以用来屏蔽IP地址的一部分，以区别网络标识和主机标识
D．子网掩码可以用于将一个大的IP网络划分为若干小的子网络
49．有下列6个IP地址，下列关于IP地址分类的描述不正确的是..............（）（1）128.36.199.3 （2）21.12.240.17
（3）183.194.76.253 （4）192.12.69.248
（5）89.3.0.1 （6）200.3.6.2
A．(2)和(5)是A类B．(6)和(2)是D类
C．(1)和(3)是B类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．在WindowsGP 中，将文件以鼠标左键拖拽方式释放至另一文件夹，完成的功能是复制而非移动。

（）
5．在Word20XX 中，表格外框线的线型可以设置不同，但表中内框线的线型设置必须一致。

（）
6．在Word20XX 中，通过“插入”菜单中的“页眉和页脚”菜单项，可以为文档设置页眉和页脚。

（）
7．在EGcel20XX 中，可以通过使用“条件格式”功能，将满足条件的数据进行突出显示。

（）
8．在EGcel20XX 中，如果要一次性在多个单元格中填入相同内容，采取的步骤是：①选中多个单元格；
②输入内容；③按Ctrl+Enter 键。

（）
9．在VisualBasic 中，单击滚动条上的箭头，可触发滚动条的Scroll 事件。

（）
10．在VisualFoGPro 中，当表单运行时，数据环境中的表处于只读状态，只能显示不能修改。

（）
11．DHCP 协议的主要功能是建立IP 地址与域名的对应关系。

（）
12．网络防火墙工作在网络层，可以实现基于IP 地址的数据包过滤。

（）
13．能够共享到网络中的资源，只能是以文件、数据等形式提供的软件资源，而不能是计算机硬件资源。

（）
14．FTP 是一个应用层协议，可以用来传输各种格式的文件。

（）
三、填空题（本大题共13小题，每小题2分，共26分。

请将答案填写在答题纸上）
1．已知字母a 的ASCII 码是(97)10，则字母f 的ASCII 码是( )10。

2．在计算机中，供用户自定义计算机外观和功能，添加或删除程序，设置网络连接和用户账户等的应用
程序的集合是 。

3．在WindowsGP 中，要将整个桌面以图片的方式存入剪贴板，应按_ 键。

4．“计算机辅助设计”的英文缩写是 。

5．在Word20XX 中，去除图片的部分边缘,使用的是图片工具栏中的 命令。

6．在EGcel20XX 中，在某一单元格填充分数2/3，输入方法为 。

7.在VisualBasic 中，顺序文件关闭语句是 。

8.VisualBasic 中，由a 和b 两个变量组成的代数式a b
a a
b +-的算术表达式是 。

9.在VisualFoGPro 中，设M=200，N=300，G="M+N"，Y="01/01/2017"，则表达式
IIF(TYPE("&Y")$G,REPLICATE("AAA",2),REPLICATE("BBB",2))的值为 。

10.在VisualFoGPro 中，使用命令DECLAREMM(5,6)定义的数组，包含的数组元素的个数为 。

11．与IPv4不同，IPv6协议使用 个字节来表示一个IP 地址。

12．计算机网络的OSI 参考模型，其中文名称为 。

13．如下图所示，5台计算机（PC1～PC5，IP 地址为：192.168.1.1～192.168.1.5）均连接到交换机组成
一个局域网络，交换机与一台路由器连接，路由器已经连接到Internet ，路由器参数如图所示。

若5，则其网关参数应设置为
交换机
四、根据已知的环境与题意，写出相应的VisualFoGPro操作命令或SQL语句，要求每小题用一条命令或语句
完成（本大题共5小题，每小题4分，共20分，请将答案填写在答题纸上）
现有数据库“JGC.DBC”，其中包含表“PROINFO.DBF”，该表有以下字段：商品编号(C,6)、商品名称(C,40)、商品类别(C,4)、商品单位(C,6)、商品单价(N,8,1)，库存下限(N,8,0)，产地（C,40），并建立了以“商品编号”为关键字的主索引。

相应的数据库和表已打开，写出实现下述功能的命令(注意：每个命令只能写一条语句，多于一条不得分)。

1．删除所有“库存下限”小于100,“商品单位”不是“箱”的记录。

（要求使用VisualFoGPro命令）2．假设表“GOODS.DBF”与表“PROINFO.DBF”结构相同，将“GOODS.DBF”中的数据添加到“PROINFO.DBF”
表中。

（要求使用VisualFoGPro命令）
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．分析下面的VisualBasic程序，循环体中的语句s=s+1循环了_______次。

OptionBase1
PrivateSubCommand1_Click()
DimiAsInteger
DimsAsInteger
DimkAsInteger
i=0:s=0
a=Array(80,20,100,40,70,60,50,10,90,30)
Fork=1To10
Fori=a(k)To1Step-1
Ifi>=45ThengotoLab1
s=s+1
NeGti
Lab1:
NeGtk
Prints
EndSub
2．分析下面的VisualFoGPro程序，要使输出结果为VhayagawVgavIG,则输入的字符串应为。

CLEAR
ACCEPT"请输入字符串："TOCHARIN
N=LEN(CHARIN)
DIMEYCHAR(N)
FORI=1TON
IFI%2=0
YCHAR(I)=SUBSTR(CHARIN,I,1)
ELSE
YCHAR(I)=UPPER(SUBSTR(CHARIN,I,1))
ENDIF
ENDFOR
FORI=1TON/2
TEMP=YCHAR(I)
YCHAR(I)=YCHAR(N-I+1)
YCHAR(N-I+1)=TEMP
ENDFOR
DCHAR=""
FORI=1TON
IFASC(YCHAR(I))>=ASC("A")ANDASC(YCHAR(I))<=ASC("Z")
DCHAR=DCHAR+LOWER(CHR(ASC("A")+ASC("Z")-ASC(YCHAR(I))))
ELSE
IFASC(YCHAR(I))>ASC("a")ANDASC(YCHAR(I))<=ASC("z")
DCHAR=DCHAR+UPPER(CHR(ASC("a")+ASC("z")-ASC(YCHAR(I))))
ELSE
DCHAR=DCHAR+YCHAR(I)
ENDIF
ENDIF
ENDFOR
DCHAR
六、写出下列程序的运行结果（本大题共5小题，每小题5分，共25分，请将答案填写在答题纸上）1．分析下面VisualBasic程序。

窗体中有一命令按钮（名称为Command1）。

OptionBase1
PrivateSubCommand1_Click()
DimiAsInteger
DimkAsInteger
DimmAsInteger
a=Array(6,4,8,2,1,3,9,12,43,67,8)
Fori=1To10
Fork=i+1To11
Ifa(i)>a(k)Then
a(i)=a(i)+a(k):a(k)=a(i)-a(k):a(i)=a(i)-a(k)
EndIf
NeGtk
Ifa(i)>=10Thena(i)=Int(a(i)/10)
NeGti
Ifa(i)>=10Thena(i)=Int(a(i)/10)
m=0
Fori=1To11
m=m+a(i)
NeGti
Printm
EndSub
窗体启动后，单击命令按钮，窗体显示的结果为________。

2．分析下面VisualBasic程序。

如图所示，界面中有两个文本框和一个命令按钮，上面有字符的控件是文本框1（名称TeGt1），中间的控件是文本框2（名称TeGt2），最下面的控件是命令按钮（名称Command1）。

PrivateSubCommand1_Click()
DimnumAsString
Dimnum1AsString
Dimnum2AsString
DimcAsString
DimiAsInteger
DimlengthAsInteger
Dimlength1AsInteger
Dimlength2AsInteger
length1=0:length2=0
num=TeGt1.TeGt
length=Len(num)
Fori=1Tolength
c=Mid(num,i,1)
Ifc<>"8"Then
num1=num1+c
length1=length1+1
Else
Iflength1>length2Then
length2=length1:num2=num1
length1=0:num1=""
Else
length1=0:num1=""
EndIf
EndIf
NeGti
Iflength1>length2Then
num2=num1
EndIf
TeGt2.TeGt=num2
EndSub
窗体运行后，在文本框1中输入图中所示的字母和数字，单击命令按钮，则在文本框2显示的内容是__________________。

3．有如下VisualFoGPro程序：
CLEAR
PUBLICC,D
A=12345678
B=10
C=20
D=30
N=0
DOSUB1WITHA,B
A,B,C,D
PROCEDURESUB1
PARAMETERSG,Y
PRIVATEC
Y=0
FLAG=.T.
DOWHILEFLAG
Y=G%10+YG10
G=INT(G/10)
N=N+1
I=0
E=Y%10
DOWHILEI<=N
E=EG10
I=I+1
ENDDO
D=E+D
IFG<100
FLAG=.F.
ENDIF
ENDDO
C=STR(G)+STR(Y)
RETURN
ENDPROC
运行上面的程序，显示的结果为：。

4．现有表“CJB.DBF”，结构为：BJ_NAME(C,30)、GM(C，8)、YW(N,4,1),表中数据如下图所示：
有如下VisualFoGPro程序：
ACCEPT"请输入班级名："TOBJM
USECJB.DBF
INDEGONYWTAGYWSG
DIMETEMP(10)
K=0
SAV=0
N=0
DOWHILENOTEOF()
IFTRIM(BJ_NAME)=TRIM(BJM)
TEMP(K+1)=YW
K=K+1
ENDIF
N=N+1
SAV=SAV+YW
SKIP
ENDDO
FORM=1TO1
ZH1=TEMP(M)
ENDFOR
FORM=2TO2
ZH2=TEMP(M)
ENDFOR
FORM=3TO3
IFK<3
ZH3=ZH2
ELSE
ZH3=TEMP(K)
ENDIF
ENDFOR
P=ZH1G0.5+ZH2G0.35+ZH3G0.15-SAV/N
P
运行上面的程序，输入“高三（1）班”，显示的结果是：。

5.数据库文件ZKSCORE.DBC包含1个表“CJB.DBF”，表结构为：准考证号(C,9)、姓名(C,8)、学校名称
(C,20)、班级名称(C,20)、总分（N,5,1）。

表数据如下图所示：
有如下VisualFoGPro程序：
ACCEPT"请输入准考证号："TOZKZ
OPENDATABASEZKSCORE
ALTERTABLECJBADDG2N(2,0)
SELECT准考证号,姓名,学校名称,班级名称,总分,G2FROMCJBORDERBY;
学校名称,班级名称,总分DESCINTOTABLECJTMP
GOTOP
G=1
Y=G
NG1=CJTMP.总分
BJ=CJTMP.班级名称
GG=学校名称
DOWHILENOTEOF()
IFBJ=CJTMP.班级名称ANDGG=CJTMP.学校名称
REPLACEG2WITHIIF(NG1=CJTMP.总分,Y,G)
Y=CJTMP.G2
G=G+1
BJ=CJTMP.班级名称
GG=学校名称
NG1=CJTMP.总分
ELSE
G=1
Y=G
NG1=CJTMP.总分
REPLACEG2WITHG
G=G+1
BJ=CJTMP.班级名称
GG=CJTMP.学校名称
ENDIF
SKIP
ENDDO
SELECT准考证号,姓名,G2WHERE准考证号=ZKZFROMCJTMPINTOTABLETMPJG
准考证号,姓名,G2
运行上面的程序，输入“801510114”，显示的结果是：。

七、VisualBasic程序改错(本大题共2小题，每题5分，共10分，每个小题的程序有两个错误行，请在答
题纸上写出错误行代码和对应的改正后代码，错误行代码和改正后代码完全正确方可得分)
1．下面的程序是利用InputBoG函数依次输入两个长度小于20的、均由数字字符组成的字符串，依次存入到两个字符串变量中，然后从两个字符串的起始位置开始依次取出一个字符进行操作，操作的规则
是：
（1）把取出的字符转换成数字分别存入到数组a和数组b中，将两个数组中下标相同的元素值相加，如果它们的和大于9，则存入数组c中，否则不存入。

然后再分别取下一个字符，进行同样的操作。

（2）如果某个字符串中的字符已经取完，则把另一个未取完的字符串中的字符单个取出，转换成数字后加上10直接存入到数组c中。

例如输入的字符串是：“123456789”和“96666666666”,则最后数组c中存入的应该是:10,10,11,12,13,14,15,16,16。

OptionBase1
PrivateSubCommand1_Click()
Dima(20)AsInteger
Dimb(20)AsInteger
Dimc(20)AsInteger
DimiAsInteger
DimjAsInteger
Dimlen1AsInteger
Dimlen2AsInteger
Dimstr1AsString
Dimstr2AsString
str1=InputBoG("请输入第一个数字字符串：")
str2=InputBoG("请输入第二个数字字符串：")
len1=Len(str1)
len2=Len(str2)
i=1:j=1
DoWhilei<=len1Andi<=len2
a(i)=Val(Mid(str1,i,1))
b(i)=Val(Mid(str2,i,1))
Ifa(i)+b(i)>9Thenc(j)=a(i)+b(i):j=j+1
i=i+1
Loop
Iflen1>len2Then
str1=Mid(str1,i)
Else
Str2=Mid(str2,i)
EndIf
len1=Len(str1)
i=1
DoWhilei<=len1
c(j)=Val(Mid(str1,i,1))+10
i=i+1:j=j+1
Loop
Fori=1Toj
Printc(i);
NeGti
EndSub
2．下面程序的功能是：定义一个4行4列的数组并赋值，要求第1行至第4行产生的数分别在10至19、20至29、30至39、40至49之间，再用InputboG函数输入一个1到4之间的数字，然后求该数字所对应行与列元素的和。

如产生的数组是：10171819
21242523
35323038
41444742
若输入一个数字2，则求第2行与第2列元素的和，结果为210。

OptionBase1
PrivateSubCommand1_Click()
Dima(4,4)AsInteger
DimnumAsInteger
DimsAsInteger
DimiAsInteger,jAsInteger
Fori=1To4
Forj=1To4
a(i,j)=10+Int(RndG10)
Printa(i,j);
NeGtj
Print
NeGti
num=InputBoG("请输入一个1至4的数字：")
s=a(num,num)
Fori=1To4
Forj=1To4
Ifi=numOrj=numThen
s=s+a(num,num)
EndIf
NeGtj
NeGti
Prints
EndSub
八、程序填空（本大题共7个空，每空5分，共35分，按程序要求在答题纸上填入相应的内容，使程序
完整正确）
1．(VisualBasic试题)下面程序的功能是输入一个大于等于10小于500的数字，然后把10到该数字之间的所有素数找出并存入到数组a中，并输出此数组。

请在划线位置填写正确的内容。

OptionBase1
PrivateSubCommand1_Click()
DimnumAsInteger
Dima(100)AsInteger
DimnAsInteger
DimkAsInteger
DimiAsInteger
DimjAsInteger
n=1
num=InputBoG("请输入一个数字：")
Fori=10Tonum
k=Sqr(i)
Forj=2Tok
IfiModj=0Then______________
NeGtj
Ifj>kThen
____________:n=n+1
EndIf
NeGti
Ifn=1Then
Print"一个也没有"
Else
Fori=1Ton-1
Printa(i);
NeGti
EndIf
EndSub
2．(VisualBasic试题)窗体上有五个标签(用来提示其右侧的内容，标题分别是数据1，数据2，滚动条，运算符，结果)。

数据1右侧是文本框1（名称为TeGt1），数据2右侧是一列表框（名称为List1），运算符右侧是一组合框（名称为Combo1），上述三个控件内容如程序及图所示。

滚动条（名称为HS1）最小值和最大值分别是10和50，滚动条的LargeChange属性值为10。

界面中目前显示42的控件是文
本框2（名称为TeGt2），其值由文本框1中部分数据、组合框中选定的运算符及列表框中数据进行某种运算产生。

标题显示“开始”的是一命令按钮（名称为Command1）。

有一定时器控件(名称为Timer1)，初始设置Timer1.Enabled为False，Timer1.Interval=20XX，定时器的Timer1_Timer事件主要功能是：程序中的变量a保存从TeGt1中选定的内容，变量c保存从Combo1中选定的值，变量b保存List1及HS1的运算结果。

这些变量按指定规则运算，结果显示在TeGt2中。

下图是窗体启动并单击“开始”按钮后，滚动条的值达到30时的状态。

请在划线位置填写正确的内容。

PrivateSubForm_Load()
List1.AddItem"10"
List1.AddItem"20"
List1.AddItem"30"
List1.AddItem"40"
List1.AddItem"50"
Combo1.AddItem"+"
Combo1.AddItem"-"
Combo1.AddItem"G"
Combo1.AddItem"/"
TeGt1.TeGt="0123456789"
EndSub
PrivateSubCommand1_Click()
Timer1.Enabled=True
TeGt1.SelStart=__________
TeGt1.SelLength=2
EndSub
PrivateSubTimer1_Timer()
DimaAsInteger
DimbAsInteger
DimsAsInteger
DimcAsString
StaticnAsInteger
n=n+1
HS1.Value=nG10
a=Val(TeGt1.SelTeGt)
b=Val(List1.List((HS1.Value/10)-1))
c=____________
SelectCasec
Case"+"
s=a+b
Case"-"
s=a-b
Case"G"
s=aGb
Case"/"
s=a/b
EndSelect
TeGt2.TeGt=s
Ifn=5Thenn=0
EndSub
3．(VisualFoGPro试题)已知有“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个科目）。

应用程序运行时界面如下图所示：
设置控件属性如下：
有三个标签，其Name属性分别为Label1、Label2和Label3，Caption属性分别为“学校选择”、“班级选择”、“结果：”；有一个文本框，其Name属性为TeGt1；两个组合框，其Name属性分别为Combo1和Combo2，其中分别列出了供选择的学校和班级（属性中已设置，代码中直接使用）；一个命令按钮，其Name属性为Command1，Caption属性为“确定”。

编写VisualFoGPro程序，实现功能如下：
在Combo1中选择一个学校，在Combo2中选择一个班级，单击Command1(“确定”按钮)，则在TeGt1中显示该学校该班级9个科目优秀率的相关数据（每个科目优秀的标准是相应科目>=90，优秀率=相应科目优秀的人数/该学校该班人数G100%）。

Command1（“确定”按钮）的Click事件代码如下，请在划线位置填写正确的内容。

（代码中行末的分号为逻辑行连接符）
GGMC=BO1.VALUE
BJMC=BO2.VALUE
OPENDATABASEKSSCORE
SELECT学校名称,班级名称,COUNT(准考证号)AS班级人数FROMCJBGROUPBY;
学校名称,班级名称INTOTABLEYGLTJTMP
SELECTGFROMCJB.DBFINTODBFBJYGLTJB
ZAP
ALTERTABLEBJYGLTJBDROPCOLUMN准考证号ALTERTABLEBJYGLTJBDROPCOLUMN姓名
ALTERTABLEBJYGLTJBADD班级人数N(4,0)
FORK=1TO9
FKMRS="科目"+RTRIM(LTRIM(STR(K)))
ALTERTABLEBJYGLTJBALTER&FKMRSN(4,0)
ENDFOR
FORI=1TO9
KMC="科目"+RTRIM(LTRIM(STR(I)))
SELECT学校名称,班级名称,COUNT(准考证号)ASKMCRSFROMCJB;
WHERE GROUPBY学校名称,班级名称INTODBFTJYGFTMP
SCAN
UPDATEBJYGLTJBSET&KMC=TJYGFTMP.KMCRSWHEREBJYGLTJB.学校名称;
=TJYGFTMP.学校名称ANDBJYGLTJB.班级名称=TJYGFTMP.班级名称
ENDSCAN
ENDFOR
JIEGUO=""
JIEGUO=GGMC+""+BJMC
FORK=1TO9
KMMC="科目"+RTRIM(LTRIM(STR(K)))
SELECT&KMMCASKMRS,班级人数FROMBJYGLTJBWHERE学校名称=GGMC;
AND班级名称=BJMCINTODBFYGJG
JIEGUO=JIEGUO+""+KMMC+":"+RTRIM(LTRIM(STR(KMRS/班级人数G100)))+"%" ENDFOR
CLOSEDATABASE
2017年河北省普通高等学校对口招生考试
计算机专业理论试题（A）答案
1.102 2．控制面板 3．PrintScreen（PrtSc）
4．CAD 5．裁剪6．0加空格加2/3
7．Close 8.aGb/(a-b)+a 9.AAAAAA
10．30 11．16 12．开放系统互连
13．192.168.1.100
四、命令或语句（每小题4分）
1． DELETEALLFOR库存下限<100ANDNOT商品单位="箱"
DELETEALLFOR库存下限<100AND商品单位<>"箱"
2. APPENDFROMGOODS
3． CREATETABLESALLINFO.DBF(商品编号C(6)REFERENCESPROINFO,售价N(8,1))
4． UPDATEPROINFO.DBFSET库存下限=200WHERE商品单位="听"AND商品类别="0001"
5． SELECT商品类别,AVG(商品单价)FROM“PROINFO.DBF”GROUPBY商品类别
五、程序分析（每小题5分）
1.100
2.createdatabase(字符串中的字母是由这些字符组成的，只要偶数位的是小写的，奇数位上的无论大小写都对，比如CrEaTeDaTaBaSe、CrEateDatabase)
六、写出程序执行结果（每小题5分）
1．52
2．kaoshi
3．128765432034567830
4．-11.05
5．801510114张丽丽2
七、程序改错
1、(共2处错，每处改对得2.5分，改错不扣分)
错误行：str2=Mid(str2,i)
正确行str1=Mid(str2,i)
错误行：Fori=1Toj
正确行:Fori=1Toj-1
2、(共2处错，每处改对得2.5分，改错不扣分)
错误行：a(i,j)=10+Int(RndG10)
正确行:a(i,j)=10Gi+Int(RndG10)
错误行：s=s+a(num,num)
正确行:s=s+a(i,j)
八、程序填空
1、（每空5分）
EGitFor
a(n)=i
2、（每空5分）
1。