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