17年河北对口计算机试题(附答案)

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．不随意打开陌生、可疑邮件是预防病毒的一种手段

C．只要安装最好的杀毒软件，就不会感染病毒

D．所有的病毒都会导致计算机越来越慢，甚至可能使系统崩溃

8．为了解决计算机中CPU与内存储器之间速度不匹配问题，常使用的部件是....（）A．Cache B．EPROM C．ROM D．Flash

9．在Windows XP中，为避免文件内容被任意更改，可将其属性设置为.......（）A．系统B．压缩C．存档 D．只读

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”的“季度平均值”，需在“表格”菜单中打开“公式”对话框，如下图所示，应在“=”后面输入正确的公式

是.........................................................（）

A ．AVERAGE(B2:E2)

B ．AVERAGE(LEFT)

C ．AVERAGE(ABOVE)

D ．AVERAGE(B2:D2)

14．在Word 2003文档的页面设置中，不能进行的操作是................（ ）

A ．设置页边距

B ．设置纸张大小

C ．设置纸张来源

D ．设置分栏

15．Excel 2003的数据表 “销售业绩提成表” 如下图所示。若“总销量”达到或高于“奖励标准”，则

在“有无奖金”列填充“有”，否则填充“无”。 单元格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．在Excel 2003中，对数据进行分类汇总前，必须进行的操作是..............（ ）

A ．查询

B ．筛选

C ．检索

D ．排序

17．在Excel 2003工作表中，用“高级筛选”方式筛选数据时，在条件区同一行输入的多个条件之间的

关系是........................... ................（ ） A ．“与”关系

B ．“或”关系

C ．“非”关系

D ．“异或”关系

18．在Visual Basic 中，要产生10到80之间（含10和80

）的随机整数，下列表达式中正确的

是.....................................................（）

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$ B．a!

C．a% D．a#

21．在Visual Basic中，表达式String$(3,"abc")的值是.................（）A．"abcabcabc " B．"aaa"

C．"abc" D．"cba"

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 B．4

C．3 D．2

23．在Visual Basic中，下列控件没有Caption属性的是.....................（）A．列表框B．复选按钮

C．单选按钮D．框架

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中，下列程序运行后，单击命令按钮，则输出结果为........（）

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 B．150 15

C．165 15 D．150 115

26．在Visual Basic 中，为了使一个复选框被禁用（灰色显示），应把它的Value属性设置为.........................................................（）

A．0 B．1

C．2 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

C．120 D．90

28．在Visual Foxpro中，恢复系统菜单默认设置的命令是...................（）A．SET DEFAULT SYSTEM B．SET MENU TO DEFAULT

C．SET SYSTEM TO DEFAULT D．SET SYSMENU TO DEFAULT

29．在Visual Foxpro中，如果指定参照完整性的“删除规则”为“级联”，则当删除父表中的记录时...................................................（）

A．系统自动备份子表相关记录到一个新表中

B．若子表中有相关记录，则禁止删除父表中记录

C．会自动删除子表中所有相关记录

D．不作参照完整性检查，删除父表记录与子表无关

30．在Visual Foxpro中，在DO WHILE……ENDDO循环结构中LOOP语句的作用是..（）A．转移到DO WHILE语句行，开始下一次判断和循环

B．终止循环，将控制转移到本循环结构ENDDO后面的第一条语句继续执行

C．该语句在DO WHILE……循环结构中不起任何作用D．退出循环，返回到程序开始处

31．在Visual Foxpro中，下列表达式返回结果为.T.的是.....................（）A．AT("计算机", "电子计算机") B．TYPE("CTOD('01/01/2017')")="D"

C．"计算机系统结构"$"计算机" D．SUBSTR(STR(120),3,1)="0"

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

SET UDFPARMS TO REFERENCE

SWA((A),B)

?A,B

PROCEDURE SWA

PARAMETERS X1,Y1

TEMP=X1

X1=Y1

Y1=TEMP

ENDPROC

A． 10 10 B． 10 20

C． 20 10 D． 20 20

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

3．在Windows XP 中，要将整个桌面以图片的方式存入剪贴板，应按_ 键。 4．“计算机辅助设计”的英文缩写是 。

5．在Word 2003中，去除图片的部分边缘,使用的是图片工具栏中的 命令。 6．在Excel 2003中，在某一单元格填充分数2/3，输入方法为 。 7. 在Visual Basic 中，顺序文件关闭语句是 。 8. Visual Basic 中，由a 和b 两个变量组成的代数式

a b

a ab

+-的算术表达式 是 。 9. 在Visual FoxPro 中，设M=200，N=300，X="M+N"，Y="01/01/2017"，则表达式

IIF(TYPE("&Y") $ X,REPLICATE("AAA",2),REPLICATE("BBB",2))的值为 。

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

四、根据已知的环境与题意，写出相应的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 命令）

路由器

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 "请输入字符串：" TO CHARIN

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))

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("A") AND ASC(YCHAR(I))<=ASC("Z")

DCHAR=DCHAR+LOWER(CHR(ASC("A")+ASC("Z")-ASC(YCHAR(I))))

ELSE

IF ASC(YCHAR(I))>ASC("a") AND ASC(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．分析下面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)

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 <> "8" Then

num1 = num1 + c

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%10+Y*10

X=INT(X/10)

N=N+1

I=0

E=Y%10

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 "请输入班级名：" TO BJM

USE CJB.DBF

INDEX ON YW TAG YWSX

DIME TEMP(10)

K=0

SAV=0

N=0

DO WHILE NOT EOF()

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）。表数据如下图所示：

有如下Visual FoxPro程序：

ACCEPT "请输入准考证号：" TO ZKZ

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”，显示的结果是：。

七、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

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

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