2024河北省对口高考计算机理论考试试题及答案

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

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

留意事项：

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

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

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

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

第I卷（选择题共100分）

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

题目要求，将正确选项填涂在机读卡上）

1.下列关于计算机的描述中，正确的是.............................（）

A.计算机能够进行自动处理的基础是能进行逻辑推断

B.计算机具有高效的运算实力的基础是高效的编程语言

C.计算机具有很高的计算精度的根本缘由是采纳位数较多的字长

D.计算机的逻辑推断实力取决于操作系统

2.可以将图片、照片以及文稿资料等书面材料输入到计算机中，并形成文件保存起来

的输入设备是....................................................（）

A.扫描仪B.打印机

C.绘图仪D.光盘、U盘

3.计算机系统分为硬件系统和软件系统，下列叙述不正确的是.......（）

A.硬件系统主要是接受计算机程序，并在程序限制下完成数据输入和数据输出任务

B.软件系统建立在硬件系统的基础上，它使硬件功能得以充分发挥

C.没有安装软件系统的计算机不能做任何工作，没有实际的运用价值

D.计算机只需安装系统软件，即可进行全部类型的文字处理或数据处理工作

4.算式37+6=45正确，则该算式采纳的进制是.......................（）

A.十进制B.八进制

C.二进制D.十六进制

5.下列关于预防计算机病毒的选项中，错误的是.....................（）

A.常常更新病毒库

B.常常备份重要资料

C.在“我的电脑”中运用鼠标右键打开U盘，以避开运用自启动功能

D.在收到的邮件中，只要附件不是可执行文件就可放心打开

6.存储器中存放的内容可以是数据也可以是指令，这主要是依据..........（

A.最高位是0还是1来判别B.存储单元的地址来判别

C.CPU执行程序的过程来判别D.ASCII码表来判别

7.内存空间按字节编址，则地址区间从5001H至6000H可以存放的字节数为)

A.1KBB.4KBC.1MBD.4MB

8.一台计算机的字长是8个字节，这表示...............................（）

A.能处理的最大数据为8位十进制数

B.在CPU中运算的结果最大为2的64次方

C.在CPU中能同时处理64位二进制数

D.能处理最多由8个英文字母组成的字符串

9.在WindowsXP中，同一磁盘下关于文件的操作，以下说法正确的是...（）

A.按住Ctrl键的同时，用鼠标左键拖动文件实现的是创建快捷方式

B.按住Alt键的同时，用鼠标左键拖动文件实现的是复制文件

C.按住Shift键的同时，用鼠标左键拖动文件实现的是复制文件

D.将文件放到回收站中，该文件的快捷方式不行运用

10.在WindowsXP中，默认状况下不能找到“限制面板”的是..........（）

A.“我的电脑”窗口

B.在桌面空白区域，点击鼠标右键，打开“属性”选项

C.“起先”菜单中的“设置”

D.“资源管理器”窗口

11.在WindowsXP中，下列关于快捷方式的说法中正确的是.............（）

A.快捷方式是指向一个程序或文档的指针

B.单击快捷方式，可运行指向的对象

C.快捷方式只是“起先”菜单中的选项

D.应用程序的内容被完全包含在其快捷方式中

12.在Word2024中，将重复多次的“对口升学”一词快速的变成红色，以下叙述中正确的

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

A.按住Ctrl键，将全部的“对口升学”选定，然后更改字体为红色

B.先选定突出显示的颜色为红色，然后通过查找与替换进行

C.先选定字体颜色为红色，然后通过查找与替换进行

D.先打开查找与替换，然后设置格式中的突出显示为红色

13.在Word2024中，建立50行20列的规范表格最好采纳的方式为.....（）

A.用“表格”菜单中的“绘制表格”B.用“表格”菜单中的“插入表格”

C.用“表格”菜单中的“表格自动套用格式”D.用“格式”菜单中的“制表位”

14.在Word2024中，关于插入到Word文档中的图形文件，以下描述正确的是（）

A.只能是在“照片编辑器”中形成的B.只能是在“Word”中形成的

C.只能是在"画图"中形成的D.可以是Windows支持的多种格式

15.在Excel2024中，在单元格A1内输入“第一季”，要想实现A2、A3、A4单元格依次为“其次季”、“第三

季”、“第四季”，以下操作正确的是..............（）

A.选中Al、A2、A3、A4单元格，点击编辑菜单，点击填充，选中序列的自动填充

B.选中Al、A2、A3、A4单元格，点击编辑菜单，点击填充，选中序列的日期填充

计算机专业理论试题A卷第2页共13页

C.选中Al、A2、A3、A4单元格，点击编辑菜单，点击填充，选中序列的等差序列

D.选中Al、A2、A3、A4单元格，点击编辑菜单，点击填充，选中向下填充

16.在Excel2024中，在进行分类汇总之前，必需进行的操作是..............（）

A.按分类列对数据清单进行排序,并且数据清单的第一行里必需有列标题

B.按分类列对数据清单进行排序,并且数据清单的第一行里不能有列标题

C.对数据清单进行筛选,并且数据清单的第一行里必需有列标题

D.对数据清单进行筛选,并且数据清单的第一行里不能有列标题

17.在Excel2024中，要查看“某公司的研发部门中，年龄在30-35岁之间（含边界），工

资在8000元以上（不含边界）的人员状况”，若运用高级筛选，其条件区域表示正确

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

A.

部门年龄年龄工资

研发部>=30>8000

研发部<二35>8000

B.

部门年龄工资

研发部>=30>8000

研发部<二35>8000

C.

部门年龄年龄工资

研发部>=30<二35>8000

D.

部门年龄工资

研发部>=30>8000

<二35

18.在VisualBasic中，PrintInt（35*Rnd）+n产生的随机数的范围是10至44（含10及44）,则n

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

A.10B.20C.30D.35

19.在VisualBasic中，下列可作为VisualBasic变量名的是...........（）

A.FilenameB.VaiC.X%DD.Print

20.在VisualBasic中，下列语句用来设置窗体中文本框（名称Textl）的属性，其中在运行时不能正确

操作的语句是..............................（）

A.Textl.Text="TextTest”

B.Textl.Name=z，TextTest”

计算机专业理论试题A卷第3页共13页

C.Textl.Enabled=False

D.Textl.Visible=False

21.在VisualBasic中，下列运算符优先级最高的是....................()

A.+B.*C.>D.And

22.执行下面VisualBasic程序后，结果是哪个选项......................()

Fori=1To6

IfiMod2=0Then

Print;

Else

Print〃*〃；

EndIf

Nexti

A.######B.******

C.*#*#*#D.#*#*#*

23.下面的VisualBasic程序是对数组a中的元素按升序排列，程序中空白位置应当填下列选项中的哪

一个.........................................()

OptionBase1

DimiAsInteger

DimjAsInteger

a二Array⑵4,7,9,3,6,20,11)

Fori=1To7

Forj=i+1To8

Ifa(i)>a(j)Then

a(i)=a(i)+a(j)

a(j)=a(i)-a(j)

EndIf

Nextj

Nexti

Fori=1To8

Printa(i);

Nexti

A.a(i)=a(j)B.a(i)=a(i)一a(j)

C.a(j)=a(i)-a(j)D.ExitFor

24.执行下面VisualBasic程序后，s=s+1语句被执行了多少次.........()

DimsAsInteger

s=0

计算机专业理论试题A卷第4页共13页

Fori=1To10

Forj=0Toi-1

s=s+1

Nextj

Nexti

A.0B.10C.55D.66

25.执行下面VisualBasic程序，数组a中的数字50所在位置的下标是....()

OptionBase1

PrivateSubCommandl_Click()

DimiAsInteger

DimkAsInteger

DimtAsInteger

DimwAsInteger

DimmAsInteger

a=Array(3,56,8,10,89,94,78,82,20,50,100)

m=UBound(a)

k=m/2

Fori=1Tok

w二a(i):a(i)=a(m-i+1):a(m-i+1)=w

Nexti

EndSub

A.1B.2C.3D.5

26.在VisualBasic中，关于控件及窗体说法不正确的是................()

A.任何一个控件都出名称

B.任何一个控件都有属性

C.任何一个控件都有单击事务

D.控件是对象，窗体也是对象

27.执行下面VisualBasic程序，输入a的值为10,最终输出s的值是....()

DimaAsInteger

DimsAsInteger

a=InputBox(，za=zz)

SelectCaseaMod2

Case1's—1

Case2:s=10

Case3s—11

CaseElse:s二100

EndSelect

计算机专业理论试题A卷第5页共13页

Prints

A.1B.2C.3D.100

28.在VisualFoxPro中，查询结果保存到文本文件中，假如文件已经存在，则将结果追加到该文件的末

尾的选项是.................................（）

A.ADDB.ADDITIVE

C.APPENDD.INSERT

29.在VisualFoxPro中，报表的数据源不包括.........................（）

A.数据库表B.自由表

C.视图D.表单

30.在VisualFoxPro中，运用SQL中的SELECT吩咐进行条件查询时，WHERE条件中可以运用LIKE进行

格式匹配，LIKE格式中的字符串可以运用通配符，下面的字符中用来代表多个字符的

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

A.&B.%C._D.+

31.在VisualFoxPro中，将两个数据库文件按某个条件筛选部分（或全部）记录及部分（或全部）字段,

组合成一个新的数据库文件的关系操作为........（）

A.投影B.连接C.筛选D.更新

32.在VisualFoxPro中，执行以下吩咐后显示的结果是................（）

?"TE"$"TEST"ANDINT（3.6）=3AND“TEST=="TEST"

A..T.B..F.C.0D.1

33.在VisualFoxPro中，不允许出现重复字段值的索引是.............（）

A.侯选索引和主索引B.一般索引和主索引

C.侯选索引和唯一索引D.一般索引和侯选索引

34.在VisualFoxPro中，下面关于类、对象、属性和方法的叙述中，错误的是...

............................................................（）

A.类是具有相同特征的对象的集合，这些对象具有相同的属性和方法

B.属性用于描述对象的特征，方法用于表示对象的行为

C.基于同一个类产生的两个对象可以分别设置自己的属性值

D.通过执行不同对象的同名方法，其结果必定是相同的

35.在VisualFoxPro中，以下表达式正确的是........................（）

A.{*2024-05-0110:10:10AM}-10

B.{"2008-05-01}+DATE0

C.AT（"ABC","智能ABC"）$"微软拼音"

D."123"+SPACE（3）+VAL（"456”）

36.设置局域网中计算机的网络属性时，“默认网关”应当设置为以下哪个选项的内网地

址..............................................................（）

A.DNS月艮务器B.Web月艮务器

C.路由器D.交换机

37.假如交换机在工作过程中，发觉从某端口收到的数据帧中所包含的目标MAC地址不在其MAC地址列表

计算机专业理论试题A卷第6页共13页

中，则............................................()

A.丢弃该数据包

B.经原端口退回该数据包

C.向全部端口转发该数据包

D.短暂中止该端口工作，3秒钟后该端口重新启用

38.在下列关于OSI网络参考模型和TCP/IP网络模型的说法中正确的是....()

A.这是两个完全独立的网络模型，彼此没有联系

B.这两个模型有肯定的层次对应关系

C.TCP/IP模型完全包含了OSI模型

D.目前各种网络硬件主要运用的是OSI参考模型，而TCP/IP只是一种理论模型，并没有实际应用。

39.某单位的三个部门在同一建筑物内，并且已经运用TCP/IP协议组建了各自的局域网，现在要将这三

个部门网络通过主干网互连起来，则下列哪种网络技术是优先考虑运用

的..........................................................()

A.帧中继B.数字专线

C.FDDID.千兆以太网

40.当前计算机上供应的网络接口普遍为..............................()

A.BNCB.DIXC.RJ45D.ST

41.影响局域网络特性的主要技术要素有三点，下列哪一项不属于局域网特性的主要技术要

素............................................................()

A.网络拓扑结构

B.网络的介质访问限制方法

C.网络的传输介质

D.网络的布线方法

42.网络供应的全部服务几乎都具有透亮性。所谓“透亮性”是指............()

A.用户不能察觉到“透亮”网络服务的存在

B.用户无法访问服务器上的“透亮”服务

C.用户必需在驾驭“透亮”服务如何实现的技术细微环节后，才能运用该项服务

D.用户可以干脆运用某项“透亮”的网络服务，而不必知道该服务实现的技术细微环节

43.计算机的IP地址由网络地址和网络内主机地址两部分组成。在同一个局域网内，不同的计算

机......................................................()

A.具有相同的网络地址和不同的网络内主机地址

B.具有不同的网络地址和相同的网络内主机地址

C.具有相同的网络地址和相同的网络内主机地址

D.具有不同的网络地址和不同的网络内主机地址

44.在0SI网络参考模型的传输层，最重要的协议是..................()

A.TCP和UDPB.TCP和IP

C.HTTP和FTPD.TELNET和DNS

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

45.国内一所高校要在CERNET中建立WWW网站，其域名的后缀应当是……（）

A..netB..edu

C.D..gov

46.按物理拓扑结构对计算机网络进行分类，下列哪项是错的............（）

A.环型网B.总线网

C.星型网D.广播网

47.在介质访问限制方法中，CSMA/CD的特点主要有.....................（）

A.监听总线和碰撞检测

B.标记帧传递和数据发送

C.令牌传送和空闲运用

D.监听总线状态和随机发送

48.在下列关于网络学问的叙述中正确的是.............................（）

A.是一个合法、有效的IP地址

B.OutlookExpress是一个电子邮件收发软件

C.显示网页中的图片、动画等多媒体信息，不会影响网页的阅读速度

D.在Internet上特地供用户进行数据存储的网站，被称为搜寻引擎

49.在计算机网络通信系统中，为了改善线路运用效率、提高传输带宽而广泛运用了多路复用技术。下列

不属于多路复用技术的是.......................（）

A.FDMB.TDMC.CRCD.STDM

50.某网络用户运用Outlook管理自己的电子邮件，则在其发送电子邮件时运用的协议

为................................................................（）

A.POP3B.FTPC.DHCPD.SMTP

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

第n卷（非选择题共14。分）

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

错误的填涂“X”格）

1.计算机的指令系统与硬件系统无关。（）

2.在计算机系统中，任何外部设备都必需通过CPU才能和主机相连。（）

3.在WindowsXP中，利用搜寻框可以搜寻文件夹。（）

4.在WindowsXP中，桌面可分为“起先”菜单按钮、快速启动工具栏、窗口按钮栏和通知区域等

几部分。（）

5.在Word2024中，插入图片后，若希望其成为水印，则应将该图片置于文字下层。

（）

6.在Word2024中，运用“分栏”按钮只能将文档分为两栏。若分多栏，须要运用“分栏”对话框进

行设置。（）

7.在Excel2024中，数据清单的排序可以按笔画进行排序。（）

8.在Excel2024中，删除图表中的某个数据系列时，须要双击图表中该数据系列，之后按Delete

键。（）

9.在VisualBasic中，对依次文件既有读的操作语句，也有写的操作语句。

（）

10.在VisualFoxPro中，设置菜单项访问键的方法是在指定菜单标题时在访问键

前加字符。（）

11.在组建局域网时，中心设备运用集线器或交换机，对网络性能没有影响。

（）

12.URL由传输协议、域名、文件路径和文件名四部分组成。（）

13.在网关位置安装网络防火墙并进行合理设置后，可以杜绝网络病毒的传播和网络攻击行为的发生。

（）

14.一台计算机只安装了一块网卡，在安装TCP/IP协议并正确连接网线后，可以为该计算机设置多于

一个的IP地址。（）

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

答题纸上）

1.能把汇编语言源程序翻译成目标程序的程序是程序。

2.微型计算机的内存容量主要是指的容量。

3.1000个32*32点阵的汉字字模，须要占用的存储空间为（KB）。

4.在WindowsXP中，桌面上的图标不能删除。

5.在Word2024中，一部分字符格式设置好后，假如其他字符也须要运用相同的字符格式，则可以运

用将字符格式应用到其他字符上。

6.在Excel2024中，在单元格B2中输入数据“80”，在C2中输入字符“good”（均不含引号），在单

元格D2中输入=IF（AND（B2>80,C2="good"）,B2+10,B2-10）,则D2单元格中的结果

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

为O

7.在VisualBasic中，运用DimA(2To5,2To4)语句定义数组后，数组A所包含的元素个数

为。

8.VisualBasic的算术表达式4/3Mod3*2+2的结果是。

9.在VisualFoxPro中，在当前记录之前插入一条空白记录的吩咐是

10.在VisualFoxPro中，？HF(VAL("C0M123")〉0,AT("COMPUTER","PUT"),

REPLICATE("COM",2))的输出结果为：。

11.网络互连可以在不同的网络层次上实现；假如互连设备为集线器，则参加互连的网络是在

层上实现了互连。

12.在0SI网络参考模型中，下层向上层供应的服务类型主要有两种，即

和O

13.在同一局域网络中，为了保证网络连通性，不同计算机的相同层次必需运用相

同的o

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

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

写在答题纸上)。

现有数据库“customer.DBC”，其中包含表“order」ist.dbf"，该表有以下字段：客户号(C,6)、

订单号(C,6)、订购日期(D)、数量(I)、单价(N,10,2),总金额(N,15,2)。在相应数据库和表已打开

的前提下，写出完成下述功能的吩咐(留意：只能写一条语句，多于一条不得分)。

1.复原“ordejlist”表中被逻辑删除的记录中“数量”大于等于1000的记录。(用VisualFoxPro

吩咐)

2.运用“ordejlist”表，建立以“订单号”为关键字，名称为“订单”的降序的唯一索引，

复合索引文件名为DD.CDX。(用VisualFoxPro吩咐)

3.建立“zgxxb”表，字段为：职工号(C,6),姓名(C,8),性别(C,2),设置“职工号”字段为

主索引，并对“性别”字段建立有效性规则为：“性别”字段只能填“男”或“女”，假如填入其他数

据则提示信息“性别输入错误”。(用SQL语句)

4.计算“ordejlist”表中“总金额”字段的值，总金额=数量*单价。(用SQL语句)

5.查询“ordejlist”表中“客户号”为100001、“总金额”小于等于10000的记录，按“总金

额”降序输出,结果保存到“JG.dbf”表中。(用SQL语句)

五、程序分析(本大题共2小题，每小题5分，共10分，读程序并分析结果，请填写在答题纸上)

1.阅读下面的VisualBasic程序，程序运行后s的值是

OptionBase0

PrivateSubCommandl_Click()

Dima(4)AsInteger

DimiAsInteger

DimjAsInteger

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

DimwAsInteger

DimsAsInteger

j=0:s=0

Fori=1To100

w=Int(6*Rnd)

Ifw=2Then

a(j)=w

s=s+a(j)

j二j+1

Else

i=i-1

EndIf

Ifj=5ThenExitFor

Nexti

Prints

EndSub

2.有VisualForPro程序chengxu.prg如下

CLEAR

INPUT〃请输入X=〃TOX

INPUT〃请输入Y=〃TOY

DIMENSIONKK(2,2)

1=1

DOWHILEI<=2

J=1

DOWHILEJ<=2

IFI%2=0

KK(I,J)=I*J*7

ELSE

KK(I,J)=I*J*3

ENDIF

J=J+1

ENDDO

1=1+1

ENDDO

S=0

FORM=1TO2

FORN=1TO2

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

IFZHI(KK(M,N))=l

IFKK(M,N)%4=0

S=S+KK(M,N)*X

ELSE

S=S+KK(M,N)*Y

ENDIF

ENDIF

ENDFOR

ENDFOR

?S

FUNCTIONZHI

PARAMETERSTT

SUM1=O

FOR1=1TOTT-1

IFTT%>0

SUMI=SUM1+I

ENDIF

ENDFOR

IFSUM1=TT

RETURN1

ELSE

RETURN0

ENDIF

该程序的功能是计算S二的值(写出包含X和Y的表达式)

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

1.分析下面VisualBasic程序段。窗体中有一吩咐按钮(名称为Commandl)。

PrivateSubCommandl_Click()

Dima(3)AsInteger

DimiAsInteger,wAsInteger

w=0

Fori=0To3

a(i)=i

Nexti

Fori=0To3

w=w+fu(a(i))

Nexti

计算机专业理论试题A卷第12页共13页

Printw

EndSub

PrivateFunctionfu(kAsInteger)

k=k+1

fu=k

EndFunction

窗体启动后单击吩咐按钮，输出w的值为o

2.分析下面VisualBasic程序段。窗体中有一吩咐按钮(名称为Command1)

OptionBase1

PrivateSubCommandl_Click()

a=Array(23,24,17,8,11,15,16,13)

DimiAsInteger

DimnumAsInteger

DimkAsInteger

DimjAsInteger

DimflagAsInteger

num=0

Fori=1To8

flag=0

k=Int(Sqr(a(i)))

Forj=2Tok

Ifa(i)Modj=0Thenflag=1

Nextj

Ifflag=0Thennum=num+a(i)

Nexti

Printnum

EndSub

窗体启动后单击吩咐按钮，输出语句Printnum执行结果是

3.有VisualForPro程序如下:

CLEAR

1二2

DOWHILE.T.

COUNT=O

M二I

FORK=0TO2

J=M/2*3+l

M二J

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

IFJ%2=0

COUNT=COUNT+1

ELSE

EXIT

ENDIF

ENDFOR

IFC0UNT=2

?J

EXIT

ENDIF

1=1+2

ENDDO

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

第4、5题运用下面的数据库

设有数据库文件“XK.DBC”，包含2个表，分别是“T_XX.dbf"、“X_XX.dbf”其中“T_XX”表的

结构为：编号(C,8)、系号(C,2)、姓名(C,8),主讲课程(C,20),排名⑴;"X表的结构为：系

号(C,2)、系名(C,20),各表中数据如下：

T_X)(.DBF

记录号编号系号姓名主讲课程排名

11102000101肖海数据结构3

21102000202王岩盐数据结构1

31102000301肖海C语言3

41102000403张月新操作系统2

51102000501李明玉数据结构7

61102000602孙民山操作系统11

71102000703钱无名数据库5

81102000802呼延军编译原理6

91102000903钱无名操作系统5

101102024001张国梁C语言4

111102024103林新月操作系统8

121102024201乔小廷C语言9

131102024302孙民山数据库11

141102024401欧阳秀编译原理10

X_XX.DBF

记录号系号系名

101计算机

计算机专业理论试题A卷第14页共13页

202信息管理

303中文

4.有如下VisualFoxPro程序：(代码中行末的分号为逻辑行连接符)

CLEAR

DIMEGA(1,4)

SELECT系号，姓名FROMT_XXWHERE排名IN(SELECTMAX(排名)FROMT_XX);

INTODBFPT_1

USEPT_1

SELECTCOUNT(DISTINCT姓名)ASPXM,姓名FROMPT_1INTODBFPT_2

USEPT_2

MGS=PT2.PXM

MXM=PT_2.姓名

IFMGS=1

SELECTT_XX.系号,T_XX.姓名，X_XX.系名，COUNT(DISTINCTT_XX.主讲课程);

ASJGSFROMT_XX,X_XXWHERET_XX.系号=X_XX.系号ANDT_XX.姓名=MXM;

INTOARRAYGA

?GA(1,3),GA(1,2),GA(1,4)

ELSE

IFMGS=O

?〃无记录〃

ELSE

?〃数据错误〃

ENDIF

ENDIF

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

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

设置控件属性如下:

计算机专业理论试题A卷第15页共13页

有三个标签，其Name属性分别为LabelKLabe12和Label3,Caption属性分别为“系名：”、“结果：”、

(空)；有一个文本框，其Name属性为Text1；一个吩咐按钮，其Name属性为Command1,Caption属性为

“查询”。

有如下的事务代码：

Forml的Activate事务：

THISFORM.TEXT1.VALUE="计算机”

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

STR=TRIM(THISFORM.TEXT1.VALUE)

OPENDATABASEXK

SELECT系号ASXH,COUNT(DISTINCT姓名)ASG_XMFROMT_XXGROUPBY;

系号INTODBFTS_1

SELECTCOUNT(DISTINCT姓名)ASS_XMFROMT_XXINTODBFTS_2

USETS_2

GOTOP

S_XM=TS_2.S_XM

SELECTXH,G_XMFROMTS_1WHEREXH=(SELECT系号FROMX_XXWHERE;

系名=STR)INTODBFTS_3

USETS_3

GOTOP

DOWHILENOTEOF()

THISFORM.LABEL3.CAPTION=STR(TS_3.G_XM,3)+”/"+STR(S_XM,3)

SKIP

ENDDO

CLOSEALL

运行上面的表单，在Label3中显示的是：。

七、VisualBasic程序改错(本大题共2小题，每题5分，共10分，每个程序有两个错误行，请在答题纸

上写出错误行代码和对应的正确代码，改对一处得一处分，改错不减分。注：要把整行写完整)

1.有数组：

s=Array("a42","b3c56","de7fg","hi","jk35kmn")

统计数组s的各个元素中含有数字字符个数，把结果放到数组b相应元素中，如上述数组s,当程序运

行后b中各元素的值分别为：2,3,1,0,2c程序中有两处错误，请按要求改正。程序如下：(两个数组的下

标都是从1起先，程序中定义的每个变量都用到，程序中只能用变量total统计数组中每个元素含数字字

符个数)

s=Array("a42","b3c56","de7fg","hi","jk35kmn")

Dimb(5)AsInteger

DimtotalAsInteger

DimiAsInteger

DimjAsInteger

计算机专业理论试题A卷第16页共13页

Fori=1To5

b(i)=0

Forj=1ToLen(s(i))

IfMid(s(i),j,1)>=〃0"AndMid(s(i),j,1)<=〃9〃Thentotal=total+b(i)

Nextj

b(i)=total

Nexti

Fori=1To5

Printb(i);

Nexti

2.如图所示，窗体有两个框架,左边框架中有三个单选按钮(名称分别为0ptionl,0ption2和0ption3),

单选按钮分别设置了标题为小学、初中、中学；右边的框架中是一个列表框(名称为Listl)；两个框架

中间是吩咐按钮(标题为存放结果，名称为Commandl),吩咐按钮功能：单击吩咐按钮，清除列表框中的

内容，然后将选中单选按钮的标题放入列表框中。

程序中有两处错误，分布在两行，请将完整的错误行和相应的正确行写在答题纸横线上。(不能变更

程序行数，不能增加函数)

PrivateSubCommandlClick()

DimsAsString

Listl.Clear

s二〃〃

SelectCase1

CaseOptionl.Value

s=s+Optionl.Caption

Case0ption2.Value

s=s+0ption2.Caption

Case0ption3.Value

计算机专业理论试题A卷第17页共13页

s=s+Option3.Caption

EndSelect

Listl.Text=s

EndSub

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

完整正确).