2014年河北省对口高考计算机试题

计算机专业理论试题（A）
注意事项：
1．本试卷共八道大题。

总分240分。

2．第I卷“一、选择题”、第II卷“二、判断题”的答案填涂在机读卡上，其余各题答案写在答题纸上，答在试卷上不得分。

用蓝黑钢笔、碳素笔或圆珠笔答题。

3．答题前将密封线内项目填写清楚。

第Ⅰ卷（选择题共100分）
一、选择题（本大题共50小题，每小题2分，共100分。

在每小题所给出的四个选项中，只有一个符合题目要求，将正确选项填涂在机读卡上
计算机专业理论试题(A) 第1页共 12页
1．下列设备中，全部属于输出设备的一组是.........................（
）
A．扫描仪、键盘、显示器 B．激光打印机、键盘、鼠标C．麦克风、绘图仪、显示器 D．喷墨打印机、绘图仪、音箱
2．计算机软件一般分为系统软件和应用软件两大类，下列选项中不属于系统软件的是...........................................................（ ）A．操作系统 B．数据库管理系统
C．用汇编语言编写的程序 D．语言处理程序
3．与十六进制数37.A等值的二进制数是............................（ ）
A.110101.011
B.110100.111
C.110111.101
D.110101.101
4．下列关于病毒的叙述中哪一条是正确的..............．．．．．．．．．．．．．（ ） A．杀毒软件通常是滞后于计算机新病毒的出现
B．杀毒软件可以查、杀所有种类的病毒
C．计算机病毒只感染可执行文件
D．将防火墙打开，再定期用杀毒软件杀毒，就不会感染病毒了
5．用计算机进行图书馆的资料检索工作，这主要涉及计算机应用中的．．．（ ） A．科学计算 B．数据处理 C．过程控制 D．辅助设计　
6．2.4MB的磁盘空间大约可以存放的汉字数目是......................（ ） A．240万 B．30万 C．60万 D．120万
7．某微机主要技术参数为“P4/1.7G/128M/60G/”，其中1.7G的含义为．．（ ） A．CPU 的运算速度为1.7GMIPS
B．CPU 的时钟主频为1.7GHz
C．CPU 的内存为1.7G
D．CPU 与内存间的数据交换速率是1.7GB/S
8．在Windows XP中，按住Ctrl键的同时，用鼠标左键将选定的文件拖放到另一个文件夹，系统进行的操作是..........................................（ ）A．无论源文件夹和目的文件夹是否在同一磁盘内，均实现复制
B．无论源文件夹和目的文件夹是否在同一磁盘内，均实现移动
C．若源文件夹和目的文件夹在同一磁盘内，将实现移动
D．若源文件夹和目的文件夹不在同一磁盘内，将实现移动
9．在Windows XP中，同一磁盘上.....................................（ ）A．允许同一文件夹中的文件同名，也允许不同文件夹中的文件同名
B．不允许同一文件夹中的文件同名，也不允许不同文件夹中的文件同名
C．允许同一文件夹中的文件同名，不允许不同文件夹中的文件同名D．不允许同一文件夹中的文件同名，允许不同文件夹中的文件同名
10．在 Windows XP 中，卸载应用程序的正确方法是进入.................（ ）A．我的电脑 B．资源管理器
C．控制面板 D．注册表
11．对于Windows XP的回收站，下列叙述正确的是......................（ ）A．“回收站”中可以存放所有外存储器中被删除的文件或文件夹
B．“回收站”是硬盘中的一块区域
C．“回收站”的大小是固定的，不能调整
D．在“回收站”图标上点右键可以还原所有文件
12．在Word2003的编辑状态，有关查找操作的叙述中，正确的是.......... （ ）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 ．
B ．
C ．　
D ．
品牌价格数量创维>=4000>50创维<=6000>50康佳>=4000>50康佳
<=6000
>50
18．在Visual Basic 中，Print
Int(Rnd)+Int(3+Rnd)的结果是.............（ ）
A ．无法确定 B. 2 C. 3 D. 419．在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 ．422．关于Visual
Basic 中列表框属性的说法不正确的选项是...............（ ）
A ．列表框既有添加列表项的方法，也有删除列表项的方法
B ．列表框中列表项个数无法统计
C ．向列表框中添加
项目时可以插入在列表项之间
D ．列表框中的每个
列表项都有一个索引位置
23．执行下面Visual
Basic 程序，数组a 中元素值是w 的数据经过一系列位置变化后，其最终位置的下
标是哪个选项......................................（ ）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
品牌品牌价格价格销量创维康佳
>=4000
<=6000
>50
品牌价格价格销量
创维
>=4000<=6000>50康佳
>=4000<=6000>50品牌价格价格
销量创维
>=4000
>50
创维
<=6000>50康佳
>=4000<=6000>50
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的值是....................（ ）
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
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．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．为网络提供共享资源，并对这些资源进行管理的计算机
第Ⅱ卷（非选择题共140分）
二、判断题（本大题14小题，每小题1分，共14分。

将答案填涂在机读卡上，正确的填涂“√”格，错误的填涂“×”格）
1．世界上第一台电子计算机采用的电子器件是电子管。

（）
2．在计算机系统中，不能直接和CPU交换数据的存储器是ROM。

（
）
3．在Windows
XP中，删除某个应用程序的桌面快捷图标意味着，该应用程序连同快
捷图标一起被删除。

（
）
4．在Windows
XP中，剪贴板是程序和文件间用来传递信息的临时存储区，此存储区
是内存的一部分。

（
）
5．在Word
2003中，为了突出显示文档的某些内容，可以为该部分内容加底纹，
也可以为图形加底纹。

（）
6．在Word2003中，文本可以转换成表格，但表格不可以转换成文本。

（
）
7．在Excel2003中，执行“格式”菜单中的“排序”命令，可以实现对
工
作
表
数据的排序功能。

（
）8．在 Excel2003
中，当数据源发生变化时，相应的图表将自动跟随变化。

（）
9．在Visual Basic中，控件的属性在任何状态下都可以修改。

（
）
10．在Visual
F o x P r o 中，选择当前未使用的最小编号工作区的命令是S E L E C T
0。

（ ）
11．在TCP/IP 协议组中，DNS （域名服务系统）的组织结构是层次模型。

（ ）
12．只有服务器上的软件系统和软件应用可以作为共享资源，由服务器向网络中其他计算机提供。

（ ）
13．目前在Internet 上的主机已经普遍使用了IPv6格式的IP 地址。

（ ）
14．计算机网络的拓朴结构包括网络的物理拓朴结构和逻辑拓朴结构。

（ ）
三、填空题（本大题共13小题，每小题2分，共26分。

请将答案填写在答题纸上）
1．微型计算机能识别并能直接执行的语言是 语言。

2．微型计算机硬件系统中最核心的部件是 。

3．在微机中，信息的最小单位是 。

4．在Windows
XP 中，若要将一个文件设置为“只读”，则可以选中该文件，单击鼠标右键，然后在弹出菜单中选 菜单项。

5．在Word2003中，若要设定打印纸张大小，应使用 菜单中的
“页面设置”命令。

6．在Excel2003中，单元格D2：D31存放的内容为全班30名同学的数学成
绩，若要在单元格D32中统计不及格同学的人数，则在D32中输入=。

7．在Visual Basic 中，对于数组 A(2 To 3, 4 To
6)，它的第二维的下界为___________。

8. Visual Basic 的表达式(10 > 8) And (-3 < 3) And (10 < 8) Or (5 > 14)的结果是_________________。

9．在Visual FoxPro 中，运行表单“login ”的命令为 。

10．在Visual FoxPro 中，用命令DIMENSION
X(2,5)定义了一个数组X ，则该数组中数组元素个数是 。

11．计算机接入Internet 时，可以通过公共电话网进行连接。

以这种方式连接并在连接时分配到一个临时的IP 地址，此时通常使用的连接协议是 。

12．一个家庭有三台计算机，连接到一个微型路由器上共用一条线路连
入Internet 。

已知路由器的内网IP 地址为192.168.1.1，子网掩码为2
55.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 命令）
2.
以“职工号”为关键字建立降序的唯一索引，索引名为ZHG ，索引文件名ZHG
GL.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如下
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<I
N=N+1
IF N%2=0
S=S+I*X
ELSE
S=S-I*Y
ENDIF
ENDIF
ENDIF
ENDFOR
?S
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
RETURN FH
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"
Close #1
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
RETURN M
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 10020
4 李玉红机电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
6 200101 0001 99.0
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程序：（代码中行末的分号为逻辑行连接符）
CLEAR
OPEN DATABASE 学生管理
CREATE TABLE TJS(X1 C(20),X2 N(5,1))
SELECT DISTINCT 院系 AS Y1,SUBSTR(学号,1,2) AS Y2 FROM;
学生档案 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
CLOSE DATABASE
USE TJS
DO WHILE NOT EOF()
?X1,X2
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)
2．窗体中（运行状态如图所示）有一定时器控件（名称Timer1，初始状态Enab led为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)
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的元素中，存放时要求每个元素放一个两位数字，最后如果剩一个一位数字则单独存放。

如输入的字符串为“12a bc3d456e7f#”,则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 <= "9" Then
flag = flag + 1 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
For flag = 0 To i-1
Print a(flag);
Next flag
End Sub
2．(Visual
Basic试题)窗体中有一列表框(名称List1)，一文本框(名称Text1)，一命令按钮(名称C ommand1)。

窗体启动时的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
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，Capt
ion属性分别为“用户名”、“密码”、“确认密码”、(空)。

有三个文本框，其Name 属性分别为Text1、Text2、Text3；两个命令按钮，其Name属性分别为Command 1和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)==""
BEL4.CAPTION="用户名不能为空！"
ELSE
SELECT COUNT(用户名) AS GESHU FROM 用户 WHERE;
UPPER(用户名)=UPPER(TRIM(THISFORM.TEXT1.VALUE)) INTO DBF BIAO
USE BIAO
IF GESHU>0
BEL4.CAPTION="用户已存在！"
ELSE
IF
TRIM(THISFORM.TEXT2.VALUE)==TRIM(THISFORM.TEXT3.VALUE) TEMPSTR=""
FOR I=1 TO LEN(TRIM(PW1))
(5)
IF MIMA>='0' AND MIMA<='9' OR MIMA>='a' AND
MIMA<='z' OR; MIMA>='A' AND MIMA<='Z' TEMPCHR=ASC(SUBSTR(PW1,I,1))+2
(6)
ELSE
BEL4.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)) BEL4.CAPTION="成功添加新用户！"
ENDIF
ELSE
(7) ENDIF
ENDIF
ENDIF。