2017年河北省对口升学计算机专业理论试题(附答案) 下载本文

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