2012年河北省计算机对口招生考试试题(带部分答案)

2012年河北省普通高等学校对口招生考试

计算机专业理论试题（A）

注意事项：

1．本试卷共八道大题。总分240分。

2．第I卷“一、选择题”、第II卷“二、判断题”的答案填涂在机读卡上，其余各题答案写在答题纸上，答在试卷上不得分。用蓝黑钢笔、碳素笔或圆珠笔答题。 3．答题前将密封线内项目填写清楚。

第Ⅰ卷（选择题 共100分）

一、选择题（本大题共50小题，每小题2分，共100分。在每小题所给出的四个选项中，只有一个符合题目要求，将正确选项填涂在机读卡上）

1．下列计算机外部设备中，既属于输入设备又属于输出设备的是．．．．．．．．．．．．．．．（ ）

A．鼠标 C．键盘 B．硬盘 D．扫描仪 2．以晶体管为主要元器件的计算机属于第几代计算机．．．．．．．．．．．．．．．．．．．．．．．．．（ ）

A．四 B．三 C．二 D．一

3．关于计算机软件描述错误的是．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．（ ）

A．Windows 7是操作系统，属于系统软件 B. Fortran语言是高级语言，属于系统软件 C．CAI是计算机辅助教学软件，属于系统软件 D. WPS是文字处理软件，属于应用软件

4．二进制数1101111.11B转换成十六进制数是．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．（ ）

A．DE.CH B．DE.3H C．6F.3H D．6F.CH

5．下列关于计算机病毒叙述错误的是 ．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．（ ）

A．计算机病毒具有潜伏性

B．计算机病毒是人为编制的计算机程序 C．计算机病毒对设置密码较复杂的文件感染的几率很低

D．杀毒软件要不断的升级病毒库并时常查杀才能有效的保证计算机安全

6．计算机应用领域最广泛的是．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．（ ）

A．科学计算 B．辅助技术 C．数据处理 D．人工智能

7．下列点阵的字模，需要占用存储空间最小的是．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．（ ）

A．10个16*16点阵的汉字字模 B．5个24*24点阵的汉字字模 C. 10个32*32点阵的汉字字模 D．5个48*48点阵的汉字字模

8．计算机一次处理二进制位最长的是．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．（ ）

A．8位微机 B．16位微机 C．32位微机 D．位微机

9．在Windows XP中，当按下“SHIFT”键的同时，用鼠标左键在不同驱动器之间拖动对象，

系统进行的操作是．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．（ ） A．复制

B．移动

C．创建快捷方式 D．无操作

10．在Windows XP中查找文件时，可以使用通配符来匹配文件名中不能确定的字符。如果需要

查找的文件主名长度为4个字符，且主名第一个字符为“f”的Word2000格式的文件， 下列输入的查找文件名得到的结果最精确的是．．．．．．．．．．．．．．．．．．．．．．．．．．．．．（ ） A．f*.doc B．f***.doc

C．f?.doc D．f???.doc

11．对Windows XP进行系统设置的功能组件都放置在．．．．．．．．．．．．．．．．．．．．．．．．．．（ ）

A．控制面板 B．工具菜单 C．系统属性 D．“开始”菜单

12．在Word2000编辑状态下，将字体效果设置成空心，使用的主菜单是．．．．．．．．．．（ ） A．编辑 B．插入 C．格式 D．表格 13.在Word2000中，不能实现的功能是．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．（ ） A．段落设置 B．字体设置 C．函数使用 D．高级筛选 14.在Word2000中，使用表格菜单将表格转换成文字功能时，分隔符不能是．．．．．．．（ ）

A．分栏符 B．段落标记 C．逗号 D．制表符

15．在Excel2000文档中，对高考分数进行高级筛选，如果条件是性别为男，高考分数大于500

并且小于0，则下述表示正确的是．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．（ ）

性别 男 男 高考分数 高考分数 <0 >500 性别 男 男 C． D． 性别 男 高考分数 <0 高考分数 >500 高考分数 <0 >500 男 男 <0 >500 A． B． 性别 高考分数 高考分数

16．打开Excel2000工作簿，在单元格中输入内容 “河北对口招生2012”，要在其下面

连续单元格内出现内容为“河北对口招生2012”，下述操作错误的是．．．．．．．．．．（ ） A．选中内容单元格及要填充的区域，点击编辑菜单，点击填充，选中向下填充 B．选中内容单元格，按住Ctrl键，然后拉动向下填充句柄进行填充 C．选中内容单元格，直接拉动向下填充句柄进行填充 D．选中内容单元格，右键复制，选中要填充的区域，粘贴

17．在Excel2000中进行成绩统计，计算单元格B2：B31中的平均成绩，下述方法不正确的是

．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．（ ） A．指定区域输入等号，使用函数average(B2:B31)求平均分 B．指定区域输入等号，使用函数sum(B2:B31)求平均分 C．指定区域输入等号，使用函数sum(B2:B31)/30求平均分 D．指定区域输入等号，使用sum(B2:B20,B21:B31)/30求平均分

18．在Visual Basic中，Print \"12\" + 45语句执行的结果是．．．．．．．．．．．．．．．．．．．（ ）

A．1245 B.57 C. \"12\" + 45 D.类型错

19．在Visual Basic中，关于文件保存的说法正确的是．．．．．．．．．．．．．．．．．．．．．．．．．（ ）

A．只保存扩展名是.frm的文件 B. 只保存扩展名是.vbp的文件 C. 只保存扩展名是.bas的文件

D. 扩展名是.frm，.vbp，.bas这三类文件都可以保存

20．在Visual Basic中，设置窗体Form1的标题为“VB程序窗体”的指令是．．．．．．．（ ）

A．Form1.name=”VB程序窗体” B．Form1.top=”VB程序窗体” C. Form1.caption=”VB程序窗体” D. Form1.topic=”VB程序窗体”

21．读下面Visual Basic程序，最后一行输出结果是．．．．．．．．．．．．．．．．．．．．．．．．．．．．（ ）

a = -262: b = 5

c = Len(Str(a) + Str(b)) Print c

A． 4 B．5 C．6 D．7

22．设a = 2: b = 4: c = 7: d = 8，Visual Basic表达式Not a < b Or c = 9 And d <> 9的值

是．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．（ ） A．1 B．-1 C．True D．False

23．在Visual Basic中，向图片框（picture1）装入图片(” c:\\a.jpg”)正确的语句是．（ ）

A．picture1.Picture =Load(” c:\\a.jpg”) B．picture1.Picture.Load(” c:\\a.jpg”) C．picture1.Picture =Loadpicture(” c:\\a.jpg”) D．picture1.Picture =Loadpicture.Load(” c:\\a.jpg”)

24．在Visual Basic中，关于控件说法不正确的是．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．（ ）

A．可以创建控件数组 B．控件都有名称

C．控件都有单击事件 D．用Visible属性可以改变某些控件的可见性

25．下面Visual Basic中数据中，表示1978年10月20日正确的格式是．．．．．．．．．．．（ ）A．10-20-1978

B．10/20/1978 C．#1978.10.20# D．#10-20-1978#

26．Visual Basic中文本框的默认属性是哪个选项．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．（ ）

A．Caption B．Text C．SelText D．Selstart

27．在Visual Basic中，下面关于双击窗体要触发的事件说法正确的是．．．．．．．．．．．．．．（ ）

A． 只触发Click事件 B．只触发DblClick事件

C． 可以触发Click和DblClick事件 D．可以触发Load和DblClick事件

28．在关系型数据库管理系统中有3种基本的关系操作，不包括下面哪种．．．．．．．．．．．（ ）

A．筛选 B．比较 C．投影 D．连接

29．在Visual FoxPro中，运算结果是“Test”的表达式为 ．．．．．．．．．．．．．．．．．．．．．．（ ）

A. LEFT(\"YourTest\B. RIGHT(\"YourTest\C. SUBSTR(\"Your\"+UPPER(\"test\"),5,4)

D. SUBSTR(\"YourTest\

30．在下列关于Visual FoxPro变量的叙述中，正确的是．．．．．．．．．．．．．．．．．．．．．．．．．（ ）

A．使用一个简单变量之前要先声明

B．在Visual FoxPro中，变量分为字段变量和内存变量

C．如果内存变量名与当前数据表中的字段变量名相同，则内存变量优先被使用

D．不能将不同类型的数据赋给同一个变量

31．在Visual FoxPro表设计器的“字段”选项卡中，字段有效性的设置项里不包括．．．．．（ ）

A. 规则 B. 信息 C. 默认值 D.标题

32．以下是在Visual FoxPro中设置系统菜单有关的命令，其中错误的是．．．．．．．．．．．（ ）

A．SET SYSMENU TO AUTOMATIC B．SET SYSMENU TO DEFAULT C．SET SYSMENU ON D．SET SYSMENU TO

33．下列在Visual FoxPro中关于视图的说法中，不正确的是．．．．．．．．．．．．．．．．．．．．．（ ）

A. 视图保存在数据库中

B. 视图可以是本地的、远程的，但不可以带参数 C. 通过视图可以对表进行查询

D. 使用对视图进行查询时必须事先打开该视图所在的数据库

34．在Visual FoxPro的DO WHILE„ENDDO 循环结构中，LOOP 命令的作用是．．．．（ ）

A．退出循环过程，返回程序开始处

B．转移到DO WHILE 语句行，开始下一次判断和循环

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

35．在Visual FoxPro中，如果一个函数里只有一条RETURN语句但没有指定表达式，那么

该函数的返回值为．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．（ ） A．.T. B．.F. C．空值 D．没有返回值 36．计算机网络技术的发展方向不包括．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．（ ）

A．高速网络 B．无线通信 C．智能网络 D．即时通信

37．当前计算机网络使用的交换技术主要是．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．（ ）

A．电路交换 B．报文交换 C．分组交换 D．端口交换

38．如果某局域网中任何一个节点出现故障都不影响整个网络的工作，该局域网的拓扑结构

是．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．（ ） A．总线型结构 B．树型结构 C．环型结构 D．星型结构

39．在OSI模型中，第N层与第N+1层的关系是．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．（ ）

A．第N+1层把从第N层接收到的数据进行封装 B．各自完成相应的功能，各层相互没有影响 C．第N+1层的协议数量一定比N层要多 D．第N层为第N+1层提供服务

40．在OSI参考模型中，用于协商通信双方字符编码和压缩格式的层次是．．．．．．．．（ ）

A．应用层 B．表示层

C．会话层

D．传送层

41．TCP/IP中的传输层负责解决网络端到端的通信服务，其中“端”指的是．．．．．．（ ）

A．应用进程 B．计算机主机 C．网络交换设备 D．网卡

42．关于DHCP服务的描述错误的是．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．（ ）

A．DHCP服务可以为客户机分配IP地址、子网掩码等常用的网络参数

B．客户机一般每次都会获得不同的IP地址

C．由于DHCP服务主要配置的是IP地址，所以其使用的DHCP协议属于TCP/IP的网际层 D．使用DHCP转发代理可以让不同子网的客户机共用一台DHCP服务器

43．IEEE802委员会制定的局域网技术标准中，将OSI参考模型的数据链路层分为两个子层，分别

是．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．.．．．．．．．．．．．．．．．．（ ） A．LLC和MHS B．IP和MAC C． MAC和LLC D．IP和LLC

44．关于网络操作系统的描述错误的是．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．（ ）

A．网络操作系统的开放性体现在不同类型的网络操作系统能互连通信 B．网络操作系统是专门用于运行网络服务的操作系统，客户机不能使用 C．网络操作系统的基本任务是用统一的方法管理各主机之间的通信和资源共享 D．常用的网络操作系统有Windows Server 2003、Linux、Unix等

45．在下列传输介质中，受外部电磁干扰影响最小的是．．．．．．．．．．．．．．．.．．．．．．．．．（ ）

A．同轴电缆 B. 光缆 C. 微波 D. 屏蔽双绞线

46．关于互联网“微博”的描述错误的是．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．（ ）

A．是一种Internet上的信息资源共享服务 B．一般用于组织或个人发布公开短信息 C．浏览信息的用户可以针对某条信息发表评论 D．用户必须安装微博专用的客户端软件才能使用

47．可用于Internet主机的合法IP地址是．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．（ ）

A．192.168.1.1 B．122.25.16.1 C．127.0.0.1 D．10.1.20.1

48．在我国四大骨干网络中，以向教育和科研机构提供信息服务为目的是．．．．．．．．．．（ ）

A．CHINANET B．CHINAGBN C．CSTNET D．CERNET

49．以下关于ADSL描述错误的是．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．（ ）

A．在电话线路上可以同时进行语音和数据传输 B．ADSL的非对称性通常是指上行速率和下行速率不同 C．ADSL在线路上传输的是数字信号

D．ADSL的传输速率通常比在PSTN上使用传统的MODEM要高

50．用户A使用UserA@126.com的邮箱向用户B的邮箱UserB@sohu.com发送邮件，下列描述错误的

是．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．（ ） A．如果用户A向用户B发送邮件，该邮件将首先保存在sohu.com的邮件服务器上

B．如果用户A通过126.com的Web界面登录邮箱发送邮件，用户A和126．com的服务器之间使用HTTP协议通信

C．126.com的邮件服务器向sohu.com的邮件服务器转发邮件时使用的是SMTP协议 D．如果用户A和B同时使用Outlook收发邮件，则邮件会直接投递，不转交给邮件服务器

第Ⅱ卷（非选择题 共140分）

二、判断题（本大题14小题，每小题1分，共14分。将答案填涂在机读卡上，正确的填涂“√”格，错误的填涂“×”格）

1．字节是计算机内处理器（CPU）进行数据处理的基本单位。（ ） 2．处理器（CPU）能够直接和硬盘交换数据。（ ）

3．Windows XP桌面上的图标大小是系统指定的，不能改变。 （ ）

4．Windows XP桌面上的任务栏由“开始”按钮、快速启动栏、打开的程序按钮和通知区域构成。（ ） 5．在Word2000编辑状态下，如果能看到页眉、页脚的编辑区，一定是“页面视图”。（ ） 6．在Word2000表格中，如果点击“表格”菜单命令隐藏虚框，表格中一部分线条被隐藏，这部分线

条在打印输出时不会被打印。（ ）

7．在Excel2000文档中，工作表指的是工作簿。（ ）

8．在Excel2000中，图表生成后还能够对图表选项、图表类型、图表位置进行修改。（ ） 9．在Visual Basic中，write #语句是把数据写入顺序文件中，print #语句是把顺序文件中的内容打印出来。（ ）

10．在Visual FoxPro中，定义一个4行6列的数组ARRSUM，使用的命令是：dimension ARRSUM(4,6)。

（ ）

11．OSI参考模型的物理层传输数据的单位是帧。（ ）

12．主机如果有合法的IP地址，只需要在本机设置主机名，其它主机都能通过DNS服务将该主机名解

析到相应的IP地址。（ ）

13．用户在IE地址栏输入“http://www.hevttc.edu.cn/index.html”访问Internet上的资源，省略

了端口号，客户机会通过“http”字段判断所访问的是Web服务，并向服务器的80端口提出请求。（ ）

14．网卡TCP/IP参数中子网掩码的作用是，和IP地址进行“与”运算以获取网络地址。（ ）

三、填空题（本大题共13小题，每小题2分，共26分。请将答案填写在答题纸上） 1．世界上第一台电子计算机（英文字母大写） 诞生于1946年。 2．现有无符号二进制数1111111B，则它的左数第一位1比后6位1的总和多 。 3．通常情况下，计算机的内部存储器比外部存储器的存取速度要 。 4．在Windows XP的“资源管理器”窗口中，如果要显示出系统属性或隐藏属性的文件或 文件夹，可以选择 菜单中的“文件夹选项”进行设置。

5．在Word2000中，要同时关闭或保存打开的多个文档，需按住 键。

6．在Excel2000格式的高考成绩文档中，如果按照高考成绩总分进行计算，能够计算出高考成绩大于500分的单元格数目的函数是 。

7．在Visual Basic中，获得命令按钮的标题使用的属性是 。 8．代数式3xx1x在Visual Basic中的相应表达式是 。

9．在Visual FoxPro中，通过表单设计器创建表单时使用 设计器定义和修改数据源。

10．在Visual FoxPro中，设X=\"11\，则表达式：NOT(X==Y)AND(X$Y) OR (X◇Y)的值

为 。

11．计算机网络协议的三要素中，用来规定通信双方交换数据和控制信息格式的是

。

12．在对数据的传输效率要求高，但对数据传输可靠性要求不高的场合，一般使用的TCP/IP

传输层协议是 。

13．IPv6协议中使用的二进制地址长度为 位。

四、根据已知的环境与题意，写出相应的Visual FoxPro操作命令或SQL语句，要求每小题用一条命令或语句完成（本大题共5小题，每小题4分，共20分，请填写在答题纸上）

现有数据库ZGGL，其中包含表“职工.dbf” 和“工资.dbf”，其中表 “职工.dbf”有字段：系部名称(C,20)、姓名(C,8)、职工号(C,9)、性别(C,2)、职称(C,8)、年龄(N,2)，表“工资.dbf”有字段：职工号(C,9)、基本工资(N,7,2)、津贴(N,7,2)、扣款(N,7,2)，在相应数据库和表已打开的前提下，写出完成下述功能的命令。

1．将所有系部名称为“计算机系”的职工的年龄加1。（用Visual FoxPro命令）

2． 以系部名称+年龄降序建立唯一索引的复合索引，索引名为XN，索引文件名为XB.CDX。（用Visual FoxPro命令）

3．查询系部名称为“数理系”的职工的姓名、基本工资、津贴，结果保存表SLX.DBF中。（用SQL语句）

4．计算每个系部职工的平均年龄，并显示在屏幕上。（用SQL语句）

5．删除“职工.DBF”表中所有年龄大于55（不包括55）的记录（用SQL语句）

五、程序分析（本大题共2小题，每小题5分，共10分，读程序并分析结果，请填写在答题纸上） 1．阅读下面的Visual Basic程序，分析程序中n = n + 1的执行次数是

Dim m As Integer, n As Integer Dim j As Integer, k As Integer m = 3

For j = 1 To m Step 1 For k = -j To 3 Step 2 n = n + 1 Next k m=4 Next j Print n

2．有数据库KSHGL.dbc，包含四个表： KSHB.DBF、SSCOREB.DBF、TABLETJ.DBF和LQ.DBF，其中KSHB.DBF的结构为：考生号(C，10)、姓名(C，6)、性别(C，2)、单位(C，20)、出生日期(D)，SSCOREB.DBF的结构为：考生号(C，10)、数学(N，5，1)、英语(N，5，1)、政治(N，5，1)、专业课(N，5，1)，TABLETJ.DBF的结构为：考生号(C，10)、姓名(C，6)、课程名(C，8)、分数(N，5，1)），LQ.DBF的结构为：考生号(C，10)、姓名(C，6)、总分(N，6，1)，有如下程序：（代码中行末的分号为逻辑行连接符）

SET TALK OFF OPEN DATABASE KSHGL

SELECT * FROM TABLETJ INTO TABLE TEMP1 SELECT * FROM LQ INTO TABLE TEMP2 SELECT 1 USE KSHB

INDEX ON 考生号 TAG 考生号 SELECT 2 USE SSCOREB

INDEX ON 考生号 TAG 考生号

SET RELATION TO 考生号 INTO KSHB GO TOP

DO WHILE .NOT. EOF() IF SSCOREB.数学<60

INSERT INTO TEMP1 VALUES(KSHB.考生号,KSHB.姓名,'数学 ',SSCOREB.数学)

ELSE

IF SSCOREB.英语<60

INSERT INTO TEMP1 VALUES (KSHB.考生号,KSHB.姓名,'英语',SSCOREB.英语) ELSE

IF SSCOREB.政治<60

INSERT INTO TEMP1 VALUES (KSHB.考生号,KSHB.姓名,'政治',SSCOREB.政治) ELSE

IF SSCOREB.专业课<60

INSERT INTO TEMP1 VALUES (KSHB.考生号,KSHB.姓名,'专业课',;

SSCOREB.专业课)

ELSE

INSERT INTO TEMP2 VALUES(KSHB.考生号,KSHB.姓名,;

SSCOREB.数学+SSCOREB.英语+SSCOREB.政治+SSCOREB.专业课)

ENDIF ENDIF ENDIF ENDIF SKIP

ENDDO

SELECT * FROM TEMP1 ORDER BY 分数,考生号 DESC INTO ARRAY ARR INSERT INTO TABLETJ FROM ARRAY ARR

SELECT * FROM TEMP2 ORDER BY 总分,考生号 ASC INTO ARRAY ARR INSERT INTO LQ FROM ARRAY ARR CLOSE DATABASE CLOSE TABLES ALL DROP TABLE TEMP1 DROP TABLE TEMP2 SET TALK ON RETURN

该程序的功能是：

六、写出下列程序的运行结果（本大题共5小题，每小题5分，共25分，请填写在答题纸上） 1．窗体中有一命令按钮，此按钮单击事件程序如下：

Private Sub Command1_Click()

Dim m As Integer Dim a As Integer Dim b As Integer a = 1: b = 2: m = 0 m = vb1(a, b) m = m + a+b Print m End Sub

函数:

Function vb1(w As Integer, ByVal n As Integer)

w = 100: n = 200 vb1 = w + n End Function

窗体启动后单击命令按钮，最后m的值是 。

2． 如图所示，图中有一个文本框（名称为T1），两个选项按钮(名称分别为Op1，Op2)，两个复选框(名称分别为Ch1，Ch2)，两个框架，一个命令按钮（Command1），命令按钮的单击事件中代码如下：

提示：函数Instr(位置，字符串1，字符串2)的功能：返回字符串2在字符串1中的起始位置，如果找不到返回值是0，位置表示从第几个字符开始查找。

Private Sub Command1_Click()

T1.Text = \"\"

If Op1.Value = True Then

T1.Text = T1.Text + Mid(Op1.Caption, InStr(1, LCase(Op1.Value), \"true\"), 2) End If

If Op2.Value = True Then

T1.Text = T1.Text + Mid(Op2.Caption, InStr(1, LCase(Op2.Value), \"true\"), 2) End If

T1.Text = T1.Text + Mid(Ch1.Caption, 1, Ch1.Value + 1) T1.Text = T1.Text + Mid(Ch2.Caption, 1, Ch2.Value + 1) End Sub

窗体启动后,先选中如图所示的各选项,然后再单击命令按钮,此时文本框中显示内容是

3．有如下Visual FoxPro程序：

CLEAR a=12345

c=0 b=0

DO WHILE a>0 b=a

DO tub WITH a,b a=a-1 c=c+b ENDDO ?c

PROCEDURE tub PARAMETER x,y flag=.T. DO WHILE flag y=x%10+y*10 x=int(x/10) IF x=0 flag=.F. ENDIF ENDDO RETURN

运行上面的程序，显示的结果为：

4．在Visual FoxPro的表单上添加一个标签，其Name属性为：Lba，Caption属性为：请输入字符串，添加一个文本框，其Name属性为：txt，添加一个标签，其Name属性为：Lbb，Caption属性为：空，添加一个命令按钮，其Name属性为：Command1，Caption属性为：确定。 Command1的Click事件代码如下：

mystr=ThisForm.txt.Value mystr=Trim(mystr) n=LEN(mystr) DIME arr(n) FOR i=1 TO n

arr(i)=SUBSTR(mystr,i,1) ENDFOR m=3 j=0

FOR i=n TO 1 STEP -1 IF arr(i)=[*] j=j+1 ELSE EXIT ENDIF

ENDFOR b=[ ] c=[ ] s=0 IF j>m s=m ELSE s=j ENDIF

FOR i=1 TO n-s

IF (arr(i)>=[0] and arr(i)<=[9]) b=b+arr(i) ELSE

c=c+arr(i) ENDIF

ENDFOR mystr=c+b

ThisForm.lbb.Caption=mystr Return

5．设有数据库文件SHANGPIN.DBC，包含3个表，分别是goods、orderList、orderitem。其中goods的结构为：商品号(C，6)、商品名(C，20)、单价(N，6，2)，orderlist的结构为：订单号(C，4)、客户名(C，8)、签订日期(D)，orderitem的结构为：订单号(C，4)、商品号(C，6)、数量(N，2)，其表中数据如下：

Goods.dbf

记录号 商品号 商品名 单价 1 a00001 数据库原理 23.80 2 a00002 计算机操作系统 31.00 3 a00003 汇编语言 33.50 4 a00004 C++程序设计 23.90 Orderlist.dbf

记录号 订单号 客户名 签订日期 1 0001 zhangby 02/29/00 2 0002 haom 03/14/00 3 0003 liuyj 03/18/00 4 0004 liubing 03/21/00 5 0005 lixing 03/25/00 6 0006 hailan 04/01/00 Orderitem.dbf

记录号 订单号 商品号 数量

运行上面的表单，在文本框中输入：d12&%##ef34*****，单击“确定“按钮，在Lbb标签中显示的是：

1 0001 a00001 2 2 0002 a00002 2 3 0003 a00003 3 4 0004 a00003 4 5 0005 a00004 3 6 0006 a00003 2

有如下程序：（代码中行末的分号为逻辑行连接符） DIME arr(1) SUM1=0

ALTER TABLE ORDERLIST ADD 总金额 N(7,2)

SELECT Orderitem.订单号,sum(goods.单价*orderitem.数量) as 总金额FROM；goods,orderitem WHERE Goods.商品号 = Orderitem.商品号 GROUP BY；

Orderitem.订单号 ORDER BY Orderitem.订单号 INTO TABLE temp.dbf CLOSE ALL SELECT 1 USE TEMP

INDEX ON 订单号 TO ddh1 SELE 2 USE ORDERLIST

INDEX ON 订单号 TO ddh2 SET RELATION TO 订单号 INTO A DO WHILE .NOT.EOF()

REPLACE 总金额 WITH temp.总金额 SKIP ENDDO DO WHIL .T.

ACCE \"请输入商品名(输入0退出)\" TO SHANG IF SHANG ='0' EXIT ELSE

SELECT 商品号 FROM goods WHERE 商品名=SHANG INTO ARRAY arr SNO=arr(1)

SELECT 订单号 FROM orderitem WHERE 商品号=SNO INTO TABLE WJ USE WJ

DO WHILE NOT EOF() MM=订单号

SELECT 总金额 FROM ORDERLIST WHERE 订单号=MM INTO ARRAY arr SUM1=SUM1+arr(1) SKIP ENDDO

?SUM1 ENDIF ENDDO

运行上面的程序，输入“汇编语言”，显示的结果是：

七、程序改错(本大题共2小题，每题5分，共10分。每个程序有两处错误，请在答题纸上写出错误行代码和修改后的正确代码，改错不扣分，请将答案填写在答题纸上)

1．下面的程序是将一输入的字符串进行分类赋值，方法：从字符串的最左端开始截取一字符，然后进行判断，数字字符放入数组a中，将其它字符放入数组b中，然后继续处理下一个字符，直至全部处理完，最后分类打印，程序中有两处错误，请将错误行和正确的全行写在答题纸相应的横线上。( Visual Basic题)

Dim a(100) As Integer Dim b(100) As Integer Dim c As String Dim i As Integer Dim j As Integer Dim k As Integer Dim m As Integer Dim w As String

c = InputBox(\"c=\k = Len(c) For i = 1 To k w = Right(c, 1) c = Right(c, k - 1)

If w >= \"0\" And w <= \"9\" Then a(j) = w: j = j + 1 Else

b(m) = Asc(w): m = m + 1 End If c=c-w Next i Print

For i = 0 To j - 1 Print a(i); Next i Print

For i = 0 To m - 1 Print Chr(b(i)); Next i Print

2．窗体中（如图所示）有一定时器控件(名称Timer1), 每2秒钟触发一次Timer事件，有两个标签

用于提示后面的控件名称，一文本框Text1，一滚动条（名称HS1）。窗体启动后（此图为窗体刚启动时的状态），滚动框根据计时器事件向右移动，但当单击滚动框左端后，滚动框开始向左移动，当单击滚动框右端后，滚动框开始向右移动，文本框中的文字大小随滚动条的值变化。窗体通用部分声明了两个变量，后面给出了三个事件过程。程序有两处错误分布在三个事件过程中(每个事件过程中最多有一处错误)，请将错误行和正确行写在答题纸相应的横线上。( Visual Basic题)（提示：Form_Activate()表示窗体变为活动窗体后触发的事件）

窗体通用部分声明代码：

Dim A As Integer ‘变量A用于确定滚动框向左（为0）还是向右（为1）滚动 Dim W As Integer

Private Sub Form_Activate() W = HS1.Value A=0 End Sub

Private Sub HS1_Change() If W Private Sub Timer1_Timer()

If Text1.FontSize < 10 Then Text1.FontSize = 11 If Text1.FontSize > 80 Then Text1.FontSize = 79 If A = 1 Then

Text1.FontSize = Text1.FontSize + 1 Else

Text1.FontSize = Text1.FontSize - 1 End If

End Sub

八、程序填空（本大题共7个空，每空5分，共35分。按程序要求在答题纸上填入相应的内容，使程序完整正确，请将答案填写在答题纸上）

1．下面的程序前部分功能考生自己分析，后部分功能是输入一数据，然后在数组中找此数据，若找不到则程序结束，若找到将数组元素下标小于此数据下标的数据由大到小排列并输出，请在空白位置填写正确的命令(Visual Basic题)。

Dim a(9) As Integer Dim i As Integer Dim t As Integer

a(0) = 20 + Int(Rnd * 91) For i = 1 To 9

t = 20 + Int(Rnd * 91) If t < a(i - 1) Then i = i - 1 Else a(i) = t End If Next i For i = 0 To 9 Print a(i); Next i Print

t = InputBox(\"input t=\For i = 0 To 9

If t = (1) Then Exit For End If Next i

If i = 10 Then End i = i - 1

For k = 0 To i / (2) t = a(k) a(k) = a(i - k) a(i - k) = t Next k For i = 0 To 9 Print a(i); Next i

2．下面程序可以打印一个九九表完整九行或部分行，思路是在窗体中加入两个文本框，第一个文本框（text1）用于指定输出九九表的起始行，第二个文本框用于指定输出九九表的结束行，如在第一

个文本框中输入2，第二个文本框中输入6，打印出如图所示的2到6

行。命令按钮的单击事件中有打印九九表的程序，请在空白位置填写正确的命令（程序要求：第一个文本框数字必须比第二个文本框小，两个文本框中不能为空）(Visual Basic题)。

Private

Sub Command1_Click()

Dim a As Integer Dim b As Integer

If Text1.Text <> \"\" (3) Text2.Text <> \"\" Then a = Text1.Text b = Text2.Text If a < b Then Dim i As Integer Dim j As Integer For i = a To b For j = 1 To i

Print j; \"*\"; i; \"=\"; (4) ; Next j Print Next i Else

MsgBox \"起始行大于结束行，重新输入！\" Text1.Text = \"\" Text2.Text = \"\" Text1.SetFocus End If Else

MsgBox \"文本框中不能为空\" Text1.SetFocus End If End Sub

3．已有“学生信息管理.DBC”数据库，其中包含两个表：班级表和学生表，其中班级表的结构为：班号(C，8)、班名(C，20)，学生表的结构为：学号(C，10)、班号(C，8)、姓名(C，6)、性别(C，2)、出生日期(D)、籍贯(C，10)、入学成绩(N，5，1)，设计应用程序界面如下：

设置控件属性如下：

有一个选项按钮组，其Name属性为Optiongroup1，其中包含两个单选按钮，一个的Name属性为Option1、Caption属性为“学生信息查询”另一个的Name属性为Option2、Caption属性为“学生成绩查询”，两个复选框，一个的Name属性为Check1、Caption属性为“生成表”，另一个的Name属性为Check2、Caption属性为“排序”，两个命令按钮，名称分别为Command1和Command2、其对应的Caption属性分别为“确定”和“退出”，一个标签，其Name属性为Label1、Caption属性为“班号”，一个文本框，其Name属性为Text1。

编写Visual FoxPro程序实现下述功能：

在文本框中输入班号、如果选择“学生信息查询”，则查询学生的基本信息，包括学号、班名、姓名和籍贯，如果选择“学生成绩查询”，则查询学生的入学成绩信息，包括学号、班名、姓名和入学成绩，如果选择生成表，则将前面的查询输出到表中，如果不选，则在屏幕上输出，如果选择排序，则将查询结果按学号排序，否则不排序。

程序如下，请在空白位置填写正确的命令。（代码中行末的分号为逻辑行连接符） Command1的Click事件

a=ThisForm.Optiongroup1.Option1.Value b=ThisForm.Optiongroup1.Option2.Value c=ThisForm.Check1.Value d=ThisForm.Check2.Value (5) OPEN DATABASE 学生信息管理 IF c=1 AND d=0 IF b=1

SELECT 学号,班名,姓名,入学成绩 FROM 班级表,学生表 WHERE;

班级表.班号=学生表.班号 AND 学生表.班号=e INTO TABLE stuscore.DBF ELSE

SELECT 学号,班名,姓名,籍贯 FROM 班级表,学生表 WHERE;

班级表.班号=学生表.班号 AND 学生表.班号=e INTO TABLE stuxx.DBF ENDIF ENDIF

IF c=0 AND d=0 IF b=1

SELECT 学号,班名,姓名,入学成绩 FROM 班级表,学生表 WHERE;

班级表.班号=学生表.班号 AND 学生表.班号=e TO SCREEN

ELSE

SELECT 学号,班名,姓名,籍贯 FROM 班级表,学生表 WHERE;

班级表.班号=学生表.班号 AND 学生表.班号=e TO SCREEN ENDIF ENDIF

(6) IF a=1

SELECT 学号,班名,姓名,籍贯 FROM 班级表,学生表 WHERE班级表.班号; =学生表.班号 AND 学生表.班号=e ORDER BY 学号 DESC INTO TABLE stuxx.DBF ELSE

SELECT 学号,班名,姓名,入学成绩 FROM 班级表,学生表 WHERE; 班级表.班号=学生表.班号 AND 学生表.班号=e ORDER BY 学号 DESC; INTO TABLE stuscore.DBF

ENDIF ENDIF

(7) IF a=1

SELECT 学号,班名,姓名,籍贯 FROM 班级表,学生表 WHERE;

班级表.班号=学生表.班号 AND 学生表.班号=e ORDER BY 学号 DESC TO SCREEN ELSE

SELECT 学号,班名,姓名,入学成绩 FROM 班级表,学生表 WHERE;

班级表.班号=学生表.班号 AND 学生表.班号=e ORDER BY 学号 DESC TO SCREEN ENDIF ENDIF

一、选择

CCCDC CADBD ACDAC CBBDC CDCCD BCBDB DABBA DCADB ACABB BBDCB

二、判断

错 错 错 对 对 对 错 对 错 对 错 错 对 对

三、填空 (一行一道题答案) ENIAC 1

二进制 工具 SHIFT ＝COUNTIF TEXT

3*X*(SQR(X+1)+X)

数据环境 .T. 语法 UDP 128

（此页无题）