2023年河北省对口升学计算机专业理论试题(附答案)

2023年河北省一般高等学校对口招生考试

计算机专业理论试题(A)

留意事项：

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

2.第I卷“一、选择题”、第II卷“二、推断题”的答案填涂在机读卡上，其余各题答案

写在答题纸上，答在试卷上不得分。用蓝黑钢笔、碳素笔或圆珠笔答题。

3.答题前将密封线内项目填写清晰。

第I卷(选择题共100分)

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

只有一个符合题目要求，将正确选项填涂在机读卡上)

1计算机能够臼动、精确、快速地依据人们的意图运行的最根本缘由是••・・()

A采纳超大规模集成电路B.CPU作为中心核心部件

C具有操作系统D.具有存储程序和程序限制功能

2下列各组设备中，同时包括了输入设备、输出设备和存储设备的是()

ACRT显示器、CPU、CacheB.绘图仪、鼠标、键盘

C.鼠标、绘图仪、光盘D.硬盘、打印机、LED显示器

3.下列各组软件中，全部属于应用软件的是..........................()

A.程序语言处理程序、操作系统、数据库管理系统

B.文字处理程序、编辑程序、MS-DOS

C.Word2023>MySQL5.0、程序语言处理程序

D.财务处理软件、Flash、WPS,Office2023

4.在标准ASCH码表中，数字、大小写英文字母的编码从小到大的次序是()

A.大写英文字母、小写英文字母、数字B.数字、小写英文字母、大写英文字母

C.小写英文字母、大写英文字母、数字D.数字、大写英文字母、小写英文字母

5.存储300个24X24点阵的汉字字形码，所需的存储容量大小为......()

A.0.1728M个二进制位B.21600个字节

C.42.1875K个字节D.0.3456M个二进制位

6.运算器(ALU)的功能是.........................................()

A.只能进行逻辑运算B.进行算术运算或逻辑运算

C.只能进行算术运算D.做初等函数的计算

7.以下关于病毒的描述，正确的是....................................()

A.计算机病毒只在可执行文件中传播

B.计算机病毒主要通过读/写存储器或网络进行传播

C.只要删除全部感染了病毒的文件就可以彻底清除病毒

D.计算机杀毒软件可以查出和清除全部病毒

8.在下列各数据中，数值最小的是....................................()

A.(156)8B.(139)10

C.(2FF)16D.(10100001)2

9.在WindowsXP中，关于“画图”工具，以下说法不正确的是..........()

A.点击“起先”-“搜寻”，输入“画图”可以找到“画图”工具

B.点击“起先”-“全部程序”-“附件”，可以找到“画图”工具

C.打开“限制面板”-“添加/删除程序”，可以卸载“画图”工具

D.在“画图”工具图标上点右键，可以将其添加到“起先”菜单

10.在WindowsXP中，不能在“任务栏”内进行的操作是...............（）

A.窗口之间切换B.排列桌面图标

C.设置系统日期和时间D.启动“起先”菜单

11.在WindowsXP中，以下关于文件名的说法，不正确的是.............（）

A.由于文件的扩展名运用，因此文件命名时不能运用

B.文件名可以运用通配符'？'和'*'

C.给文件命名时字母可以运用大小写格式，但不能用大小写区分文件名

D.文件名可用英文字母、数字和汉字命名

12.在Word2023中，将“计算机”一词设置为艺术字“”，则以下方法中不正

确的是............................................................（）

A.“编辑”-“替换”B.“插入”-“图片”-“艺术字”

C.“视图”-“工具栏”-“艺术字”D.“格式”-“字体”-“文字效果”

13.在Word2023中，若要设置表格的外框线为双线，内框线为单线，如下图，正确的操

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

三年前北京各区平均租金表

区名一居室二居室三居室

东城区149718772150

西城区144219532260

崇文区128415512000

宣武区123315531900

朝阳区126515641943

A.打开“表格”-“表格属性”-“边框底纹”，选择“方框”吩咐

B.打开“表格”-“表格属性”-“边框底纹”，选择“全部”吩咐

C.打开“表格”-“表格属性”-“边框底纹”，选择“自定义”吩咐

D.以上都可以

14.在Word2023中，假如在文档顶部或底部添加图形或文本，正确的操作是（）

A.通过“视图”-“页眉和页脚”进行设置

B.通过“插入”-“页眉和页脚”进行设置

C.通过“文件”-“页眉和页脚”进行设置

D.以上都不对

15.在Excel2023中，若要在“计算机专业考试成果单”表中，按输入公式方式填充“等

级”列，填充要求是：“综合成果”高于90分（含90）为“优秀”，60分（含60）到

90分（不含90）为“合格”，60分以下“不合格”。以下公式正确的是...（）

A.=IF（E3>=90,"优秀”，（IF（E3〉=60,“合格"，"不合格"）））

B.=IF（E3>=90,〃优秀”,IF（E3>=60,"合格"，"不合格”））

C.=IF（E3>=60,“合格"，（IF（E3>=90,"不合格","优秀”）））

D.=IF（E3<60,"不合格"，（IF（E3>=90,"合格"，"优秀"）））

16.在Excel2023中，如15题图“计算机专业考试成果单”所示，若突出显示“等级”

为“优秀”的单元格，以下操作正确的是............................（）

A.运用“自动筛选”功能B.运用“高级筛选”功能

C.运用“条件格式”功能D.运用“IF”函数

17.在Excel2023中，单元格中的数据显示为一串时，说明.......（）

A.公式中出现了0为除数的状况B.单元格数据长度大于该列的宽度

C.出现语法错误D.公式中含有不能识别的函数

18.在VisualBasic中，设A=“12345678”,则表达式Vai(Right(A,4)+Mid(A,4,2))

的值为...........................................................()

A.123456B.567845C.123445D.5723

19.在VisualBasic中，将文本框的内容全部显示为用户所定义的字符的属性是...

.................................................................()

A.PasswordCharB.PasswordC.SelTextD.以上都不对

20.若评比优秀毕业学生的条件是：政治面貌(party)为团员，课程总分(total)大于

285分,其中三门主课三arkl,mark2,mark3)中有一■门课为100分，VisualBasic

表达式应写为....................................................()

A.party=〃团员〃andtotal>285andmark1=100ormark2=100ormark3=100

B.party=〃团员〃andtotal>285ormarkl=100ormark2=100ormark3=100

C.(party="团员〃andtotal>285)and(mark1=100ormark2=100ormark3=100)

D.(party="团员〃ortotal>285)and(mark1=100ormark2=100ormark3=100)

21.在VisualBasic中，下面哪个选项属于控件的方法.................()

A.ClickB.ChangeC.SetFocusD.Dim

22.在VisualBasic中，窗体上有一个吩咐按钮(其Name属性为Commandl),运行以下

程序，单击吩咐钮,其输出结果是..................................()

OptionBase1

PrivateSubCommand1_C1ick()

Dima

a二Array(1,2,3,4)

J=1

Fori=4To1Step-1

s=s+a(i)*j

j=j*10

Nexti

Prints

EndSub

A.4321B.234C.34D.1234

23.在VisualBasic中，下面关于图片框(PictureBox)和图像框(Image)说法不正确的

是...............................................................()

A.图片框中可以装载其他控件B.均可加载图片

C.图像框中可以装载其他控件D.图像框比图片框占用更少内存

24.在VisualBasic中，有一个10个元素的数组，以下程序可将该数组逆置。即第1个

元素与第10个元素交换，第2个元素与第9个元素交换……，第5个元素与第6个元素

交换，为实现此功能，应在横线处填写.............................()

PrivateSubCommandl_Click()

Dima(lTo10)AsInteger

DimiAsInteger

DimpAsInteger

DimtAsInteger

DimjAsInteger

Fori=1To10

a(i)=i

Nexti

Forj=1To5

t=a(j)

Nextj

Fori=1To10

Printa(i)

Nexti

EndSub

A.a(j)=a(ll-j)a(ll-j)=t

B.a(ll-j)=a(j)a(j)=t

C.a(j)=ta(ll-j)=a(j)

D.a(ll-j)=ta(j)=a(ll-j)

25.在VisualBasic中，单击一次吩咐按钮，下列程序代码的执行结果为.....()

PrivateSubCommandl_Click()

DimaAsInteger,bAsInteger,cAsInteger

a=2:b=3:c=4

Printfun2(a,b,c)

EndSub

PrivateFunctionfunl(xAsInteger,yAsInteger,zAsInteger)

funl=2*x+y+3*z

EndFunction

PrivateFunctionfun2(xAsInteger,yAsInteger,zAsInteger)

fun2=funl(z,x,y)+x

EndFunction

A.27B.21C.17D.34

26.在VisualBasic设计阶段，为了清除窗体上的一个控件，下列正确的操作是()

A.单击要清除的控件，然后按回车键B.单击要清除的控件，然后按Esc键

C.单击要清除的控件，然后按Del键D.以上都不对

27.在VisualBasic中，下列程序段的输出结果是.........................()

x=5

SelectCasex+1

Case5,6,7

Print”5,6,7〃

Case0To9

Print〃0to9〃

CaseIs>=15

Print〃is〉=5〃

EndSelect

A.5,6,7B.0~9C.0to9D.is>=5

28.在VisualFoxPro中，运用DIMENSIONa(10)定义了一个一维数组，正确的赋值语

句是.............................................................()

A.a=10B.a[10]=10

C.STORE10a[3],a[4],a[5]D.a[2],a[3],a[4]=10

29.在VisualFoxPro中，下面有关视图的描述，正确的是................()

A.可以运用MODIFYSTRUCTURE吩咐修改视图的结构

B.视图不能删除，否则影响原来的数据文件

C.视图是对表的复制产生的

D.运用SQL对视图进行查询时，必需事先打开该视图所在的数据库

30.在VisualFoxPro中，连续执行以下吩咐后，变量B的值为.........()

SETEXACTOFF

A="河北"

B=(A=〃中国河北”)

?B

A..F.B.中国河北C.河北D..T.

31.在VisualFoxPro中，为了在报表中加入一个文字说明，应当插入一个..()

A.表达式控件B.域控件C.标签控件D.文本控件

32.在VisualFoxPro中，已运用吩咐MODIFYMENUmymenu创建了一个菜单并生成了

相应的菜单程序，则正确运行该菜单程序的吩咐是...................()

A.DOmymenu.mprB.DOMENUmymenu.mpr

C.DOMENUmymenuD.DOmymenu

33.在VisualFoxPro中，下述描述正确的是...........................()

A.利用查询可能修改数据B.利用视图可以修改数据

C.查询和视图的功能相同D.视图可以定义输出去向

34.VisualFoxPro是一种关系型数据库管理系统，所谓“关系”是指.......()

A.数据模型符合满意肯定条件的二维表格

B.一个数据库文件与另一个数据库文件之间有肯定的关系

C.各字段间的数据彼此有肯定的关系

D.各条记录中的数据彼此有肯定的关系

35.在VisualFoxPro中，变量a的值是“计算机网络工程师”，变量b的值是“程序

设计员”，结果为“程序设计工程师”的表达式是...................()

A.substr(b,1,4)-substr(a,6,3)B.left(b,8)-right(a,6)

C.left(b,4)-right(a,3)D.以上都正确

36.用户在互联网上常常运用的一种信息查询工具是.............................()

A.电子公告板系统B.电子邮件C.网络加速器D.搜寻引擎

37.网络中的计算机可以分为服务器和客户机，服务器主要用来向全网络供应某种协议

的网络服务，客户机则主要用来访问、运用服务器上的服务。在下列关于客户机的

描述中，错误的是..............................................................()

A.智能手机不能用作客户机B.平板电脑可以作为客户机运用

C.笔记本电脑可以用作客户机D.高端台式机能用作客户机

38.下列哪种数据交换技术不属于存储交换技术.........................()

A.分组交换B.报文交换C.信元交换D.线路交换

39.ISO是下列哪个组织的英文简写...........................................()

A.国际电报电话询问委员会B.国际标准化组织

C.电气和电子工程师协会D.电子工业协会

40.在运用IE阅读器过程中点击“主页”按钮，下列说法正确的是.............()

A.在IE中显示最近访问过的网页B.访问Microsoft公司的主页

C.访问百度公司的主页D.用户在IE中自定义的主页

41.网络阅读器通常运用的协议是HTTP,该协议在服务器上运用的默认端口号为....()

A.21B.25C.80D.23

42.如下图所示，计算机A向计算机B发送数据包，过程为：计算机A通过网络1向路

由器C发送数据包1；路由器C通过网络2向路由器D发送数据包2；路由器D通

过网络3向计算机B发送数据包3。计算机及路由器的关键参数已经在邻近位置给

出。问：在数据包传输过程中，封装在数据包2中的目的IP地址和目的MAC地址

是()

A.192.168.3.10和

B.192.168.10.200和

C.192.168.3.10和

D.192,168.30.100和

43.Unix是一种网络操作系统，可以安装运行TCP/IP协议。有一台计算机安装了Unix

操作系统和TCP/IP协议，下列说法中错误的是...................................()

A.该计算机在联网后具有所在网络唯一的IP地址。

B.该计算机网络参数中可以设置网关参数。

C.该计算机不能访问安装Windows网络操作系统的计算机网络。

D.该计算机可以按域名访问互联网网站。

44.下列关于UDP协议的描述中正确的是......................................()

A.不行靠B.传输过程不透亮C.面对连接D.有序传送数据包

45.在TCP/IP协议体系中，ARP协议的作用是..................................()

A.解析端口和服务类型的对应关系

B.解析MAC地址和端口的对应关系

C.解析IP地址和域名的对应关系

D.解析IP地址和MAC地址的对应关系

46.在0SI网络参考模型中，能够确定网络接头及其电器性能标准的是••・・()

A.传输层协议B.网络层协议C.数据链路层协议D.物理层协议

47.为了提高网络平安性、防止网络服务器遭遇黑客攻击，目前常常采纳的技术是...()

A.双机热备份技术B.生物特征识别技术C.数据加密技术D.防火墙技术

48.在下列网络调试吩咐中，可以用来测试两台机器之间是否有物理通路的是()

A.netstatB.ipconfigC.pingD.telnet

49.IP地址129.10.10.10属于下列哪类IP地址...............................()

A.D类地址B.C类地址C.B类地址D.A类地址

50.若干计算机运用交换机和双绞线、应用TCP/IP协议组成了一个局域网，并通过一

台路由器与互联网连接。在为计算机设置网络参数时，下列哪个网络参数没有必要

进行设置......................................................................()

A.DNS服务器B.IP地址C.WINS服务器D.默认网关

A

网络1

数据包2

01.6a.75.66.Of.11

网络3

网络2

B

数据包3

数据包1

路由器C

路由器D

第n卷（非选择题共MO分）

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

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

1.计算机能够进行逻辑推断，并依据推断的结果选择相应的处理。这说明计算机

具有自动限制实力。（）

2.计算机断电后，RAM存储的信息不会丢失，ROM存储的信息会丢失。（）

3.在WindowsXP中，回收站容量大小是固定的，不能调整。（）

4.在WindowsXP中，任务栏可以放在桌面的四个边的随意边上。（）

5.在Word2023中，假如须要对插入的图片作精确定位，那么图片与文字的环绕

方式应当选择“浮于文字上方”。（）

6.在Word2023中，运用“查找”吩咐时，可以区分全角和半角字符，也可以区

分大小写字母。（）

7.在Excel2023中，分类汇总的关键字段可以是多个字段。（）

8.在Excel2023中，选中单元格按Delete键，则单元格的内容被删除而格式保

持不变。（）

9.在VisualBasic中，可以用LoadPicture函数给图片框加载图片，但不能用此

函数清除其中的图片。（）

10.在VisualFoxPro中，运用查询设计器创建的是一个包含SQL的SELECT语句的

文本文件。（）

11.从技术上看，可以将一般交换机视为一种多端口的网桥，该设备工作在数据链

路层。（）

12.由于网络运用了分层结构，所以当某层的实现技术发生改变时，与其相邻的层

次必需进行相应改变，才能保证网络功能的正常实现。（）

13.网络服务器上的DHCP服务，其主要功能是进行IP地址和域名之间的相互转换。

（）

14.工作在数据链路层和网络层的设备都具有所在网络的唯一地址标识或能够判识

所在层次的地址标识。（）

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

答题纸上）

1.进位计数制允许选用的基本数码的个数称为。

2.冯•诺依曼计算机体系中，中心处理器包含和。

3.计算机中全部信息都是以形式存储的。

4.在WindowsXP中，是内存的一块区域，用于各个应用程序之间相互

交换信息。

5.在Word2023中，包含有最近运用过文档列表的是菜单。

6.在Excel2023中，单元格E4中有公式“=$C$3+D4”,将公式复制到E6单元格

中，单元格E6中的公式为。

7.在VisualBasic中，文本框的默认属性是。

8.在VisualBasic中，代数式

1

32

x

x

的算术表达式是。

9.在VisualFoxPro中，要屏蔽系统菜单，运用吩咐。

10.在VisualFoxPro中，一个表只能建立一个的是索引。

11.在0SI网络参考模型中，传输层传送信息的组织单位是。

12.用来代表本机IP地址的第一个字段的值是（请填写十进制数）。

13.（请填写设备名称）可以按不同的网络协议完成数据包格式的

转换，从而将环型网络和总线型网络进行互连。

四、依据已知的环境与题意，写出相应的VisualFoxPro操作吩咐或SQL语句，要

求每小题用一条吩咐或语句完成（本大题共5小题，每小题4分，共20分，请填

写在答题纸上）。

现有数据库“HETONG.DBC”，其中包含表“TAB_HETONG.DBF"，该表有以下字段：

编号9,10）、供方（C,50）、合同编号（C,10）、签订地点（C,50）、数量（N,10,0）,需

方（&50）。相应的数据库和表已打开，写出实现下述功能的吩咐（留意：每个吩咐

只能写一条语句，多于一条不得分）。

1.以“合同编号”为关键字建立降序的候选索引，索引名为“HT”，复合索引

文件名为HTBH.CDX。（用VisualFoxPro吩咐）

2.将全部“供方”为“阳春白雪集团”的全部记录的“签订地点”改为“金阳

大厦"（用VisualFoxPro吩咐）

3.查询统计“TABJ1ET0NG”表中不同需方“数量”的最大值，并将结果从打印

机上打印出来。（用SQL语句）

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

4.修改表“TAB」IETONG”的结构，删除“合同编号”字段的默认值。（用SQL语句）

5.册除“TABJETONG”表中“供方”为“百得公司”或“数量”小于500的记录。

（用SQL语句）

五、程序分析（本大题共2小题，每小题5分，共10分，读程序并分析结果，请填写

在答题纸上）

1.阅读下面的VisualBasic程序，循环体中的语句s=s+2共执行了次。

PrivateSubCommandl_Click（）

DimaAsInteger,bAsInteger,cAsInteger

DimiAsInteger,sAsInteger

a=5:b=2:c=2:s=0

DoWhileb<=a

Forj=1To200Stepc

s=s+2

Nextj

b=b+c

Loop

Prints

EndSub

2.有数据表JY.DBF的内容如下：(注：日期格式为“月/日/年”)

Record#借书证号借书日期

1001002/01/16

2000701/01/16

3000611/03/15

4001002/17/16

数据表JYR.DBF的内容如下：

Record#借书证号姓名职称

10006孟小梅教授

20010郑财勇讲师

30007王志军助教

有VisualForPro程序TX.prg如下：

CLEAR

STORE12TOTA

STORE18TOTB

STORE0TOTC,TS

DOJSWITHTA,TB,TC,TS

SELECT1

USEJYR

INDEXON借书证号TAGGYROFGYRY

SELECT2

USEJY

H=1

DOWHILE.NOT.EOF()

TE二DATE。-借书日期

IFTEXTS-TA*2)*10

SELECT1

SEEKB.借书证号

IFTE>(TS-27)*10OR职称<>'教授'

?姓名+'同志，您借的书已过期，请归还’

H=H+1

ENDIF

SELECT2

ENDIF

SKIP

ENDDO

RETURN

PROCEDUREJS

PARAMETERSTA,TB,TC,TS

TOMAX（TA,TB）

DOWHILETC<=TA*TB

IFTC%TA=0ANDTC%TB=0

TS=TC

EXIT

ENDIF

TOTC+1

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

ENDD0

RETURN

ENDPROCEDURE

请分析职称为“教授”和其它不是“教授”的老师借书的最多天数分别是

和。

设系统的当前日期为2023年3月19日，程序将显示（填姓名）老师的

还书信息。

六、写出下列程序的运行结果（本大题共5小题，每小题5分，共25分，请填写在答

题纸上）

1.分析下面VisualBasic程序段。窗体中有一吩咐按钮（名称为B6）。

PrivateSubB6_Click（）

DimnumlAsInteger

Dimnum2AsInteger

DimnumAsInteger

DimiAsInteger,kAsInteger

numl=InputBox（〃numl二〃）

num2=InputBox（z/num2=zz）

num=1：i=2

Ifnuml>num2Thenk=num2Elsek=numl

DoWhilei<=k

IfnumlModi=0Andnum2Modi=0Then

num=i

EndIf

i=i+1

Loop

Printnum

EndSub

窗体启动后单击吩咐按钮，分别给numl和num2赋值为18和27,输出变量num的

值为。

2.分析下面VisualBasic程序段，如图所示，界面中左侧是列表框（名称Listl）,

显示省份名称，右侧从上向下分别是文本框1（名称Textl）,文本框2（名称Text2）,

吩咐按钮（名称Commandl）。

PrivateSubCommandlClickO

DimiAsInteger

Fori=0ToListl.ListCount-1

IfTrim(Text1.Text)=Listl.List(i)AndListl.Selected(i)Then

Text2.Text=Mid(Listl.List(Listl.Listindex),1,2)

ExitFor

Else

Text2.Text=〃其它〃

EndIf

Nexti

EndSub

PrivateSubForm_Load()

Listl.Additem〃河北省“

Listl.Additem〃河南省〃

Listl.Additem〃湖北省〃

Listl.Additem〃山东省〃

Listl.Additem〃湖南省〃

EndSub

窗体启动后，选中列表框中“湖北省”项目，并在文本框1中输入“湖北省”，单

击吩咐按钮，文本框2显示的内容是。

3.有VisualForPro程序如下：

CLEAR

INPUT〃请输入数据：〃TOAXB

?CAS(AXB,1)

FUNCTIONCAS

PARAMETERSnAmount,IsDW

nDZS=CDE(RTRIM(LTRIM(STR(nAmount,18,

cHZDX二〃零壹贰叁肆伍陆柒捌玖〃

cDW二〃分角元拾佰仟万拾佰仟亿拾佰仟万拾佰仟亿〃

cRMBDX二〃〃

nCd=LEN(nDZS)

FOR1=1TOLEN(nDZS)

cNumbers=SUBSTR(cHZDX,INT(VAL(SUBSTR(nDZS,1,1))*2+1),2)

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

IFIsDW=1

cDWs=SUBSTR(cDW,nCd*2-l,2)

ELSE

cDWs=SPACE(0)

ENDIF

cRMBDX=cRMBDX+cNumbers+cDWS

nCd=nCd-l

ENDFOR

FORI=LEN(nDZS)+lTO7

cNumbers=SUBSTR(cHZDX,INT(VAL(SUBSTR(nDZS,I,1))*2+1),2)

IFIsDW=l

cDWs=SUBSTR(cDW,1*2-1,2)

ENDIF

cRMBDX=cNumbers+cDWS+cRMBDX

ENDFOR

RETURNcRMBDX

FUNCTIONCDE

PARAMETERSnAmountY,nDot,nREP

cRMBDE二〃〃

FOR1=1TOLEN(nAmountY)

IFSUBSTR(nAmountY,1,1)<>/Z.

cRMBDE=cRMBDE+SUBSTR(nAmountY,I,1)

ENDIF

ENDFOR

RETURNcRMBDE

运行上面的程序，输入123.4,显示的结果为

4.现有2个表，分别是“JSB.DBF"、“KCB.DBF”°其中“JSB”表的结构为：楼号(N,2,0)、

教室名(C,5)、容纳人数(N,4,0),是否占用(L)；“KCB”表的结构为：课程名(C,20)、

选课人数(N,3,0),各表中数据如下：

JSB.DBF

记录号楼号教室名容纳人数是否占用

111-304120.T.

211-20580.T.

322-10370.T.

422-20480.F.

533-10330.T.

633-10465.F.

733-201100.F.

KCB.DBF

记录号课程名选课人数

1计算机基础35

2操作系统60

有如下VisualFoxPro程序：

DIMEJIZHK1,1)

SELECT楼号，教室名，容纳人数，是否占用FROMJSBINTOTABLELINSHI

ALTERTABLELINSHIADDCHAZHIN(3,0)

USE

ACCEPT”请输入课程名："TOKCM

SELECT1

USEKCB

INDEXON课程名TAGABC

SEEKKCM

SELECT2

USELINSHI

REPLACEALLC11AZHIWITH容纳人数-A.选课人数

DELETEALLFORCHAZHKOOR是否占用=.T.

PACK

SELECTMIN(CHAZHI)FROMLINSHIINTOARRAYJIZHI

GOTOP

JIEGUO=""

DOWHILENOTEOF()

IFCHAZHI=JIZHI(1,1)

JIEGUO=JIEGUO+A.课程名+STR(楼号)+””+教室名

ENDIF

SKIP

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

ENDDO

7JIEGU0

运行上面的程序，输入“操作系统”，显示的结果是：

5.现有数据库文件WATER.DBC,包含2个表，分别是WATERMETER.DBF和USEB.DBF。其

中WATERMETER表的结构为:水表编号(C,8)、本月读数(N,10,2)、上月读数(N,10,2)、

运用数(N,10,2)；USEB表的结构为：户主姓名(C,10)、房间编号(C,6)、水表编号(C,8).

其表中数据如下：

WATERMETER.DBF

记录号水表编号本月读数上月读数运用数

13-1001-A235.67201.34

23-1002-B678.34450.00

32-0101-A289.23200.43

USEB.DBF

记录号户主姓名房间编号水表编号

1张斌3-10013-1001-A

2王阳新3-10023-1002-B

3马国庆2-01012-0101-A

新建一个表单，表单的Name属性为Forml,程序运行时的界面如下图所示：

表单中，有一个标签，其Name属性为Labell,Caption属性为“户主姓名：”；有

两个文本框，其Name属性分别为Textl和Text2；一个吩咐按钮，其Name属性为

Command1,Caption属性为"计算"；有一个选项按钮组,其Name属性为Optiongroupl,

其中包含两个单选按钮，一个的Name属性为Optionl、Caption属性为“1-9楼”，另

—个的Name属性为0ption2、Caption属性为“10楼以上”。

Command1的Click事务代码如下：(代码中行末的分号为逻辑行连接符)

OPENDATABASEWATER

UPDATEWATERMETERSET运用数=本月读数-上月读数

SELECT（MAX（运用数）+MIN（运用数））/2ASABFROMWATERMETERINTOTABLEMAB

USEMAB

GOTOP

XAB=AB

XM=TRIM（TIIISFORM.TEXT1.TEXT）

SELECT水表编号，运用数FROMWATERMETERWHERE水表编号IN（SELECT；

水表编号FROMUSEBWHERE户主姓g=XM）

IFTHISFORM.OPTIONGROUP1.OPTION1.VALUE=1

IF运用数》XAB

JIEGUO=XAB*3.5+（运用数-XAB）*10

ELSE

JIEGUO=运用数*3.5

ENDIF

ELSE

IF运用数》XAB

JIEGU0=XAB*3.5+（运用数-XAB）*10+50

ELSE

JIEGUO=运用数*3.5+50

ENDIF

ENDIF

THISFORM.TEXT2.VALUE=XM+Z，z/+”应收金额="+$丁口（_1正6（］0）

运行上面的表单，在Textl中输入“王阳新”，选择单选按钮”10楼以上”，单击

“计算”选钮，则在Text2中显示的是：

七、VisualBasic程序改错（本大题共2小题，每题5分，共10分，每个程序有两个错

误行，请在答题纸上写出错误行代码和对应的正确代码，改对一处得一处分，改错不减

分。注：要把整行写完整）

1.下面的程序是利用随机函数产生10个1到30之间的随机整数，然后把产生的这

计算机专业理论试题第11页共13页

些整数放入数组b中，并按肯定规则放入数组a中。存放数组a中的规则是：

（1）假如产生的是1至U9之间（含1和9）的数，则干脆放入数组a中。

（2）假如产生的是大于9的数，则按如下方法存放：偶数则把十位数字放入数组a

中，奇数则把个位数字放入数组a中。

如：假设产生的整数是：22,17,18,9,10,24,1,23,25,22。

放入数组a中的数字是：2,7,1,9,1,2,1,3,5,2。

程序中有两处错误，请将错误行和相应的正确行写在答题纸横线上。

OptionBase1

PrivateSubCommandl_Click（）

Dima（10）AsInteger

Dimb（10）AsInteger

DimiAsInteger

DimnumAsInteger

Fori=1To10

num=Int(Rnd*30)

b(i)=num

Ifnum>=1Andnum<10Then

b(i)=num

Else

IfnumMod2=0Then

a(i)=num\10

Else

a(i)=numMod10

EndIf

EndIf

Nexti

Fori=1To10

Printb(i);

Nexti

Print

Fori=1To10

Printa(i);”

Nexti

EndSub

2.以下程序的功能是：产生一个3行4列的数组并赋值，再用Inputbox函数输入

一个列号，然后对数组中的该列进行由小到大排列。如产生的数组是：

2217192217189

1024223输入一个列号3,则排序后为1024123

252218132522213

程序中有两处错误，请将错误行和相应的正确行写在答题纸横线上。

OptionBase1

PrivateSubCommand1Click()

Dima(3,4)AsInteger

DimiAsInteger,jAsInteger

DimcolAsInteger

DimtAsInteger

Fori=1To3

Forj=1To4

a(i,j)=20+Int(Rnd*30)

Printa(i,j);

Nextj

Print

Nexti

col=InputBox(，zcol=/，)

Fori=1To3

Forj=2To4

Ifa(i,col)>a(j,col)Then

t=a(i,col)

a(i,col)=a(j,col)

a(j,col)=t

EndIf

Nextj

Nexti

Print

Fori=1To3

Forj=1To4

Printa(i,j);

Nextj

Print

Nexti

EndSub

八、程序填空(本大题共7个空，每空5分，共35分，按程序要求在答题纸上填入相

应的内容，使程序完整正确)

1.(VisualBasic题)下面的程序是输入偶数个字符的字符串给变量c,然后从字

符串两端分别截取字符赋给cl和c2,每次截取一个。假如是数字字符，则按“前端截

取放前、后端截取放后”的方法存入数组a中；假如是其它字符，则不存放。然后依次

分别截取下一个字符，并用同样的方法处理，直到全部字符处理完为止。如输入的字符

为12AB34c56D78,存入数组a中的依次为1,8,2,7,6,3,5,4。最终显示出来。请在空白

位置填写正确的代码。

OptionBase1

PrivateSubCommandl_Click()

DimcAsString

DimclAsString

Dimc2AsString

Dima(20)AsInteger

DimiAsInteger

DimjAsInteger

DimkAsInteger

c=InputBox(，zc=，z)

j=Len(c):i=1

k=1

DoWhilei<j

cl=Mid(c,i,1):c2=Mid(c,j,1)

Ifcl>=〃0〃Andcl<=〃9〃Thena(k)=Vai(cl):k=k+1

Ifc2>=〃0〃Andc2<=Thena(k)=Vai(c2):k=k+1

i=i+1:(1)_______________________

Loop

Printc

Fori=1To(2)______________________________

Printa(i);

Nexti

EndSub

2.（VisualBasic试题）窗体（运行后如图所示）中有一个标签（名称为Label1）,用

于显示其下方滚动条的Value值，滚动条（名称为HS1）最小值和最大值分别是1和5。

滚动条下方是组合框（名称为Combol）,显示内容如图及程序。滚动条右侧是列表框

（名称为Listl）,显示内容如图及程序。列表框下方是文本框（名称为Textl）,用

于显示列表框中的某项内容，有肯定时器控件，初始设置Timerl.Enabled为True,

timerl.Interval=1000,定时器的Timerl_Tim6r事务功能是：（1）把组合框选定的

值赋给滚动条的Value属性；（2）标签显示当前滚动条的值；（3）文本框显示与组合

框中位置一样的列表框中的内容。窗体的Load事务是给组合框中添加1到5,给列表

框中添加A到E,组合框显示第一项内容1。请在空白位置填写正确的代码。

PrivateSubForm_Load()

Combol.AddItem

Combol.AddItern〃2〃

Combol.AddItem"3”

Combol.Additem〃4〃

Combol.Addltem〃5”

Listl.Additem

Listl.Addltem〃B〃

Listl.Additem〃C〃

Listl.Addltem〃D”

Listl.Addltem〃E〃

Combol.Text=Combol.(3)

EndSub

Private