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

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

计算机专业理论试题

注意事项：

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

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

第Ⅰ卷（选择题 共100分）

一、选择题（本大题共50小题，每小题2分，共100分。在每小题所给出的四个选项中，只有

一个符合题目要求，将正确选项填涂在机读卡上） 1．列计算机外部设备中，既属于输入设备又属于输出设备的是．．．．．．．．．．．．．．．．．（ ）

A．鼠标 B．键盘 C．硬盘 D．扫描仪

2．集成电路计算机属于第几代计算机．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．（ ）

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

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

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

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

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

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

A．黑色星期五病毒是具有潜伏性的病毒 B．病毒是人为编制的计算机程序 C．病毒对设置密码较复杂的文件感染的几率低

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

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

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

计算机专业理论试题 第1页 共 24页

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

E． 10个16*16点阵的汉字字模 F． 5个24*24点阵的汉字字模 G． 10个32*32点阵的汉字字模 H． 5个48*48点阵的汉字字模

8．计算机一次处理字长最长的是．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．（ ）

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

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

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

B．移动

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

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

查找的文件名除扩展名后长度为4个字符，第一个字符为“f”的WORD 2003格式的文件， 下列输入的查找文件名得到的结果最精确的是．．．．．．．．．．．．．．．．．．．．．．．．．．．．．（ ） 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并且小于

540的分数表示正确的是．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．（ ） 性别 男 男

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

性别 男 男 高考分数 <540 高考分数 >500 计算机专业理论试题 第2页 共 24页

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． 指定区域输入等号，使用(B2+B3?+B31)/30进行求平均分

18．在Visual Basic中，Print \的值是．．．．．．．．．．．．．．．．．．．．．．．．．．．．（ A．1245 B.57 C. \类型错

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．0 C．True D．False

23．在Visual Basic中，向图片框（picture1）装入图片(“c:\\a.jpg”)正确的格式是．．．．．．．（A．picture1.Picture =Load(“c:\\a.jpg”)

计算机专业理论试题 第3页 共 24页

） ）

）

）

）

）

）

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．在Visual FoxPro6.0中，关系型数据库管理系统的3种基本的关系操作不包括

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

29．在Visual FoxPro6.0中，运算结果是“Test”的表达式为 ．．．．．．．．．．．．．．．．．．．（ A. LEFT(\B. RIGHT(\C. SUBSTR(\

D. SUBSTR(\

30．在Visual FoxPro6.0中，下列关于变量的叙述中，正确的一项是．．．．．．．．．．．．．．（ A．使用一个简单变量之前要先声明或定义

B．在Visual FoxPro中，变量分为字段变量和内存变量 C． 变量的类型决定变量值的类型

D．在Visual FoxPro中，不能将不同类型的数据赋给同一个变量 31．在表设计器的“字段”选项卡中，字段有效性的设置项中不包括

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

32．在Visual FoxPro6.0中，以下是与设置系统菜单有关命令，其中错误的是．．．．．（ ）A．SET SYSMENU TO AUTOMATIC B．SET SYSMENU TO DEFAULT C．SET SYSMENU ON D．SET SYSMENU TO

33．在Visual FoxPro6.0中，下列关于视图的说法中，不正确的是．．．．．．．．．．．．．（ ）计算机专业理论试题 第4页 共 24页

）

） ）

）

A. 视图保存在数据库中

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

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

34．在Visual FoxPro6.0中，在DO WHILE ?ENDDO 循环结构中，LOOP 命令的作用是

．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．（ ） A．退出过程，返回程序开始处

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

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

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

该函数的返回值为．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．（ ） A．.T. B．.F. C．空值 D．没有返回值 36．计算机网络的主要功能是共享资源，下列应用不属于网络资源共享的是．．．．．．（ ）

A．通过Internet将数据交给远程的超级计算机处理 B．使用网络硬盘服务存储文件

C．同一个办公室的几台计算机通过网络共享一台打印机 D．Web网站制作

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中的传输层负责解决网络端到端的通信服务，其中“端”指的是．．．．．．．．（ ）

计算机专业理论试题 第5页 共 24页

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

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

A．DHCP服务可以为客户机分配IP地址、子网掩码等常用的网络参数 B．客户机一般每次都会获得不同的IP地址

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

43．局域网的协议结构一般不包括．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．（ ）

A．网络层 B．物理层 C．数据链路层 D．介质访问控制层

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

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

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

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

46．在物理连接上属于星型网络，但逻辑上使用总线型网络的通信设备是．．．．．．．．．．（ ）

A．网关 B．集线器

C．交换机

D．路由器

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

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

48．在我国四大骨干网络中，以科研和教育为目的，从事非经营性活动的是．．．．．．．．（ ）

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

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

A．在电话线路上可以同时进行语音和数据传输

B．ADSL的非对称性表现在上行速率和下行速率可以不同 C．ADSL可以传输很长的距离，而且其速率与距离没有关系 D．ADSL的传输速率通常比在PSTN上使用传统的MODEM要高

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

的是．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．（ ） A．如果用户A在发送邮件时用户B没有开机，则邮件一般保存在sohu.com的邮件服务器上 B．如果用户A使用Internet explorer通过126.com的Web界面登录邮箱发送邮件时，用户A和126的邮件服务器之间使用HTTP协议通信

C．126.com的邮件服务器向sohu.com的邮件服务器转发邮件时使用的是SMTP协议

计算机专业理论试题 第6页 共 24页

D．如果用户A和用户B同时使用Outlook收发邮件，则邮件会直接投递，不会转交给邮件服务器

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

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

格，错误的填涂“×”格）

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

3． Windows XP桌面上的“我的电脑”、“回收站”、“Internet Explorer”图标是系统默认

自带的，不能从桌面删除。

4． Windows XP桌面上的任务栏由“开始”按钮、快速启动栏、打开的程序按钮和通知区域

构成。

5．在Word2000编辑状态下，能看到页眉页脚的视图，一定是页面视图。

6．在Word2000表格中，如果点击表格菜单命令隐藏虚框，表格中一部分线条被隐藏，这 部分线条在打印输出时不会被打印。

7．在Excel2000的一张工作表中，最多含有列是255列。

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

10．在Visual FoxPro6.0中，定义一个4行6列的数组ARRSUM，使用的命令是：dimension

ARRSUM(4,6)。

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

12．主机如果有合法的IP地址，只需要在本机设置主机名后，Internet上的其它主机都能

通过DNS服务将该主机名解析到IP地址。

13．用户在IE地址栏输入URL“http://www.hevttc.edu.cn/index.hrml”访问Internet

上的资源，省略了端口号，客户机会通过“http“字段判断所访问的是Web服务，并向服务器的TCP的80端口提出请求。

14．在配置网卡的TCP/IP参数时，子网掩码用于判断目标主机和源主机的IP地址是否属于

同一子网。

三、填空题（本大题共13小题，每小题2分，共26分。请将答案填写在答题纸上）

计算机专业理论试题 第7页 共 24页

1． 世界上第一台电子计算机（英文字母大写） 诞生于1946年。 2． 若某个汉字的区位码是1027，则它的机内码是 H。 3． 通常字长是表示计算机一次处理 的位数。

4． 在Windows XP的“资源管理器”窗口中，如果要显示有系统属性或隐藏属性的文件或

文件夹，可以选择 菜单中的“文件夹选项”进行设置。 5．在Word2000中，要同时关闭或保存打开的多个文档，需按住 键。 6．在Excel2000中，如果按平均成绩进行排名（平均成绩单元格在F3:F15），那么在H3（放排名的单元格）应输入 。

7．在Visual Basic中，在列表框中输入或选择的数据可以通过哪个属性获得_____________ 。 8．代数式3x?x?1?x的Visual Basic中的算术表达式是_________________。

?9．在Visual FoxPro6.0中，在使用表单设计器创建表单时使用 设计器定义和修改数据源。

10．在Visual FoxPro6.0中，设X=\则表达式：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．假定“职工.dbf”已打开，将所有系部名称为“计算机系”的职工的年龄加1。（用Visual ForPro命令）

2． 以系部名称+年龄降序建立唯一索引的复合索引，索引名为 XN，索引文件名为XB.CDX。3．查询系部名称为“数理系”的职工的姓名、基本工资、津贴，结果保存表SLX.DBF中。（用Visual ForPro命令） （用SQL语句）

计算机专业理论试题 第8页 共 24页

4．查询统计每个系部年龄的平均值输出到屏幕上。（用SQL语句）

5．假设“职工DBF”已建立了以“职工号”为主索引的索引，“工资.DBF”也已建立了以“职工号”为主索引的索引，建立“职工教育情况”表（包括职工（C,9）、学历（C,10）、学位（C,10），并分别与“职工,DBF”表和“工资,DBF”表建立关联。（用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，其中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

计算机专业理论试题 第9页 共 24页

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

计算机专业理论试题 第10页 共 24页

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 order 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(\k = Len(c)

计算机专业理论试题 第16页 共 24页

For i = 1 To k w = Right(c, 1) c = Right(c, k - 1)

If w >= \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),有两个标签用于提示后面控件名称，一文本框Text1，一滚动条（名称HS1），并且是每2秒钟触发一次定时器的Timer事件。窗体启动后（此图为窗体刚启动时的状态），当单击滚动框左端后，滚动框开始向左移动，当单击滚动框右端后，滚动框开始向右移动，文本框中的文字大小随滚动条的值变化，窗体通用部分声明了两个变量，后面给出了三个事件过程。程序中共有两处错误分布在三个事件过程中(每个事件过程中最多有一处错误)，请将正确的全行写在答题纸相应的横线上。 (5分)( Visual Basic题) （提示：Form_Activate()表示窗体变为活动窗体后触发的事件）

计算机专业理论试题 第17页 共 24页

窗体通用部分声明代码：

Dim A As Integer ‘变量A用于确定滚动框向左（为0）还是向右（为1）滚动 Dim W As Integer ‘变量W考生自己分析它的作用

Private Sub Form_Activate() W = 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

计算机专业理论试题 第18页 共 24页

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(\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 Print

计算机专业理论试题第19页 共 24页

2．此题有两个图形，上图是一个九九表的完整图形，现要打印部分行（如下图），思路是在窗体中加入两个文本框，第一个文本框（text1）用于输入九九表的起始行，第二个文本框用于输入九九表的结束行，如在第一个文本框中输入2，第二个文本框中输入6，打印出如下图所示的2到6行。命令按钮的单击事件中有打印九九表的程序，不完整的空白位置请写出正确的命令（程序要求：第一个文本框数字必须比第二个文本框小，两个文本框中不能为空）(Visual Basic题)。

Private Sub Command1_Click() Dim a As Integer Dim b As Integer

If Text1.Text <> \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; \

计算机专业理论试题 第20页 共 24页

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程序实现下述功能：

计算机专业理论试题 第21页 共 24页

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

程序如下，请将程序填写完整。（代码中行末的分号为逻辑行连接符） Command1的Click事件

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

SELECT 学号,班名,姓名,入学成绩 FROM 班级表,学生表 WHERE; 班级表.班号=学生表.班号 AND 学生表.班号=e INTO TABLE stuscore.DBF ELSE IF a=1

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

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

SELECT 学号,班名,姓名,入学成绩 FROM 班级表,学生表 WHERE; 班级表.班号=学生表.班号 AND 学生表.班号=e TO SCREEN ELSE IF a=1

SELECT 学号,班名,姓名,籍贯 FROM 班级表,学生表 WHERE; 班级表.班号=学生表.班号 AND 学生表.班号=e TO SCREEN ENDIF

计算机专业理论试题 第22页 共 24页

ENDIF ENDIF

(6) IF a=1

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

班级表.班号=学生表.班号 AND 学生表.班号=e ORDER BY 学号 DESC INTO TABLE stuxx.DBF ELSE IF b=1

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

(7) IF a=1

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

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

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

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

计算机专业理论试题 第23页 共 24页

本文来源：https://www.bwwdw.com/article/0jcw.html