2024年计算机等级考试二级VB实务及解析题库

全国计算机等级考试二级VB上机题库（一）

图1图2

Tl.width=Tl.width+1400

Tl.Height=T1.Height+400

T1.fontsize=T1.fontsize*3

最终单击保留按钮，工程命名为sjt1.vbp,窗体命名为sjt1.frmo

Text1.text=LCase(Tex11.text)

Text2.text=UCase(Text1.text)

简朴应用题(2小题，每题20分，合计40分)

1.在考生目录下有一种工程文献sjt3.vbp,对应时窗体文献为sjt3.frm。包

括所有控件和部分程序，如图所示。

规定：

1）运用属性窗口向列表框添加四个项目：Visua1Basic,TurboC,C++,Ja

va;

2）请编写合适的程序完毕如下功能：当选择列表框中的一项和单项选择按钮Op

tionl,然后单击“确定”命令按钮，则文本框中显示“XXX笔试”；当选择列

表框中的一项和单项选择按钮Option2,然后单击“确定”命令按钮，则文本

框中的一项和单项选择按钮Option2,然后单击“确定”命令按钮，则文本框

中显示“XXX上机二其中“XXX”是在列表框口所选择日勺项目。

IfOption1.VaIue=Truethen

Text1.Text=Lis11.List(List1.ListIndex)+Option1.Caption

EndIf

If0ption2.VaIue=Truethen

Text1.Text=List1.List(List1.ListIndex)+Opti□n

2.Caption

EndIf

最终单击保留按钮。

2.在考生目录下有一种工程文献sjt4.vbp，对应的窗体文献为sjt4.frmo在窗

体上已经有一种命令按钮。其名称为Commandl,标题为“计算并输出“；程序运

行后，假如单击命令按钮，程序将计算500以内两个数之间（包括开头和结尾的

数）所有持续数日勺和为1250的正整数，并在窗体上显示出来，这样的数有多组，

程序输出每组开头和结尾的正整数，并用连接起来，如图所示，这个程序不

完整，请把它补充完整。

规定：

去掉程序中的、注释符，杷程序中日勺？该为对日勺的内容，使其实现上述功能，但不得

修改程序中日勺其他部分。最终把修改的文献按原文献存盘。

PrivateSubCommand1_Click()

DimiAsInteger,jAsInteger,iSumAsInteger

Print”持续和为1250日勺正整数是：”

Fori=1To500

isum=0赋初值

Forj=iTo500

iSum=j+iSum进行累加

IfiSum>=1250ThenExitFor

Next

'IfiSum=1250Then和与否

为1250

Printi："〜"；j

EndIf

Next

EndSub

答案为：

1)2)j+iSum3)1250

二、综合应用题(1小题，计40分)

在窗体上画一种文本框，名称为Textl,初始内容为空白，并设置多行显示格式；

然后再画两个命令按钮，其名称分别为Commandl和Command2,标题分别为“显

示”和“保留”，如图所示，编写合适日勺事件过程,程序运行后，假如单击“显示”

命令按钮，则读取考生目录下日勺in5.txt文献，并在文本框中显示出来，该文

献是一种用随机存取方式建立日勺文献，共有5个记录，规定按记录号次序显示所

有记录，每个记录一行；假如单击“保留”命令按钮，则把所有记录保留到考生目

录下日勺次序文献out5.txt中。随机文献in5.txt中日勺每个记录包括3个字段，

分别为姓名、性别和年龄，其名称和长度分别为：

Name字符串8

Sex字符串4

AgeInteger

其类型定义为：

PrivateTypeStudlnfo

NameAsString*8

SexAsString*4

AgeAsInteger

EndType

规定：

1）文献out5.txt以次序存取方式建立和保留。

2）存盘时必须放在考

生目录下，工程为

sjt5.vbp,窗体

文献名为sjt5.

frmo

PrivateTypeStudinfo

Nameasstring*8

Sexasstring火4

Ageasinteger

EndType

Dimpersasstudinfo

Dimrecmumasinteger

显不按钮脚本：

Privatesubcommand1_click()

Openapp.path+“\in5.txt“forrandomas#1Len=1en(pers)

recnum=1of11)/1en(pers)

Cls

Fori=1torecnum

Get#1,,pers

Textl.text=text1.text+pers.name+pers.sex+str(pers.age)

+vbcrlf

Nexti

Close1

Endsub

保留按钮脚本：

Privatesubcommand2_click()

Openapp.path+”\out5.txt“foroutputas#1

Print#1,text1.text

Close#1

Endsub

(1)在考生文献夹下有一-种工程文献sjt3.vbp,对应的窗体文献为sjt3.frm。

在名称为Form1时窗体上有一种名称为Text1欧)文本框和名称为Command1、

标题为“确定〃的命令选钮，一种名称为List1H勺列表框和两个名称分别为

Option!WOption2,标题分别为〃添加〃和〃删除”日勺单项选择按钮，如图1所示°

程序运行后，假如选择单项选择按钮Opti。n1并在文本框中输入一种字符串，

然后单击“确定”命令按钮,则把文本框中的字符串添加到列表框中，并清除文

本框，如图2所示;假如选择列表框中的一项和单项选择按钮Option2,并单击〃

确定”命令按钮，则删除列表框中所选择口勺项目，如图3所示；假如不选择列表

框中的项目，或者没有在文本框中输入字符串，则单击〃确定〃命令按钮后，将显示

一种信息框〃未输入或未选择项目〃，如图4所示。该程序不完整,请把它补充完整。

规定：

去掉程序中日勺注释符，壬程序中的?改为对日勺的I内容，使其能对的运行，但不能

修改程序中日勺其他部分。最终用本来的文献名保留工程文献和窗体文献。

图2图2,

图4d

图3"

*V^1^^1^•J^•J^<X^^x

***A个个个个个个个个个个A个个AA*7*AA八个八个八个个个个个个个个八个个个A个个个个个八个个个个个八个个八A

*1*^1^

个个个个个个A八个八个八个个个zx

(2)在考生文献夹下有一种工程文献sjt4.vbp,对应的窗体文献为sjt4.frnio

在窗体上白一种命令按钮，具名称为Command：,标题为“计算"。程序运行后，

假如单击命令按钮,程序将根据下面的公式计算兀口勺值：

n/4=1-1/3+1/5-1/7+.......所提供lf、J窗体文献已给出了命令

按钮的事件过程,程序运行成果如图所示。

该程序不完整，请把它补充完整。

规定：

去掉程序中日勺注释符，乃程序中的?改为对时H勺内容，使其能对日勺运行，但不

能修改程序中的I其他部分。最终用本来日勺文献名保留工程文献和窗体文献。

第一小题：

该题考察考生对ListBox控件的使用。

列表框的Add【tem措施

用来在列表框中插入一行文本，其语法为：

列表框名.AddItem字符串［，索引值］

假如省略"索引值"，则字符串被添加到列表框的尾部;使用"索引值"可以将字符串插入列表框中的指定位

置。"索引值”从0开始，到列表项总数7止。

列表框『'JRemoveltem措施

用来删除列表框中的指定项目，其语法为：

列表框名.RemoveItem索引值

列表框『、JListlndex属性

用来设置或返回列表框中目前选中的列表项。

第二小题：

该题考察了Du—Loup循环构造语句和公式i|算的算法实现,有关程序如下：

PrivateSubCommand1_ClickO

DiniResu1tAsDoub1e

DimSignAsIntcger

DimiAsIntogor

Result=0

Sign=1

i=1

Do

Resuit=ResuIt+Sign/i

i=i+2

Sign=-Sign

LoopWhi1e1/i>=0.0001

Text1.Text=ResuIt*4

EndSub

3.综合应用（1小题，计30分）

注意：下面出现日勺〃考生文献夹〃均为%USER%

在考生文献夹下有一种工程文献sjt5.vbp,对应口勺窗体文献为sj15.frm。窗

体外观如图1所示。三个命令按钮口勺名称分别为Command1>Command2和Com

mand3,标题分别为"读取数据〃、〃首字母大写"和”存盘〃。程序运行后，假如

单击〃读取数据"命令选钮,则读取考生文献夹下』5.txt中欧）所有文本（文本

中的单词与单词之间或标点符号与单词之间均用一种空格分开），并在文本框中

显示出来，如图2所示；假如单击〃首字母大写〃命令按钮，则将文本框中每个单

词的第一种字母变为大写字母（假如本来已是大写字母则不变化），并在文本框

中显示出来,如图3所示；假如单击〃存盘〃命令按钮,则把文本框中H勺内容（首字母

大写后）保留到考生文献夹下的文献OUt5.txt中。窗体文献中已给出了部分程

序，请把它补充完整,使其实现上述功能。

图1

图3

规定：

1）编写〃读取数据'•命令按钮的Click事件过程。

2）去掉〃首字母大写”命令按钮和〃存盘〃命令按钮事件过程中的注释符,把程序

中日勺？改为对的I的内容，使其能对的运行。

3）用本来的文献名保留工程文献和窗体文献。

本题重要考察/文献的操作，文献中字符串的处理措施。重要代玛如下：

DimsAsString

PrivateSubCommand1Click()

Open"in5.txt"ForInputAs#1

s=Input$(LOF(1),1)

Close#1

Text1.Text=s

EndSub

PrivateSubCommand2_Click()

DimoldSenAsString

DimnewSenAsString

DimchAsString

DimlastChAsString

oldSen=Textl.Text

str1en=Len(oldSen)

1astCh=Left(oldSen,1)

Fori=1Tostr1en

ch=Mid(Text1.Text,i,1)

IflastCh=""Then

ch=UCasc(ch)

EndIf

newSen=newSen&ch

lastCh=ch

Nexti

lexti.Text=newSen

EndSub

PrivateSubCommand3_C1ick()

Open"out5.txt"ForOutputAs#1

Write#1>Toxt1.Text

C1ose#1

EndSub

第30次WCKE一二级V“ualBawic考K系统一封名：二级VB.准*SF号：2630999999020020"X

答卷（S）樽助QP

卓生文仲大1;\160\?60?0070圣本操作题笥邙应用坦综合应用题

3.综合应用

注意；文件夹”均为K:\K60\26020020

下

考

个

程

序后

分

个

文

总中

在

有

文

运门

目

录

已

工I

一,

击

城

钥

单

组

d数M

当

率

和

读

出

据

一

两

罄

.个

,单

百

果

组

空

组

囊

的

标

结

调

备

推

时

同C

U小•

中

元

大

％并

普

用

按

C出

示

，

事

的

在

击

翻,

体

已

给

了

木

有

显fi

里

在

梨

・

整

番

将

但

完

瞿Te

。

・

序

全

的

程

中

届

衿符

注

要

能

序

现

功

囱

添*

意

序

修

的

最

后修

后

文

的文

件

名存

性

不W

甯

序%

曲

程

电

必

至

的

过

次

少各

件

盘3

♦

FOEBI

A数组最大值冏合并后最大值lText2

读数据|合并数组|找最大值|

答案：

Dima(10)AsIntcgeRDimb(1OJAsIntegcr

Dimc(10)AsInteger

PrivateSubCommand1_C1ick()

0penApp.Path&"\dataA.txt"ForInputAs#1

OpenApp.Path&"\dataB.txt"ForInputAs#2

Fori=0To9

Input#1,a(i)

Input#2,b(i)

Next

Close#1,#2

EndSub

PrivateSubfind(x()AsInteger,tAsControI)

DimiAsIntegGr,maxAsIntcger^max=x(1卜Fori=2To10

Ifmax<x(i)Thenmax=x(i)ANextit.Text=maxaEndSub

PrivateSubCommand2_Click()

Dimi