2024年計算機(jī)等級考試二級VB實務(wù)及解析題庫

全國計算機(jī)等級考試二級VB上機(jī)題庫（一）

圖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)

簡樸應(yīng)用題(2小題，每題20分，合計40分)

1.在考生目錄下有一種工程文獻(xiàn)sjt3.vbp,對應(yīng)時窗體文獻(xiàn)為sjt3.frm。包

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

規(guī)定：

1）運用屬性窗口向列表框添加四個項目：Visua1Basic,TurboC,C++,Ja

va;

2）請編寫合適的程序完畢如下功能：當(dāng)選擇列表框中的一項和單項選擇按鈕Op

tionl,然后單擊“確定”命令按鈕，則文本框中顯示“XXX筆試”；當(dāng)選擇列

表框中的一項和單項選擇按鈕Option2,然后單擊“確定”命令按鈕，則文本

框中的一項和單項選擇按鈕Option2,然后單擊“確定”命令按鈕，則文本框

中顯示“XXX上機(jī)二其中“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.在考生目錄下有一種工程文獻(xiàn)sjt4.vbp，對應(yīng)的窗體文獻(xiàn)為sjt4.frmo在窗

體上已經(jīng)有一種命令按鈕。其名稱為Commandl,標(biāo)題為“計算并輸出“；程序運

行后，假如單擊命令按鈕，程序?qū)⒂嬎?00以內(nèi)兩個數(shù)之間（包括開頭和結(jié)尾的

數(shù)）所有持續(xù)數(shù)日勺和為1250的正整數(shù)，并在窗體上顯示出來，這樣的數(shù)有多組，

程序輸出每組開頭和結(jié)尾的正整數(shù)，并用連接起來，如圖所示，這個程序不

完整，請把它補(bǔ)充完整。

規(guī)定：

去掉程序中的、注釋符，杷程序中日勺？該為對日勺的內(nèi)容，使其實現(xiàn)上述功能，但不得

修改程序中日勺其他部分。最終把修改的文獻(xiàn)按原文獻(xiàn)存盤。

PrivateSubCommand1_Click()

DimiAsInteger,jAsInteger,iSumAsInteger

Print”持續(xù)和為1250日勺正整數(shù)是：”

Fori=1To500

isum=0賦初值

Forj=iTo500

iSum=j+iSum進(jìn)行累加

IfiSum>=1250ThenExitFor

Next

'IfiSum=1250Then和與否

為1250

Printi："?"；j

EndIf

Next

EndSub

答案為：

1)2)j+iSum3)1250

二、綜合應(yīng)用題(1小題，計40分)

在窗體上畫一種文本框，名稱為Textl,初始內(nèi)容為空白，并設(shè)置多行顯示格式；

然后再畫兩個命令按鈕，其名稱分別為Commandl和Command2,標(biāo)題分別為“顯

示”和“保留”，如圖所示，編寫合適日勺事件過程,程序運行后，假如單擊“顯示”

命令按鈕，則讀取考生目錄下日勺in5.txt文獻(xiàn)，并在文本框中顯示出來，該文

獻(xiàn)是一種用隨機(jī)存取方式建立日勺文獻(xiàn)，共有5個記錄，規(guī)定按記錄號次序顯示所

有記錄，每個記錄一行；假如單擊“保留”命令按鈕，則把所有記錄保留到考生目

錄下日勺次序文獻(xiàn)out5.txt中。隨機(jī)文獻(xiàn)in5.txt中日勺每個記錄包括3個字段，

分別為姓名、性別和年齡，其名稱和長度分別為：

Name字符串8

Sex字符串4

AgeInteger

其類型定義為：

PrivateTypeStudlnfo

NameAsString*8

SexAsString*4

AgeAsInteger

EndType

規(guī)定：

1）文獻(xiàn)out5.txt以次序存取方式建立和保留。

2）存盤時必須放在考

生目錄下，工程為

sjt5.vbp,窗體

文獻(xiàn)名為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)在考生文獻(xiàn)夾下有一-種工程文獻(xiàn)sjt3.vbp,對應(yīng)的窗體文獻(xiàn)為sjt3.frm。

在名稱為Form1時窗體上有一種名稱為Text1歐)文本框和名稱為Command1、

標(biāo)題為“確定〃的命令選鈕，一種名稱為List1H勺列表框和兩個名稱分別為

Option!WOption2,標(biāo)題分別為〃添加〃和〃刪除”日勺單項選擇按鈕，如圖1所示°

程序運行后，假如選擇單項選擇按鈕Opti。n1并在文本框中輸入一種字符串，

然后單擊“確定”命令按鈕,則把文本框中的字符串添加到列表框中，并清除文

本框，如圖2所示;假如選擇列表框中的一項和單項選擇按鈕Option2,并單擊〃

確定”命令按鈕，則刪除列表框中所選擇口勺項目，如圖3所示；假如不選擇列表

框中的項目，或者沒有在文本框中輸入字符串，則單擊〃確定〃命令按鈕后，將顯示

一種信息框〃未輸入或未選擇項目〃，如圖4所示。該程序不完整,請把它補(bǔ)充完整。

規(guī)定：

去掉程序中日勺注釋符，壬程序中的?改為對日勺的I內(nèi)容，使其能對的運行，但不能

修改程序中日勺其他部分。最終用本來的文獻(xiàn)名保留工程文獻(xiàn)和窗體文獻(xiàn)。

圖2圖2,

圖4d

圖3"

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

***A個個個個個個個個個個A個個AA*7*AA八個八個八個個個個個個個個八個個個A個個個個個八個個個個個八個個八A

*1*^1^

個個個個個個A八個八個八個個個zx

(2)在考生文獻(xiàn)夾下有一種工程文獻(xiàn)sjt4.vbp,對應(yīng)的窗體文獻(xiàn)為sjt4.frnio

在窗體上白一種命令按鈕，具名稱為Command：,標(biāo)題為“計算"。程序運行后，

假如單擊命令按鈕,程序?qū)⒏鶕?jù)下面的公式計算?？谏字担?/p>

n/4=1-1/3+1/5-1/7+.......所提供lf、J窗體文獻(xiàn)已給出了命令

按鈕的事件過程,程序運行成果如圖所示。

該程序不完整，請把它補(bǔ)充完整。

規(guī)定：

去掉程序中日勺注釋符，乃程序中的?改為對時H勺內(nèi)容，使其能對日勺運行，但不

能修改程序中的I其他部分。最終用本來日勺文獻(xiàn)名保留工程文獻(xiàn)和窗體文獻(xiàn)。

第一小題：

該題考察考生對ListBox控件的使用。

列表框的Add【tem措施

用來在列表框中插入一行文本，其語法為：

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

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

置。"索引值”從0開始，到列表項總數(shù)7止。

列表框『'JRemoveltem措施

用來刪除列表框中的指定項目，其語法為：

列表框名.RemoveItem索引值

列表框『、JListlndex屬性

用來設(shè)置或返回列表框中目前選中的列表項。

第二小題：

該題考察了Du—Loup循環(huán)構(gòu)造語句和公式i|算的算法實現(xiàn),有關(guān)程序如下：

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.綜合應(yīng)用（1小題，計30分）

注意：下面出現(xiàn)日勺〃考生文獻(xiàn)夾〃均為%USER%

在考生文獻(xiàn)夾下有一種工程文獻(xiàn)sjt5.vbp,對應(yīng)口勺窗體文獻(xiàn)為sj15.frm。窗

體外觀如圖1所示。三個命令按鈕口勺名稱分別為Command1>Command2和Com

mand3,標(biāo)題分別為"讀取數(shù)據(jù)〃、〃首字母大寫"和”存盤〃。程序運行后，假如

單擊〃讀取數(shù)據(jù)"命令選鈕,則讀取考生文獻(xiàn)夾下』5.txt中歐）所有文本（文本

中的單詞與單詞之間或標(biāo)點符號與單詞之間均用一種空格分開），并在文本框中

顯示出來，如圖2所示；假如單擊〃首字母大寫〃命令按鈕，則將文本框中每個單

詞的第一種字母變?yōu)榇髮懽帜福偃绫緛硪咽谴髮懽帜竸t不變化），并在文本框

中顯示出來,如圖3所示；假如單擊〃存盤〃命令按鈕,則把文本框中H勺內(nèi)容（首字母

大寫后）保留到考生文獻(xiàn)夾下的文獻(xiàn)OUt5.txt中。窗體文獻(xiàn)中已給出了部分程

序，請把它補(bǔ)充完整,使其實現(xiàn)上述功能。

圖1

圖3

規(guī)定：

1）編寫〃讀取數(shù)據(jù)'?命令按鈕的Click事件過程。

2）去掉〃首字母大寫”命令按鈕和〃存盤〃命令按鈕事件過程中的注釋符,把程序

中日勺？改為對的I的內(nèi)容，使其能對的運行。

3）用本來的文獻(xiàn)名保留工程文獻(xiàn)和窗體文獻(xiàn)。

本題重要考察/文獻(xiàn)的操作，文獻(xiàn)中字符串的處理措施。重要代瑪如下：

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系統(tǒng)一封名：二級VB.準(zhǔn)*SF號：2630999999020020"X

答卷（S）樽助QP

卓生文仲大1;\160\?60?0070圣本操作題笥邙應(yīng)用坦綜合應(yīng)用題

3.綜合應(yīng)用

注意；文件夾”均為K:\K60\26020020

下

考

個

程

序后

分

個

文

總中

在

有

文

運門

目

錄

已

工I

一,

擊

城

鑰

單

組

d數(shù)M

當(dāng)

率

和

讀

出

據(jù)

一

兩

罄

.個

,單

百

果

組

空

組

囊

的

標(biāo)

結(jié)

調(diào)

備

推

時

同C

U小?

中

元

大

％并

普

用

按

C出

示

，

事

的

在

擊

翻,

體

已

給

了

木

有

顯fi

里

在

梨

?

整

番

將

但

完

瞿Te

。

?

序

全

的

程

中

屆

衿符

注

要

能

序

現(xiàn)

功

囪

添*

意

序

修

的

最

后修

后

文

的文

件

名存

性

不W

甯

序%

曲

程

電

必

至

的

過

次

少各

件

盤3

?

FOEBI

A數(shù)組最大值冏合并后最大值lText2

讀數(shù)據(jù)|合并數(shù)組|找最大值|

答案：

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