2014年河北省对口升学计算机专业试题
2014年河北省普通高等学校对口招生考试
计算机专业理论试题（A ）
注意事项：
1．本试卷共八道大题。总分240分。
2．第I 卷“一、选择题”、第II 卷“二、判断题”的答案填涂在机读卡上，其余各题答案写在答题纸上，答在试卷上不得分。用蓝黑钢笔、碳素笔或圆珠笔答题。 3．答题前将密封线内项目填写清楚。
第Ⅰ卷（选择题 共100分）
一、选择题（本大题共50小题，每小题2分，共100分。在每小题所给出的四个选项中，只有一个符合题目要求，将正确选项填涂在机读卡上 1．下列设备中，全部属于输出设备的一组是......................... （ ） C ．CPU 的内存为1.7G A．扫描仪、键盘、显示器
B．激光打印机、键盘、鼠标 D ．CPU 与内存间的数据交换速率是1.7GB/S
C ．麦克风、绘图仪、显示器
D．喷墨打印机、绘图仪、音箱
8．在Windows XP中，按住Ctrl 键的同时，用鼠标左键将选定的文件拖放到另一个文2．计算机软件一般分为系统软件和应用软件两大类，下列选项中不属于系统软件的 件夹，系统进行的操作是.......................................... （ ）是........................................................... （ ） A ．无论源文件夹和目的文件夹是否在同一磁盘内，均实现复制 A ．操作系统
B．数据库管理系统
B ．无论源文件夹和目的文件夹是否在同一磁盘内，均实现移动 C ．用汇编语言编写的程序 D．语言处理程序
C ．若源文件夹和目的文件夹在同一磁盘内，将实现移动
3．与十六进制数37.A 等值的二进制数是............................ （ ） D ．若源文件夹和目的文件夹不在同一磁盘内，将实现移动
A.110101.011 B.110100.111 C.110111.101 D.110101.101
9．在Windows XP中，同一磁盘上..................................... （ ）4．下列关于病毒的叙述中哪一条是正确的.............. ．．．．．．．．．．．．．（ ） A ．允许同一文件夹中的文件同名，也允许不同文件夹中的文件同名 A．杀毒软件通常是滞后于计算机新病毒的出现 B ．不允许同一文件夹中的文件同名，也不允许不同文件夹中的文件同名 B．杀毒软件可以查、杀所有种类的病毒 C ．允许同一文件夹中的文件同名，不允许不同文件夹中的文件同名 C．计算机病毒只感染可执行文件
D ．不允许同一文件夹中的文件同名，允许不同文件夹中的文件同名
D．将防火墙打开，再定期用杀毒软件杀毒，就不会感染病毒了
10．在 Windows XP 中，卸载应用程序的正确方法是进入................. （ ）5．用计算机进行图书馆的资料检索工作，这主要涉及计算机应用中的．．．（ ） A ．我的电脑 B．资源管理器 A．科学计算 B ．数据处理 C．过程控制 D．辅助设计
C ．控制面板 D．注册表
6．2.4MB 的磁盘空间大约可以存放的汉字数目是...................... （ ） 11．对于Windows XP的回收站，下列叙述正确的是...................... （ ） A．240万 B．30万 C．60万 D．120万
A ．“回收站”中可以存放所有外存储器中被删除的文件或文件夹 7．某微机主要技术参数为“P4/1.7G/128M/60G/”，其中1.7G 的含义为．．（ ） B ．“回收站”是硬盘中的一块区域 A．CPU 的运算速度为1.7GMIPS C ．“回收站”的大小是固定的，不能调整 B ．CPU 的时钟主频为1.7GHz
D ．在“回收站”图标上点右键可以还原所有文件
计算机专业理论试题(A) 第1页 共 12页
12．在Word2003的编辑状态，有关查找操作的叙述中，正确的是.......... （ ）
B ．
A ．查找时，可以无格式进行、也可以带格式进行、还可以查找一些特殊的非打印字符
B ．查找时，只能带格式进行 C ．查找时，只能在整个文档范围内进行
D ．查找时，可以无格式进行、也可以带格式进行，但不能查找一些特殊的非打印字符 13．在Word2003中，若插入的表格中，内外框线都是实的，想要将其改变为虚线，应选择
的命令是............................... ．．．．．．．．．．．．．．．．．．．．．．．．．（ ）
A ．“表格”菜单中的“显示虚框” B．“表格”菜单中的“绘制表格” C ．“表格”菜单中的“表格自动套用格式” D．“表格”菜单中的“表格属性” 14．在Word2003文档编辑过程中，欲把整个文档中的“计算机”一词都删除，最简单的方
法是使用“编辑”菜单中的．．．．．．．．．．．．．．．．．．．．．．．．．．
．．．．．．．．．．．．．．（ ） A ．清除 B．撤消 C．剪切 D．替换
15．打开Excel2003工作簿，将单元格C2设置为文本类型，输入时间“10:20:17”，选中
C2单元格，按住Alt 键，然后拖动向下填充句柄进行填充, 则完成的操作是．．．．．．．．． ．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．（ ） A ．下面单元格内连续出现“时”的递增 B ．下面单元格内连续出现“分”的递增 C ．下面单元格内连续出现“秒”的递增 D ．下面单元格内全部都是“10:20:17”
16．在Excel2003中，下面关于分类汇总的叙述正确的是.................. （ ）
A ．分类汇总的关键字段可以是多个字段
B ．分类汇总可以被删除，删除汇总后排序操作可以撤消 C ．分类汇总前必须按关键字段排序 D ．汇总方式只能是求和
17．在Excel2003中，要查看“某商场4月份销售的创维或康佳彩电、价格在4000至6000 （含边界），且销量在50台以上的记录”，若使用高级筛选，其条件区域表示正确的是．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．（ ） A ．
计算机专业理论试题(A) C ．
18．在Visual Basic 中，Print Int(Rnd)+Int(3+Rnd)的结果是............. （ ）
A ．无法确定 B. 2 C. 3 D. 4
19．在Visual Basic 中，当窗体启动时能够被触发的事件是................ （ ） A．UnLoad B.Click C.DblClick D.Load
20．Visual Basic 中，窗体的标题用以下哪个属性表示.................... （ ）
A ．Value B．Caption C. Text D. Topic
21．Visual Basic 中, 表达式 3 Mod 2 * 4的值是．．．．．．．．．．．．．．．．．．．．．．．．．．（ ）
A. 1 B. 2 C. 3 D．4
22．关于Visual Basic 中列表框属性的说法不正确的选项是............... （ ）
A ．列表框既有添加列表项的方法，也有删除列表项的方法 B ．列表框中列表项个数无法统计
C ．向列表框中添加项目时可以插入在列表项之间 D ．列表框中的每个列表项都有一个索引位置
23．执行下面Visual Basic 程序，数组a 中元素值是w 的数据经过一系列位置变化后，
第2页 共 12页
其最终位置的下标是哪个选项...................................... （ ）
Option Base 0
Private Sub Command1_Click() Dim w As Integer w = 20
a = Array(10, 15, 6, 8, 93, 84, w) Dim i As Integer Dim j As Integer Dim t As Integer For i = 0 To 5 For j = i + 1 To 6 If a(i) > a(j) Then
t = a(i): a(i) = a(j): a(j) = t End If Next j Next i End Sub
A. 2 B. 4 C. 6 D. 8
24．在Visual Basic 中，语句Print InStr(2, "abcdeabfg", "ab") 的输出结果是( ) A. 0 B. 1 C．5 D. 6
25．下面关于Visual Basic中工程的说法正确的是.................. ．．．．（ ）
A. 每个工程中只能包含一类文件 B. 工程中的启动窗体是不能改的
C. 工程中的窗体当创建以后是不能被删除掉的 D. 工程也是有属性的
26．Visual Basic中，关于属性、事件、方法、对象说法正确的是......... （ ）
A. 可以通过改变对象的属性值来改变对象的特性 B. 事件必须在鼠标单击或双击对象后触发
C. Visual Basic中，所有对象都设置了相同的方法 D. 窗体不是对象，按钮是对象
27．执行下面Visual Basic程序，最后输出s 的值是.................... （ ）
计算机专业理论试题(A) Dim a As Integer Dim s As Integer a = 1 s = 0
For i = 1 To 3 a = i
For j = 1 To a s = s + a Next j i = j Next i Print s
A. 6 B. 8 C. 10 D. 12
28．在Visual FoxPro 中，创建报表的命令是........................... （ ）A. MODIFY REPORT
B. CREATE REPORT
C. SET REPORT D. PREVIEW REPORT
29．在Visual FoxPro 中，菜单文件的扩展名为......................... （ ）A. .mnx B. .mpr C. .pqr D. .scr
30．在Visual FoxPro中, 假设表单上有一个命令按钮，如果单击命令按钮可以实现关
闭表单的功能，则应在该按钮的Click 事件过程中写入语句．．．．．．．．．．．．（ ）A. ThisForm.Close B. ThisForm.Erase C. ThisForm.Release D．ThisForm.Return 31．在Visual FoxPro中，如果表中的某个字段存放的是图片，需要将该字段设置为
下面哪种类型.................................................. （ ）A. 备注型 B. 通用型 C. 字符型 D. 双精度型 32. 在Visual FoxPro中，执行以下命令后显示的结果是................ （ ）N=' 210.28' ?90+&N
A ．90+&N B．90210.28 C．300.28 D．出错信息 33. 在Visual FoxPro 中，? TYPE("10/01/88")的输出结果为............... （ ）A. N B. C C. D D. U
第3页 共 12页
34．在Visual FoxPro 中，下列关于视图的叙述中错误的是............... （ ）
A. 通过视图可以对表进行查询 B. 通过视图可以对表进行更新
C. 视图是一个独立的数据文件，不属于任何的数据库 D ．视图分为本地视图和远程视图两种类型
35．在Visual FoxPro 中，要为两个数据表建立一对多的永久关系，要求主表的索引类
型必须为...................................................... ．（ ） A ．主索引 B. 主索引或候选索引 C. 主索引、候选索引或唯一索引 D. 可以不建立索引
36．在物理拓朴结构为总线结构的局域网中，联网的主机间进行通信通常采用的机制
是．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．． （ ） A ．ATM B．CDMA C．FTTB+LAN D．CSMA/CD
37．在下列关于网络数据交换的叙述中不正确的是．．．．．．．．．．．．．．．．．．．．．．．（ ）
A ．线路数据交换面向连接
B ．分组交换比报文交换具有更好的网络响应速度 C ．分组交换有存储转发过程 D ．报文交换无存储转发过程
38．计算机网络的拓扑结构主要取决于它的............................ （ ）
A ．通信子网 B．资源子网 C．通信介质 D．路由器连接方式 39．在使用TCP/IP协议的网络中，属于同一个子网络的主机的网络地址.. （ ）
A ．不相同 B．可以相同也可以不相同 C ．一定相同 D．相同与否视其它情况而定
40．在使用CSMA/CD协议的以太网络中，其通信工作方式为.............. （ ）
A ．半双工 B．单工 C．全双工 D．都可以
41．在OSI/RM网络参考模型中，数据链路层最主要的功能是............. （ ）
A ．进行报文传递的路由选择
B ．按协议规则提供报文分组 C ．可靠的在任意节点间传送报文 D ．进行可靠的两相邻节点间的数据传输
42．在网络层传输的TCP 数据包的段结构中，端口地址的长度为........... （ ）
A ．4个字节 B．3个字节 C．2个字节 D．1个字节 43．在Internet 网络中，用于服务器与客户机间进行网页信息传输控制的协议是.....
计算机专业理论试题(A) ．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．（ ） A．HTTP B．URL C．SMTP D．HTML
44．有一种互连设备工作于网络层，它既可以用于相同（或相似）网络间的互连，也
可以用于异构网络间的互连，这种设备是........................... （ ） A ．集线器 B．路由器 C．交换机 D．网关
45．一个局域网中某台主机的IP 地址为176.68.160.12，使用22位作为网络地址，那
么该局域网的子网掩码为......................................... （ ） A ．255.255.255.0 B．255.255.248.0 C ．255.255.253.0 D．255.255.252.0
46．在Internet 域名体系中，域的下面可以划分子域，各级域名间用圆点分开，按照．
．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．（ ） A ．从左到右越来越小的方式分4层排列 B ．从右到左越来越小的方式分多层排列 C ．从左到右越来越小的方式分多层排列 D ．从右到左越来越小的方式分4层排列
47．线路交换是实现数据交换的一种技术，其特点是.................... （ ）
A ．信息延时短，且延时固定不变
B ．不同速率的用户之间可以直接进行数据交换 C ．数据信号在线路上进行传输时无衰损 D ．可以把一个报文同时发送到多个目标节点中
48．在OSI/RM网络参考模型中，网络接口卡（NIC ）所属的层次为......... （ ）
A ．物理层 B．数据链路层 C．网络层 D．运输层
49．在数字通信中广泛采用CRC 循环冗余码进行差错校验，这是因为CRC 可以（ ）
A ．检测出一位差错 B ．检测出多位突发性差错 C ．检测并纠正一位差错 D ．检测并纠正多位突发性差错
50. 网络中的计算机可以分为服务器和客户机，其中的网络服务器是指...... （ ）
A ．具有通信功能的高档计算机 B ．64位总线结构的高档计算机
C ．带有容量大、传输速度快的硬盘的计算机
D ．为网络提供共享资源，并对这些资源进行管理的计算机
第4页 共 12页
第Ⅱ卷（非选择题 共140分）
二、判断题（本大题14小题，每小题1分，共14分。将答案填涂在机读卡上，正确的填涂“√”格，错误的填涂“×”格）
1．世界上第一台电子计算机采用的电子器件是电子管。 （ ） 5．在Word2003中，若要设定打印纸张大小，应使用 菜单中的 2．在计算机系统中，不能直接和CPU 交换数据的存储器是ROM 。 （ ） “页面设置”命令。 3．在Windows XP 中，删除某个应用程序的桌面快捷图标意味着，该应用程序连同6．在Excel2003中，单元格D2：D31存放的内容为全班30名同学的数学成绩，若快捷图标一起被删除。 （ ） 要在单元格D32中统计不及格同学的人数，则在D32中输入
4．在Windows XP 中，剪贴板是程序和文件间用来传递信息的临时存储区，此存储区是内存的一部分。 （ ） 5．在Word 2003中，为了突出显示文档的某些内容，可以为该部分内容加底纹，也可以为图形加底纹。 （ ） 6．在Word2003中，文本可以转换成表格，但表格不可以转换成文本。 （ ） 7．在Excel2003中，执行“格式”菜单中的“排序”命令，可以实现对工作表数 据的排序功能。 （ ） 8．在 Excel2003 中，当数据源发生变化时，相应的图表将自动跟随变化。
（ ）
．在Visual Basic中，控件的属性在任何状态下都可以修改。 （ ） 10．在Visual FoxPro中，选择当前未使用的最小编号工作区的命令是SELECT 0。
（ ）
11．在TCP/IP协议组中，DNS （域名服务系统）的组织结构是层次模型。（ ） 12．只有服务器上的软件系统和软件应用可以作为共享资源，由服务器向网络中其
他计算机提供。 （ ） 13．目前在Internet 上的主机已经普遍使用了IPv6格式的IP 地址。 （ ） 14．计算机网络的拓朴结构包括网络的物理拓朴结构和逻辑拓朴结构。 （ ） 三、填空题（本大题共13小题，每小题2分，共26分。请将答案填写在 答题纸上）
1．微型计算机能识别并能直接执行的语言是 语言。 2．微型计算机硬件系统中最核心的部件是 。 3．在微机中，信息的最小单位是 。
4．在Windows XP中，若要将一个文件设置为“只读”，则可以选中该文件，单击鼠标右键，然后在弹出菜单中选 菜单项。
计算机专业理论试题(A) = 。
7．在Visual Basic中，对于数组 A(2 To 3, 4 To 6)，它的第二维的下界为___________。
8. Visual Basic的表达式(10 > 8) And (-3 14)的结果是_________________。
9．在Visual FoxPro中，运行表单“login ”的命令为 。 10．在Visual FoxPro中，用命令DIMENSION X(2,5)定义了一个数组X ，则该数组
中数组元素个数是 。
11．计算机接入Internet 时，可以通过公共电话网进行连接。以这种方式连接并
在连接时分配到一个临时的IP 地址，此时通常使用的连接协议是 。
12．一个家庭有三台计算机，连接到一个微型路由器上共用一条线路连入Internet 。
已知路由器的内网IP 地址为192.168.1.1，子网掩码为255.255.255.0，则三台计算机的网络地址应设置为 。
13．在OSI/RM模型的不同层次使用不同格式的地址，这些分层存在的地址按一定
的协议建立起对应关系。在网络层使用的地址称为 地址。 四、根据已知的环境与题意，写出相应的Visual FoxPro 操作命令或SQL 语句，要 求每小题用一条命令或语句完成（本大题共5小题，每小题4分，共20分，请填 写在答题纸上）。
现有数据库“GZGL.DBC ”，其中包含表“gzb.dbf ”，该表有以下字段：职工号
(C,6)、姓名(C,20)、性别(C,2)、年龄(N,3)、基本工资(N,7,2)、奖金(N,7,2)，在相应数据库和表已打开的前提下，写出完成下述功能的命令(注意：只能写一条语句，多于一条不得分) 。
1．将所有年龄大于50的职工基本工资增加200。（用Visual FoxPro命令）
第5页 共 12页
9
2. 以“职工号”为关键字建立降序的唯一索引，索引名为ZHG ，索引文件名ZHGGL.CDX 。（用Visual FoxPro命令）
3．将“gzb.dbf ”表中“基本工资”字段的宽度改为8。（用SQL 语句）
4．删除“gzb.dbf ”表中年龄大于60、性别为“男”的记录。（用SQL 语句）
5．查询统计“gzb.dbf ”表中每个部门（职工号的前3位）职工基本工资的平均值。（用SQL 语句）
五、程序分析（本大题共2小题，每小题5分，共10分，读程序并分析结果，请填写在答题纸上）
1．阅读下面的Visual Basic程序，程序运行后sum 的值是
Private Sub Command1_Click() Dim a(10) As Integer Dim i As Integer Dim j As Integer Dim num As Integer Dim sum As Integer sum = 0: a(0) = 1 For i = 0 To 10 For j = 1 To 9
num = 1 + Int(91 * Rnd)
If num = a(i) Then a(j) = num: sum = sum + a(j) Else j = j - 1 Next j
If j = 10 Then Exit For Next i Print sum End Sub
2．有Visual ForPro程序chengxu.prg 如下
计算机专业理论试题(A) CLEAR S=0 N=0
INPUT "请输入X=" TO X INPUT "请输入Y=" TO Y FOR I=3 TO 30 STEP 2 IF PANDUAN(I)=1 FOR J=2 TO I-1 IF I%J=0 EXIT ENDIF ENDFOR IF J
PROCEDURE PANDUAN PARAMETERS X
IF (X%3=0 OR X%5=0) AND (NOT (X%3=0 AND X%5=0)) FH=1 ELSE FH=0 ENDIF
第6页 共 12页
ENDPROC
该程序的功能是计算S= （写出包含X 和Y 的表达式） 六、写出下列程序的运行结果（本大题共5小题，每小题5分，共25分，请填写在答题纸上）
1．分析下面Visual Basic程序段。窗体中有一命令按钮（名称为C6_1）。
Private Sub C6_1_Click() Dim i As Integer Dim w As Integer w = 1
a = Array(1, 2, 3) b = Array(0, w, 4) For i = 0 To 2
w = w + wz(a(i), w, b(i)) Next i Print w End Sub
Private Function wz(ByVal x As Integer, y As Integer, ByVal z As Integer) Dim t As Integer t = x: x = y: y = t z = z + 1 wz = z End Function
窗体启动后单击命令按钮，输出w 的值为________。 2．分析下面Visual Basic程序段。
Open "c6_2.txt" For Output As #1 Print #1, "k01234" Print #1, "t12345" Print #1, "p23456" Print #1, "m34567"
计算机专业理论试题(A) Open "c6_2.txt" For Input As #1 Line Input #1, st Seek #1, 2 Line Input #1, st Print st Close #1
程序执行后，输出语句Print st执行结果是__________________。3．有Visual ForPro程序如下:
CLEAR
INPUT "请输入数据SHU=" TO SHU FOR I=3 TO SHU/2 IF CHULI(I)=1 J=SHU-I IF CHULI(J)=1
?TRIM(STR(I))+"和"+TRIM(STR(J)) ENDIF ENDIF ENDFOR
PROCEDURE CHULI PARAMETERS X M=1 IF X>3
FOR IX=2 TO SQRT(X) IF X%IX=0 M=0 EXIT ENDIF ENDFOR ENDIF
第7页 共 12页
ENDPROC
运行上面的程序，输入16，显示的结果为 第4、5题使用下面的数据库
设有数据库文件“学生管理.DBC ”，包含3个表，分别是“课程设置”、“学生档案”、“学生成绩”。其中“课程设置”表的结构为：课程编号(C，4) 、课程名称(C，20) 、学时(N，3，0) ，学分(N，3,1) ；“学生档案”表的结构为：学号(C，6) 、姓名(C，10) 、班级(C，20) ，院系(C，20), “学生成绩”表的结构为：学号(C，6) 、课程(C，20) 、成绩(N，5，1) 。各表中数据如下：
课程设置.DBF
记录号 课程编号 课程名称 学时 学分 1 0001 数据结构 64 3.5 2 0002 操作系统 54 3.0 3 0003 软件工程 46 2.5
学生档案.DBF
记录号 学号 姓名 班级 院系 1 100101 龙继坤 机电1班 机电系 2 100102 王玉玉 机电1班 机电系 3 100204 李玉红 机电2班 机电系 4 200101 杨彬彬 工商管理1班 工商管理系 5 200102 梁洪波 工商管理1班 工商管理系 6 200301 李继华 工商管理3班 工商管理系
学生成绩.DBF
记录号 学号 课程 成绩 1 100101 0001 79.0 2 100101 0002 89.0 3 100101 0003 80.0 4 100102 0001 45.0 5 100102 0002 98.0
计算机专业理论试题(A) 7 200102 0002 65.0 8 200102 0003 88.0
4. 有如下Visual FoxPro程序：（代码中行末的分号为逻辑行连接符）
CLEAR
OPEN DATABASE 学生管理
SELECT * FROM 学生成绩 WHERE 学号 IN(SELECT 学号 FROM; 学生档案) INTO DBF KECHENG USE
ADD TABLE KECHENG
SELECT 学号, 课程,MAX(成绩) AS CHENGJI FROM KECHENG GROUP BY; 课程 ORDER BY CHENGJI ASC INTO DBF HZ
SELECT HZ.学号,HZ. 课程,HZ.CHENGJI, 学生档案. 姓名 AS XINGMING; FROM 学生档案,HZ WHERE 学生档案. 学号=HZ.学号 ORDER BY; HZ.CHENGJI INTO DBF JG USE JG GO TOP KECHH=课程 XMING=XINGMING CLOSE DATABASE USE 课程设置 GO TOP
DO WHILE NOT EOF()
IF TRIM(课程编号)==TRIM(KECHH) ?XMING,课程名称, 学分 EXIT ENDIF SKIP ENDDO
运行上面的程序，显示的结果是： 5. 有如下Visual FoxPro程序：（代码中行末的分号为逻辑行连接符）
第8页 共 12页
CLEAR
OPEN DATABASE 学生管理
CREATE TABLE TJS(X1 C(20),X2 N(5,1))
SELECT DISTINCT 院系 AS Y1,SUBSTR(学号,1,2) AS Y2 FROM; CLOSE DATABASE USE TJS
DO WHILE NOT EOF() ?X1,X2 学生档案 ORDER BY Y2 INTO DBF JTS USE SELECT 1 USE JTS GO TOP SELECT 2 USE 学生成绩 GO TOP SELECT 1
DO WHILE NOT EOF() ZHI=0 SHU=0 SELECT 2 GO TOP
DO WHILE NOT EOF()
IF SUBSTR(学号,1,2)==JTS.Y2 ZHI=ZHI+成绩 SHU=SHU+1 ENDIF SKIP ENDDO IF SHU!=0
INSERT INTO TJS VALUES(JTS.Y1,ZHI/SHU) ENDIF SELECT 1 SKIP ENDDO
计算机专业理论试题(A) SKIP
ENDDO
运行上面的程序，显示的结果是： 七、Visual Basic 程序改错(本大题共有两个小题，每题5分，共10分，每个程序有两个错误行，请在答题纸上写出错误行代码和对应的正确代码，改对一处得一处分，改错不减分。注：要把整行写完整) 1．有两个数组
a = Array("zhao", "qian", "sun", "li", "zhou", "wu") b = Array(20, 31, 82, 73, 44, 25)
数组a 表示的是六个人的姓名，数组b 表示的是与数组a 中对应位置人的年龄，而且年龄中的个位数与他们在数组中的位置一致，年龄段在10到99之间。下面程序的功能是输入一个年龄，首先查找输入的年龄在数组b 中是否存在；如果存在，则显示其姓名，如果不存在，则程序直接结束。程序如下：
a = Array("zhao", "qian", "sun", "li", "zhou", "wu") b = Array(20, 31, 82, 73, 44, 25) Dim i As Integer Dim pos As Integer Dim flag As Integer Dim j As Integer flag = 0
pos = InputBox("请输入查询人的年龄") j = pos - Int(pos / 10) * 10 For i = 0 To 5 Step 1 If pos = a(j) Then flag = 1 Next i
If flag = 0 Then End Print a(pos)
第9页 共 12页
2．窗体中（运行状态如图所示）有一定时器控件（名称Timer1，初始状态Enabled 为False ），有三个标签用于显示控件名称，一滚动条（名称HS1, 最大值10，最小值0），一列表框（名称List1，初始状态为空），一文本框（名称为Text1，初值为9876543210，）, 一命令按钮（名称Command1，Caption 属性值为启动）。
启动按钮完成操作是：（1）计时器开始工作；（2）设置滚动条的value 、max 和min 属性值。
定时器工作时每隔一定时间触发一次事件，Timer 事件中完成4项工作：（1）从文本框值右边位置取若干个字符放文本框中；（2）把文本框中的内容添加到列表框中；（3) 滚动条的值减1；（4）当滚动条的值为0时计时器停止工作。
程序中的两处错误分布在每个事件中。（请结合程序认真看窗体运行界面，不能改变程序行数，不能增加函数）
Private Sub Command1_Click() HS1.Min = 0 HS1.Max = 10 HS1.Value = 1 Timer1.Enabled = True End Sub
Private Sub Timer1_Timer() Text1.Text = Right(Text1.Text, 9)
计算机专业理论试题(A) List1.AddItem Text1.Text HS1.Value = HS1.Value - 1
If HS1.Value =0 Then Timer1.Enabled = False End Sub
八、程序填空（本大题共7个空，每空5分，共35分，按程序要求在答题卡上填入相应的内容，使程序完整正确）
1．(Visual Basic试题) 下面程序的功能是从键盘输入长度小于20个字符的字符串，以“#”结束，然后对字符串从左端进行处理。处理方法：把字符串中数字内容放入数组a 的元素中，存放时要求每个元素放一个两位数字，最后如果剩一个一位数字则单独存放。如输入的字符串为“12abc3d456e7f#”, 则12、34、56、7分别存放到数组a 的前四个元素中。请填空。
Private Sub Command1_Click() Dim a(10) As Integer Dim c As String
Dim w1 As String ‘从字符串中取的一个字符 Dim w2 As String ‘用来存放存入数组中的数据 Dim flag As Integer ‘表示每次已经获取了几位数字 Dim i As Integer i = 0: w2 = 0
c = InputBox("请输入字符串，以#结束：") w1 = Left(c, 1) Do While w1 "#"
If w1 >= "0" And w1
w2 = (1) + Val(w1) End If c = Mid(c, 2) w1 = Left(c, 1)
If flag = 2 Then a(i) = w2: flag = 0: i = i + 1: w2 = 0 Loop
If flag > 0 Then (2) :i=i+1
第10页 共 12页
For flag = 0 To i-1 Print a(flag); Next flag End Sub
2．(Visual Basic试题) 窗体中有一列表框(名称List1) ，一文本框(名称Text1) ，一命令按钮(名称Command1) 。窗体启动时的Load 事件代码已给出。当每次单击开始命令按钮时将把列表框中选择的条目内容添加到数组，并把列表框中选择的条目删除，然后把数组中的元素值添加到文本框中（如图, 图中上方控件为列表框，下方控件为文本框）。请在空白位置写出正确的内容。
Private Sub Form_Load() List1.AddItem "10" List1.AddItem "20" List1.AddItem "15" List1.AddItem "20" List1.AddItem "89" List1.AddItem "93" End Sub
Private Sub Command1_Click() Static a(6) As Integer
计算机专业理论试题(A) Dim i As Integer Static j As Integer
For i =(3) To 0 Step -1 If List1.Selected(i) Then a(j) = Val(List1.List(i)) j = j + 1
List1.RemoveItem i Exit For End If Next i
Text1.Text = ""
For i = 0 To (4) Text1.Text = Text1.Text & a(i) & " " Next i End Sub
3．(Visual FoxPro试题) 已知有“XXGL.DBC ”数据库，其中包含“用户”表，“用户”表的结构为：用户名(C，10) 、密码(C，10), 应用程序运行时界面如下图所示：
设置控件属性如下：
有四个标签，其Name 属性分别为Label1、Label2、Label3和Label4，Caption 属性分别为“用户名”、“密码”、“确认密码”、(空) 。有三个文本框，其Name 属性分别为
第11页 共 12页
Text1、Text2、Text3；两个命令按钮，其Name 属性分别为Command1和Command2，Caption 属性分别为“确定”和“取消”。
编写Visual FoxPro程序实现“添加用户”的功能，具体功能如下：
在Text1文本框中输入用户名、在Text2文本框中输入密码、在Text3文本框中输入确认密码，然后单击“确定”按钮；如果“用户名”为空，则在Label4上显示“用户名不能为空！”；如果输入的用户名在“用户”表中存在，则在Label4上显示“用户已存在！”；如果用户名不为空、也不在“用户”表中存在，则判断Text2和Text3中输入的密码和确认密码（要求密码只能是数字或字母，不能是其他字符，如果输入了其它字符，则在Label4中显示“密码使用了不合法的字符！”）是否相同，如果不相同，则在Label4中显示“请输入相同密码！”；如果不发生以上情况，则将用户信息添加到“用户”表中（密码进行简单的加密处理，将密码串中的每个字符按ASCII 码变为其后的第二个字符，如0变成2,1变成3，a 变成c ），并在Label4中显示“成功添加新用户！”。 Command1（“确定”按钮）的Click 事件如下，请在空白位置填写正确的命令。（代码中行末的分号为逻辑行连接符） U1=THISFORM.TEXT1.VALUE PW1=THISFORM.TEXT2.VALUE OPEN DATABASE XXGL TEMPCHR="" IF TRIM(U1)==""
THISFORM.LABEL4.CAPTION="用户名不能为空！" ELSE
SELECT COUNT(用户名) AS GESHU FROM 用户 WHERE;
UPPER(用户名)=UPPER(TRIM(THISFORM.TEXT1.VALUE)) INTO DBF BIAO USE BIAO IF GESHU>0
THISFORM.LABEL4.CAPTION="用户已存在！" ELSE
IF TRIM(THISFORM.TEXT2.VALUE)==TRIM(THISFORM.TEXT3.VALUE) TEMPSTR=""
FOR I=1 TO LEN(TRIM(PW1))
(5)
计算机专业理论试题(A) IF MIMA>='0' AND MIMA='a' AND MIMA
MIMA>='A' AND MIMA
TEMPCHR=ASC(SUBSTR(PW1,I,1))+2
(6) ELSE
THISFORM.LABEL4.CAPTION="密码使用了不合法的字符！" EXIT FOR ENDIF ENDFOR
IF I>LEN(TRIM(PW1)) DIMENSION B(1,2) B(1,1)=U1 B(1,2)=TEMPSTR
INSERT INTO 用户 VALUES(b(1,1),b(1,2)) THISFORM.LABEL4.CAPTION="成功添加新用户！" ENDIF ELSE
(7) ENDIF ENDIF ENDIF
第12页 共 12页