全國等級考試VB考試訓(xùn)練題

全國等級考試VB考試訓(xùn)練題

第01套：

(―)基本操作

注意：下面出現(xiàn)的“考生文件夾”均為%USER%

請根據(jù)以下各小題的要求設(shè)計VisualBasic應(yīng)用程序(包括界面和代碼)。

(1)在名稱為Forml的窗體上建立一個二級下拉菜單(菜單項見下表)，運行時的窗體如圖所示。

*注意：

存盤時必須存放在考生文件夾下，工程文件名為sjtl.vbp,窗體文件名為sjtl.frm。

(2)在名稱為Forml的窗體上畫兩個文本框，名稱分別為Textl、Text2,均無初始內(nèi)容。要求：

1)通過屬性窗口設(shè)置適當(dāng)?shù)膶傩?，使Textl、Text2中顯示的文本的字體為“隸書”；

2)編寫適當(dāng)?shù)氖录^程，使得在Textl中輸入每一個字符時，立即在Text2中顯示Textl中的內(nèi)

容，如圖所示。

*注意：要求程序中不得使用變量，事件過程中只能寫一條語句。

存盤時必須存放在考生文件夾下，工程文件名為sjt2.vbp,窗體文件名為sjt2.frm。

(二)簡單應(yīng)用

注意：下面出現(xiàn)的“考生文件夾”均為%USER%

(1)在考生文件夾下有一個工程文件sjt3.vbp.程序的功能是：在運行時，如果選中一個單選按鈕和

一個或兩個復(fù)選框，并單擊“確定”按鈕，則對文本框中的文字做相應(yīng)的設(shè)置，如圖所示。窗體上的控件

已經(jīng)畫出，但沒有給出主要程序內(nèi)容，請編寫適當(dāng)?shù)氖录^程，完成上述功能。

*注意：

不能修改已經(jīng)給出的程序部分和已有的控件；在結(jié)束程序運行之前，必須選中一個單選按鈕和

至少一個復(fù)選框，并單擊“確定”按鈕；必須通過單擊窗體右上角的關(guān)閉按鈕結(jié)束程序，否則無成績。最

后把修改后的文件按原文件名存盤。

—rml

(2)在考生文件夾下有?個工程文件sjt4.vbp0窗體中已經(jīng)給出了所有控件。程序運行時，單擊“讀

入文件”按鈕，將顯示一個''打開”對話框，可以在該對話框中選擇考生文件夾下的文本文件in4.txt,

并把該文件的內(nèi)容顯示到Textl文本框中。給出的程序不完整。

要求：

請去掉程序中的注釋符，并把程序中的？改為正確的內(nèi)容，使其能正確運行，但不能修改程序

中的其他部分和控件屬性。最后用原來的文件名保存工程文件和窗體文件。

源文件如下：

PrivateSubCommand1_Click()

DimnAsLong

CDLFileName=

'CDL?="所有文件|*.*|文本文件|*?1又針肥血文檔|*.(10/

CD1.Filterindex=2

'CDL?

IfCD1.FileName<>""Then

'Open?ForInputAs#1

n=LOF(l)

Textl=Input$(n,#1)

'Close?

EndIf

EndSub

(三)綜合應(yīng)用

注意：下面出現(xiàn)的“考生文件夾”均為%USER%

在考生文件夾下有一個工程文件sjt5.vbp,在窗體上給出了所有控件和不完整的程序，請去掉程序

中的注釋符，把程序中的？改為正確的內(nèi)容。

本程序的功能是：如果單擊“取數(shù)”按鈕，則把考生目錄下的in5.txt文件中的15個姓名讀到數(shù)組

a中，并在窗體上顯示這些姓名：當(dāng)在Textl中輸入一個姓名，或一個姓氏后，如果單擊“查找”按鈕，

則進(jìn)行查找，若找到，就把所有與Textl中相同的姓名或所有具有Textl中姓氏的姓名顯示在Text2中；

(如圖所示)若未找到，則在Text2中顯示“未找到！&若Textl中沒有查找內(nèi)容，則在Text2中顯示“未

輸入查找內(nèi)容！

*注意：

考生不得修改程序的其他部分和控件的屬性，最后把修改后的文件按原文件名存盤。

?.Form1

劉

_芬

陳

紅查找內(nèi)容防

沈

枚

張

定

劉

一i

陳

慶查找結(jié)果陳紅陳慶

馬

華陽陳紋

李

麗

郝

強(qiáng)

朱

群

陳

紋

郝

玫

張

雨

張

定

劉

三

源代碼如下：

Dima(15)AsString

PrivateSubCl_Click()

DimkAsInteger

Open*in5.txt*ForInputAs#1

FormLCls

Fork=1To15

Input#1,a(k)

Printa(k)

Nextk

'Close?

EndSub

PrivateSubC2_Click0

DimkAsInteger,nAsInteger,cAsString

'n=Len(?)

c=

Ifn>0Then

Fork=1To15

IfLeft(a(k),?)=Textl.TextThen

*c=c+**+?

EndIf

Nextk

Ifc=*'Then

Text2.Text="未找到！"

Else

'Text2.Text=?

EndIf

Else

Text2.Text="未輸入查找內(nèi)容！"

EndIf

EndSub

※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※

※※※※※※※※※※

第02套：

(―)基本操作

注意：下面出現(xiàn)的“考生文件夾”均為%USER%

請根據(jù)以下各小題的要求設(shè)計VisualBasic應(yīng)用程序（包括界面和代碼）。

（1）在名稱為Forml的窗體上畫一個名稱為Commandl的命令按鈕，標(biāo)題為“打開文件”，再畫一個名稱

為CD1的通用對話框。程序運行后，如果單擊命令按鈕，則彈出打開文件對話框。請按下列要求設(shè)置屬性

和編寫代碼：

1）設(shè)置適當(dāng)屬性，使對話框的標(biāo)題為“打開文件”；

2）設(shè)置適當(dāng)屬性，使對話框的“文件類型”下拉式組合框中有二行：“文本文件”、“所有文件”（如

圖所示），默認(rèn)的類型是“所有文件”；

3）編寫命令按鈕的事件過程，使得單擊按鈕可以彈出打開文件對話框。

要求：程序中不得使用變量，事件過程中只能寫一條語句。

*注意：

存盤時必須存放在考生文件夾下，工程文件名為sjtl.vbp,窗體文件名為sjtl.frm。

Forml

打并文件11

（2）在名稱為Forml的窗體上畫一個命令按鈕，名稱為Commandl,其標(biāo)題為“移動本按鈕”，如圖所示。

要求編寫適當(dāng)?shù)氖录^程，使得程序運行時，每單擊按鈕一次，按鈕向左移動I00o要求：程序

中不得使用變量，事件過程中只能寫一條語句。

*注意：

存盤時必須存放在考生文件夾下，工程文件名為sjt2.vbp,窗體文件名為sjt2.frm。

（二）簡單應(yīng)用

注意：下面出現(xiàn)的“考生文件夾”均為%USER%

（1）在名稱為Forml的窗體上畫一個名稱為Labell、標(biāo)題為“添加項目：”的標(biāo)簽；畫一個名稱為Textl

的文本框，沒有初始內(nèi)容；畫一個名稱為Combol的下拉式組合框，并通過屬性窗口輸入若干項目（不少

于3個，內(nèi)容任意）；再畫兩個命令按鈕，名稱分別為Commandl、Command2,標(biāo)題分別為“添加”、“統(tǒng)計”。

在運行時，向Textl中輸入字符，單擊“添加”按鈕后，則Textl中的內(nèi)容作為一個列表項被添加到組合

框的列表中；單擊“統(tǒng)計”按鈕，則在窗體上顯示組合框中列表項的個數(shù)，如圖所示。請編寫兩個命令按

鈕的Click事件過程。

*注意：

程序中不得使用變量，也不能使用循環(huán)。存盤時必須存放在考生文件夾下，工程文件名為

sjt3.vbp,窗體文件名為sjt3.frmo

（2）在考生文件夾下有一個工程文件sjt4.vbp,其窗體如圖所示。該程序用來對在上面的文本框中輸入

的英文字母串（稱為“明文”）加密，加密結(jié)果（稱為“密文”）顯示在下面的文本框中。加密的方法是：

選中一個單選按鈕，單擊“加密”按鈕后，根據(jù)選中的單選按鈕后面的數(shù)字n,把明文中的每個字母改為

它后面的第n個字母（“z”后面的字母認(rèn)為是“a”，“Z”后面的字母認(rèn)為是"A"），如圖所示。窗體中已經(jīng)

給出了所有控件和程序，但程序不完整，請去掉程序中的注釋符，把程序中的？改為正確的內(nèi)容。

*注意：

不能修改程序中的其他部分和控件的屬性。最后把修改后的文件按原文件名存盤。

源代碼如下：

PrivateSubCommand1_Click()

DimnAsInteger,kAsInteger,mAsInteger

DimcAsString,aAsString

Fork=0To2

IfOpl(k).ValueThen

n=Vai(Opl(k).?)

EndIf

Nextk

m=Len(Textl.Text)

a=

'Fork=1To?

'c=Mid$(Textl.Text,?,1)

c=Stringd,Asc(c)+n)

Ifc>Orc>*Z*Andc<*a*Then

c=String(1,Asc(c)-26)

EndIf

'?=a+c

Nextk

Text2.Text=a

EndSub

(三)綜合應(yīng)用

注意：下面出現(xiàn)的“考生文件夾”均為加SE照

在考生文件夾下有一個工程文件sjt5.vbp,窗體上有兩個文本框，名稱為TexthText2,都可以多

行顯示。還有三個命令按鈕，名稱分別為CL。2、C3,標(biāo)題分別為“取數(shù)”、"排序”、“存盤”。“取數(shù)”

按鈕的功能是把考生目錄下的in5.dat文件中的50個整數(shù)讀到數(shù)組中，并在Textl中顯示出來；“排序”

按鈕的功能是對這50個數(shù)按升序排序，并顯示在Text2中；“存盤”按鈕的功能是把排好序的50個數(shù)存到

考生目錄下的。ut5.dat文件中。如圖所示。在窗體中己經(jīng)給出了全部控件和部分程序，要求閱讀程序并去

掉程序中的注釋符，把程序中的？改為正確的內(nèi)容，并編寫“排序”按鈕的Click事件過程，使其實現(xiàn)上

述功能，但不能修改程序中的其他部分，也不能修改控件的屬性,最后把修改后的文件按原文件名存盤。

源代碼如下：

Dima(50)AsInteger

PrivateSubCl_Click()

DimkAsInteger,chAsString

Open"in5.dat*ForInputAs#1

ch=

Fork=1To50

'Input#1,?

ch=ch+Str（a（k））+“

Nextk

Close#1

'Textl.Text=?

EndSub

PrivateSubC2_Click（）

EndSub

PrivateSubC3_Click（）

Open*out5.dat*ForOutputAs#1

Print#1,Text2.Text

Close#1

EndSub

※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※

※※※※※※※※※※

第03套：

（一）基本操作

注意：下面出現(xiàn)的“考生文件夾”均為加SER%

請根據(jù)以下各小題的要求設(shè)計VisualBasic應(yīng)用程序（包括界面和代碼）。

（1）在名稱為Forml的窗體上畫一個文本框，其名稱為Textl,然后通過屬性窗口設(shè)置窗體和文本框的

屬性，實現(xiàn)如下功能：

1）在文本框中可以顯示多行文本

2）在文本框中顯示垂直滾動條

3）文本框中顯示的初始信息為“程序設(shè)計”

4）文本框中顯示的字體為三號規(guī)則黑體

5）窗體的標(biāo)題為“設(shè)置文本框?qū)傩浴?/p>

完成設(shè)置后的窗體如圖所示。

要求：不編寫任何代碼。

*注意：存盤時必須存放在考生文件夾下，工程文件名為sjtl.vbp,窗體文件名為sjtl.frm。

（2）在名稱為Forml的窗體上畫兩個命令按鈕（見圖1）,其名稱分別為Cmdl和Cmd2,編寫適當(dāng)?shù)氖?/p>

件過程。程序運行后，如果單擊命令按鈕Cmdl,則可使該按鈕移到窗體的左上角（只允許通過修改屬性的

方式實現(xiàn)）；如果單擊命令按鈕Cmd2,則可使該按鈕在長度和寬度上各擴(kuò)大到原來的2倍。

程序的運行情況如圖2所示。

要求：不得使用任何變量。

*注意：存盤時必須存放在考生文件夾下，工程文件名為sjt2.vbp,窗體文件名為

kForml,|n|x|

Cmdl

Cmd2

圖圖2。

（二）簡單應(yīng)用

注意：下面出現(xiàn)的“考生文件夾”均為%USER%

<1）在考生文件夾下有一個工程文件sjt3.vbp,相應(yīng)的窗體文件為sjt3.frmo其功能是產(chǎn)生30個0?

1000的隨機(jī)整數(shù)，放入個數(shù)組中，然后輸出其中的最大值。程序運行后，單擊命令按鈕（名稱為Commandl,

標(biāo)題為“輸出最大值”，如圖所示），即可求出其最大值，并在窗體上顯示出來。這個程序不完整，請把它

補(bǔ)充完整，并能正確運行。

要求：

去掉程序中的注釋符，把程序中的？改為正確的內(nèi)容，使其實現(xiàn)上述功能，但不能修改程序中

的其他部分。最后把修改后的文件按原文件名存盤。

源代碼如下：

OptionBase1

PrivateSubCommandl_Click()

DimarrN(30)AsInteger

DimMaxAsInteger

Randomize

Fori=1To30

'arrN(i)=Int(Rnd??)

Nexti

'?=arrN(l)

Fori=2To30

'If?Then

Max=arrN(i)

EndIf

Nexti

PrintMax

EndSub

(2)在考生文件夾下有一個工程文件sjt4.vbp,相應(yīng)的窗體文件為sjt4.frm,在窗體上有一個命令按鈕

和一個文本框。程序運行后，單擊命令按鈕，即可計算出1?1000范圍內(nèi)能被5整除或能被7整除的整數(shù)

的個數(shù)，并在文本框中顯示出來。在窗體的代碼窗口中，已給出了部分程序，其中計算能被5整除或能被

7整除的整數(shù)的個數(shù)的操作在通用過程Fun中實現(xiàn)，請編寫該過程的代碼。

要求：

請勿改動程序中的任何內(nèi)容，只在FunctionFun()和EndFunction之間填入你編寫的若干語句。

最后把修改后的文件按原文件名存盤。

(三)綜合應(yīng)用

注意：下面出現(xiàn)的“考生文件夾”均為%USER%

在考生文件夾下有一個工程文件sjt5.vbp,相應(yīng)的窗體文件為sjt5.frm,此外還有一個名為

datain.txt的文本文件，其內(nèi)容如下:

32437658281298573142536475869713243546576879805937

程序運行后，單擊窗體，將把文件datain.txt中的數(shù)據(jù)輸入到二維數(shù)組Mat中，在窗體上按5行、5

列的矩陣形式顯示出來，并輸出矩陣左上-右下對角線上的數(shù)據(jù)，如圖所示。在窗體的代碼窗口中，已給

出了部分程序，這個程序不完整，請把它補(bǔ)充完整，并能正確運行。

要求：

去掉程序中的注釋符，把程序中的？改為正確的內(nèi)容，使其實現(xiàn)上述功能，但不能修改程序中的

其他部分。最后把修改后的文件按原文件名存盤。

源代碼如下：

OptionBase1

PrivateSubForm_Click()

ConstN=5

ConstM=5

'Dim?

Dimi,j

'OpenApp.Path&&*datain.txt"?As#1

Fori=1ToN

Forj=1ToM

，?

Nextj

Nexti

Close#1

Print

Print"初始矩陣為：”

Print

Fori=1ToN

Forj=1ToM

PrintTab(5*j);Mat(i,j);

Nextj

Print

Nexti

Print

Print"左上-右下對角線上的數(shù)為：”

Fori=1ToN

Forj=1ToM

'If?ThenPrintTab(5*j);Mat(i?j);

Nextj

Nexti

※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※

※※※※※※※※※※

第04套：

(-)基本操作

注意：下面出現(xiàn)的“考生文件夾”均為汕SER%

請根據(jù)以下各小題的要求設(shè)計典sualBasic應(yīng)用程序(包括界面和代碼)。

(1)在名稱為Forntl的窗體上畫一?個命令按鈕，其名稱為Commandl(如圖1所示)，然后通過屬性窗口

設(shè)置窗體和命令按鈕的屬性，實現(xiàn)如下功能：

1)窗體標(biāo)題為“設(shè)置按鈕屬性”

2)命令按鈕的標(biāo)題為“等級考試”

3)程序運行后，命令按鈕不顯示

4)命令按鈕的標(biāo)題用三號常規(guī)黑體.顯示

程序的運行情況如圖2所示。

要求：不編寫任何代碼。

*注意;存盤時必須存放在考生文件夾下，工程文件名為sjtl.vbp,窗體文件名為sjtl.frm。

圖“圖2^

（2）在名稱為Forml的窗體上畫一個標(biāo)簽，其名稱為Labell,在屬性窗口中把BorderStyle屬性設(shè)置為

1（如圖1所示），編寫適當(dāng)?shù)氖录^程。程序運行后，如果單擊窗體，則可使標(biāo)簽移到窗體的右上角（只

允許在程序中修改適當(dāng)屬性來實現(xiàn)）.

程序的運行情況如圖2所示.

要求：不得使用任何變量。

*注意：存盤時必須存放在考生文件夾下，工程文件名為sjt2.vbp,窗體文件名為sjt2.frm。

圖1P圖2。

（二）簡單應(yīng)用

注意：下面出現(xiàn)的“考生文件夾”均為新SER%

（1）在考生文件夾下有一個工程文件sjt3.vbp,相應(yīng)的窗體文件為sjt3.frmo其功能是產(chǎn)生30個0?

1000的隨機(jī)整數(shù)，放入一個數(shù)組中，然后輸出其中的最小值。程序運行后，單擊命令按鈕（名稱為Command1,

標(biāo)題為“輸出最小值”），即可求出其最小值，并在窗體上顯示出來（如圖所示）。

這個程序不完整，請把它補(bǔ)充完整，并能正確運行。

要求：

去掉程序中的注釋符，把程序中的？改為正確的內(nèi)容，使其實現(xiàn)上述功能，但不能修改程序中的

其他部分。最后把修改后的文件按原文件名存盤。

源代碼如下：

OptionBase1

PrivateSubCommandl_Click()

DimarrN(30)AsInteger

DimMinAsInteger

Randomize

Fori=1To30

'arrN⑴=Int(Rnd*?)

Nexti

'?=arrN⑴

Fori=2To30

'If?Then

Min=arrN(i)

EndIf

Nexti

PrintMin

EndSub

（2）在考生文件夾下有一個工程文件sjt4.vbp,相應(yīng)的窗體文件為sjt4.frni,在窗體上有?個命令按鈕

和一個文本框。程序運行后，單擊命令按鈕，即可計算出0?1000范圍內(nèi)不能被7整除的整數(shù)的個數(shù)，并

在文本框中顯示出來。在窗體的代碼窗口中，已給出了部分程序，其中計算不能被7整除的整數(shù)的個數(shù)的

操作在通用過程Fun中實現(xiàn)，請編寫該過程的代碼。

要求：

請勿改動程序中的任何內(nèi)容，只在FunctionFun（）和EndFunction之間填入你編寫的若干語句。

最后把修改后的文件按原文件名存盤。

（三）綜合應(yīng)用

注意：下面出現(xiàn)的“考生文件夾”均為%USER%

在考生文件夾下有一個工程文件sjt5.vbp,請先裝入該工程文件，然后完成以下操作：

在名稱為Forml的窗體上畫二個命令按鈕，其名稱分別為C1和C2,標(biāo)題分別為“讀入數(shù)據(jù)”和“計

算”（如圖所示）。程序運行后，如果單擊“讀入數(shù)據(jù)”按鈕，則調(diào)用題目所提供的ReadDatal和ReadData2

過程讀入datainl.txt和程tain2.txt文件中的各20個整數(shù),分別放入Arrl和程r2兩個數(shù)組中;如果單

擊“計算”按鈕，則把兩個數(shù)組中對應(yīng)下標(biāo)的元素相減，其結(jié)果放入第三個數(shù)組中（即：第一個數(shù)組的第n

個元素減去第二個數(shù)組的第n個元素，其結(jié)果作為第三個數(shù)組的第n個元素。這里的n為1、2............20）,

最后計算第三個數(shù)組各元素之和，把所求得的和在窗體上顯示出來；并調(diào)用題目中給出的WriteData過程

將所求得的和存入考生文件夾下的dataout.txt文件中。

注意：

考生不得修改窗體文件中已經(jīng)存在的程序，且必須執(zhí)行此程序一次，最后把修改后的文件以原來的

文件名存盤。

※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※

※※※※※※※※※派

第05套：

（一）基本操作

注意：下面出現(xiàn)的“考生文件夾”均為%USER%

請根據(jù)以下各小題的要求設(shè)計VisualBasic應(yīng)用程序（包括界面和代碼）。

（1）在名稱為Forml的窗體上畫一個標(biāo)簽，其名稱為Labell,然后通過屬性窗口設(shè)置窗體和標(biāo)簽的屬

性，實現(xiàn)如下功能：

1）窗體標(biāo)題為“設(shè)置標(biāo)簽屬性”

2）標(biāo)簽的位置為：距窗體左邊界500,距窗體頂邊界300

3）標(biāo)簽的標(biāo)題為“等級考試”

4）標(biāo)簽可以根據(jù)標(biāo)題的內(nèi)容自動調(diào)整其大小

5）標(biāo)簽帶有邊框

程序的運行情況如圖所示。

要求：不編寫任何代碼。

*注意：存盤時必須存放在考生文件夾下，工程文件名為sjtl.vbp,窗體文件名為sjtl.frm。

（2）在名稱為Forml的窗體上畫一個命令按鈕和一個水平滾動條，其名稱分別為Command1和HScrolll,

編寫適當(dāng)?shù)氖录^程。程序運行后，如果單擊命令按鈕，則按如下要求設(shè)置水平滾動條的屬性：

Max=窗體寬度

Min=0

LargeChange-50

Smal1Change=10

而如果移動水平滾動條的滾動框，則在窗體上顯示滾動框的位置值。

程序的運行情況如圖所示。

要求：不得使用任何變量。

*注意：存盤時必須存放在考生文件夾下，工程文件名為sjt2.vbp,窗體文件名為sjt2.frm。

（二）簡單應(yīng)用

注意：下面出現(xiàn)的“考生文件夾”均為%USER%

（1）在考生文件夾下有一個工程文件sjt3.vbp,相應(yīng)的窗體文件為sjt3.frm。其功能是產(chǎn)生20個。?

1000的隨機(jī)整數(shù)，放入一個數(shù)組中，然后輸出這20個整數(shù)的平均值。程序運行后，單擊命令按鈕（名稱

為Conunandl,標(biāo)題為“輸出平均值”），即可求出其平均值，并在窗體上顯示出來（如圖所示）。這個程序

不完整，請把它補(bǔ)充完整，并能正確運行。

要求：去掉程序中的注釋符，把程序中的？改為正確的內(nèi)容，使其實現(xiàn)上述功能，但不能修改程

序中的其他部分。最后把修改后的文件按原文件名存盤。

源代碼如下：

OptionBase1

PrivateSubCommandl_Click()

DimarrN(20)AsInteger

DimAverAsSingle

DimSumAsInteger,i

Randomize

Fori=1To20

'arrN(i)=Int(Rnd*?)

Nexti

'Sum=?

Fori=1To20

'Sum=?

Nexti

'Aver=?

PrintAver

EndSub

(2)在考生文件夾下有?個工程文件sjt4.vbp,相應(yīng)的窗體文件為sjt4.frm,在窗體上有一個命令按鈕

和一個文本框。程序運行后，單擊命令按鈕，即可計算出0?200范圍內(nèi)能被3整除的所有整數(shù)的和，并

在文本框中顯示出來。在窗體的代碼窗口中，已給出了部分程序，其中計算能被3整除的整數(shù)的和的操作

在通用過程Fun中實現(xiàn)，請編寫該過程的代碼。

要求：

請勿改動程序中的任何內(nèi)容，只在FunctionFun()和EndFunction之間填入你編寫的若干語句。

最后把修改后的文件按原文件名存盤。

(三)綜合應(yīng)用

注意：下面出現(xiàn)的“考生文件夾”均為%USER%

在考生文件夾下有一個工程文件sjt5.vbp,界面如圖所示，其功能如下：

1)單擊“讀數(shù)據(jù)”按鈕，則把考生文件夾下文件in5.dat中的12組整數(shù)(其中每組含有10個數(shù)，

共計120個整數(shù))讀到數(shù)組a中；

2)單擊“計算”按鈕，則對每組數(shù)求平均值，并將所求各組數(shù)的平均值截尾取整后存入s數(shù)組中；

3)單擊“顯示”按鈕，則將所求各組數(shù)的平均值顯示在文本框Textl中；

4)單擊“存盤”按鈕則把計算結(jié)果存盤。

在給出的窗體文件中已經(jīng)有了全部控件，且“讀數(shù)據(jù)”、“顯示”和“存盤”按鈕的Click事件過程已

經(jīng)給出，請為“計算”按鈕編寫適當(dāng)?shù)氖录^程以實現(xiàn)上述功能。

注意：

不得修改已經(jīng)存在的程序，在結(jié)束程序運行之前，必須用“存盤”按鈕存儲計算結(jié)果，否則無成績。

最后，程序按原文件名存盤。

※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※

※※※※※※※※※※

第06套：

（一）慕本操作

注意：下面出?現(xiàn)的“考生文件夾”均為機(jī)SE即

請根據(jù)以卜各小題的要求設(shè)計VisualBasic應(yīng)用程序（包括界面和代碼）。

（1）在名稱為Fond的窗體上畫一個水平滾動條，其名稱為HScrolH,然后通過屬性窗口設(shè)置窗體和滾

動條的屬性，實現(xiàn)如下功能：

1）窗體標(biāo)題為“設(shè)置滾動條屬性”

2）滾動條所能表示的最小值和最大值分別為0和200

3）程序運行后，單擊滾動條兩端的箭頭時，滾動框移動的增量值為2

4）程序運行后，單擊滾動框前面或后面的部位時，滾動框移動的增量值為10

5）滾動框的初始位置為100

程序的運行情況如圖所示。

要求；不要編寫任何代碼。

*注意：存盤時必須存放在考生文件夾下，工程文件名為sjtLvbp,窗體文件名為sjtl.frm。

（2）在名稱為Rrnnl的窗體上畫一個文本框，其名稱為Textl（如圖1所示），編寫適當(dāng)?shù)氖录^程。程

序運行后，如果單擊窗體，則可使文本框移到窗體的左上角；而如果在文本框中輸入信息，則可使文本框

移到窗體的右上角“

程序的運行情況如圖2所示。

要求；不得使用任何變量；只允許通過修改屬性的方式移動文本框。

*注意:

存盤時必須存放在考生文件夾下，工程文件名為sjt2.vbp,窗體文件名為sjt2,t'vm.

圖IP圖2P

（-）簡單應(yīng)用

注意；下面出現(xiàn)的“考生文件夾”均為機(jī)JSER%

（1）在考生文件夾下有一個工程文件sjt3.vbp,相應(yīng)的窗體文件為sjt3.frm。其功能是產(chǎn)生20個0?

1000的隨機(jī)整數(shù)，放入一個數(shù)組中，然后輸出這20個整數(shù)中大于500的所有整數(shù)之和。程序運行后，單

擊命令按鈕（名稱為Commandl,標(biāo)題為“輸出大于500的整數(shù)之和”），即可求出這些整數(shù)的和，并在窗體

上顯示出來（如圖所示）。這個程序不完整，請把它補(bǔ)充完整，并能正確運行。

要求：

去掉程序中的注釋符，把程序中的？改為正確的內(nèi)容，使其實現(xiàn)上述功能，但不能修改程序中

的其他部分.最后把修改后的文件按原文件名存盤。

源代碼如下：

OptionBase1

PrivateSubCommand1_Click()

DimarrN(20)AsInteger

DimSumAsInteger

Randomize

Fori=1To20

arrN(i)=Int(Rnd*?)

Nexti

'Sum=?

Fori=1To20

'If?Then

'Sum=?

EndIf

Nexti

PrintSum

EndSub

（2）在考生文件夾下有一個工程文件sjt4.vbp,相應(yīng)的窗體文件為sjt4.frm,在窗體上有一個命令按鈕

和一個文本框。程序運行后，單擊命令按鈕，即可計算出。?100范圍內(nèi)不能被7整除的所有整數(shù)的和，

并在文本框中顯示出來。在窗體的代碼窗口中，已給出了部分程序，其中計算不能被7整除的整數(shù)的和的

操作在通用過程Fun中實現(xiàn)，請編寫該過程的代碼。

要求：

請勿改動程序中的任何內(nèi)容，只在FunctionFun()和EndFunction之間填入你編寫的若干語句。

最后把修改后的文件按原文件名存盤。

(三)綜合應(yīng)用

注意：下面出現(xiàn)的“考生文件夾”均為%USER%

在考生文件夾下有一個工程文件sjt5.vbp,相應(yīng)的窗體文件為sjt5.frm,此外還有一個名為

datain.txt的文本文件，其內(nèi)容如下：

32437658281298573142536475869713243546576879805937

程序運行后，單擊窗體，將把文件datain.txt中的數(shù)據(jù)輸入到二維數(shù)組Mat中，在窗體上按5行、5

列的矩陣形式顯示出來，然后計算矩陣第三行各項的和，并在窗體上顯示出來，如圖所示。在窗體的代碼

窗口中，已給出了部分程序，這個程序不完整，請把它補(bǔ)充完整，并能正確運行。

要求：

去掉程序中的注釋符，把程序中的？改為正確的內(nèi)容，使其實現(xiàn)上述功能，但不能修改程序中的其

他部分。最后把修改后的文件按原文件名存盤。

源代碼如下：

OptionBase1

PrivateSubFonn_Click()

ConstN=5

ConstM=5

'Dim?

DimSum,i,j

OpenApp.Path&&*datain.txt*?As#1

Fori=1ToN

Forj=1ToM

，?

Nextj

Nexti

Close#1

Print

Print”初始矩陣為：”

Print

Fori=1ToN

Forj=1ToM

PrintTab（5*j）;Mat（i,j）;

Nextj

Print

Nexti

'Sum=?

Forj=1ToM

，?

Nextj

Print

Print”第三行各項的和為：\

PrintSum

EndSub

※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※

※※※※※※※※※※

第07套：

（一）基本操作

注意：下面出現(xiàn)的“考生文件夾”均為機(jī)SE照

請根據(jù)以下各小題的要求設(shè)計VisualBasic應(yīng)用程序（包括界面和代碼）。

（1）在名稱為Form1的窗體上畫三個單選按鈕,其名稱分別為Option1、Opticn2和Option：?（如圖1所

示），然后通過屬性窗口設(shè)置窗體和單選按鈕的屬性，實現(xiàn)如下功能：

1）窗體標(biāo)題為“設(shè)置單選按鈕屬性”

2）三個單選按鈕的標(biāo)題分別為“按鈕1”、“按鈕2”和“按鈕3”

3）初始狀態(tài)為，第一個單選按鈕為“選中”

4）程序運行后，第二個單選按鈕“禁用”

5）程序運行后，笫三個單選按鈕不可見

程序的運行情況如圖2所示.

要求；不編寫任何代碼。

*注意：存盤時必須存放在考生文件夾下，工程文件名為sjtl.vbp,窗體文件名為sjtl.frm。

圖圖2r

（2）在名稱為Forml的窗體上畫?個命令按鈕和一個垂直滾動條，其名稱分別為Commandl和VScrol11,

編寫適當(dāng)?shù)氖录^程。程序運行后，如果單擊命令按鈕，則按如下要求設(shè)置垂宜滾動條的屬性：

Max=窗體高度

Min=0

LargeChange=50

SmallChange=10

如果移動垂直滾動條的滾動框，則在窗體上顯示滾動框的位置值。

程序的運行情況如圖所示。

要求：不得使用任何變量。

*注意：存盤時必須存放在考生文件夾下，工程文件名為sjt2.vbp,窗體文件名為sjt2.frm。

（二）簡單應(yīng)用

注意：下面出現(xiàn)的“考生文件夾”均為%USER%

（1）在考生文件夾下有一個工程文件sjt3.vbp,相應(yīng)的窗體文件為sjt3.frm。其功能是產(chǎn)生20個。?

1000的隨機(jī)整數(shù)，放入一個數(shù)組中，然后輸出這20個整數(shù)中小于500的所有整數(shù)之和。程序運行后，單

擊命令按鈕（名稱為Command1,標(biāo)題為“輸出小于500的整數(shù)之和”），即可求出這些整數(shù)的和，并在窗

體上顯示出來（如圖所示）。這個程序不完整，請把它補(bǔ)充完整，并能正確運行。

要求：去掉程序中的注釋符，把程序中的？改為正確的內(nèi)容，使其實現(xiàn)上述功能，但不能修改程

序中的其他部分。最后把修改后的文件按原文件名存盤。

源代碼如下：

OptionBase1

PrivateSubCommand1_C1ick()

DimarrN(20)AsInteger

DimSumAsInteger

Randomize

Fori=1To20

'arrN(i)=Int(Rnd??)

Nexti

'Sum=?

Fori=1To20

'If?Then

'Sum=?

EndIf

Nexti

PrintSum

EndSub

(2)在考生文件夾下有一個工程文件sjt4.vbp,相應(yīng)的窗體文件為sjt4.frm,在窗體上有一個命令按鈕

和?個文本框。程序運行后，單擊命令按鈕，即可計算出0?100范圍內(nèi)所有偶數(shù)的平方和，并在文本框中

顯示出來。在窗體的代碼窗口中，已給出了部分程序，其中計算偶數(shù)平方和的操作在通用過程Fun中實現(xiàn)，

請編寫該過程的代碼。

要求：

請勿改動程序中的任何內(nèi)容，只在FunctionFun()和EndFunction之間填入你編寫的若干語句。

最后把修改后的文件按原文件名存盤。

(三)綜合應(yīng)用

注意：下面出現(xiàn)的“考生文件夾”均為%USER%

在考生文件夾下有一個工程文件sjt5.vbp,相應(yīng)的窗體文件為sjt5.frm,此外還有一個名為

datain.txt的文本文件,其內(nèi)容如下:

32437658281298573142536475869713243546576879805937

程序運行后單擊窗體，將把文件datain.txt中的數(shù)據(jù)輸入到二維數(shù)組Mat中，在窗體上按5行、5列

的矩陣形式顯示出來，并輸出矩陣右上-左下對角線上的數(shù)據(jù)，如圖所示。在窗體的代碼窗口中，已給出

了部分程序，這個程序不完整，請把它補(bǔ)充完整，并能正確運行。

要求：去掉程序中的注釋符，把程序中的？改為正確的內(nèi)容，使其實現(xiàn)上述功能，但不能修改程序中

的其他部分。最后把修改后的文件按原文件名存盤。

源代碼如下：

OptionBase1

PrivateSubForm__Click()

ConstN=5

ConstM=5

'Dim?

Dimi,j

OpenApp.Path&&"datain.txt"?As#1

Fori=1ToN

Forj=1ToM

，?

Nextj

Nexti

Close#1

Print

Print”初始矩陣為：”

Print

Fori=1ToN

Forj=1ToM

PrintTab(5*j);Mat(i,j);

Nextj

Print

Nexti

Print:Print

Print"右上-左下對角線上的數(shù)為：〃

Fori=1ToN

Forj=1ToM

'If?Then

PrintTab(5*i);Mat(i,j);

EndIf

Nextj

Nexti

EndSub

※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※

※※※※※※※※※※

第08套：

(一)基本操作

注意：下面出現(xiàn)的“考生文件夾”均為%USER%

請根據(jù)以下各小題的要求設(shè)計VisualBasic應(yīng)用程序(包括界面和代碼)。

(1)在名稱為Fond的窗體上畫一個名稱為Labell的標(biāo)簽，標(biāo)簽的長和高分別為2000、300,有邊框，

并利用屬性窗口設(shè)置適當(dāng)?shù)膶傩?，使其居中顯示“等級考試”，并使標(biāo)簽的外觀如圖所示。運行后的窗體見

下圖。

注意：存盤時必須存放在考生文件夾下，工程文件名為sjtl.vbp,窗體文件名為sjtl.frm。

（2）在名稱為Forml的窗體上畫一個名稱為Imagel的圖像框，有邊框，并可以自動調(diào)整裝入圖片的大

小以適應(yīng)圖像框的尺寸；再畫三個命令按鈕，名稱分別為Command1,Comtnand2,Commands,標(biāo)題分別為

“紅桃”、“黑桃”、“清除”。在考生目錄下有二個圖標(biāo)文件,其名稱分別為“Misc34.ico”和"Misc37.ico".

程序運行時，單擊“紅桃”按鈕，則在圖像框中顯示紅桃圖案（即Misc34.ico文件，如圖所示）；單擊“黑

桃”按鈕，則在圖像框中顯示黑桃圖案（即Misc37.ico文件）；單擊''清除"按鈕則清除圖像框中的圖案。

請編寫相應(yīng)控件的Click事件過程，實現(xiàn)上述功能。

注意：

要求程序中不得使用變量，每個事件過程中只能寫一條語句。存盤時必須存放在考生文件夾下，

工程文件名為sjt2.vbp,窗體文件名為sjt2.frm.

（二）簡單應(yīng)用

注意：口面出現(xiàn)的“考生文件夾”均為%USER%

（1）在考生文件夾下有一個工程文件sjt3.vbPo窗體上有個標(biāo)題為“得分”的框架，在框架中有一

個名稱為Textl的文本框數(shù)組，含六個元素；文本框Text2用來輸入難度系數(shù)。程序運行時，在左邊的六

個文本框中輸入6個得分，輸入難度系數(shù)后，單擊“計算分?jǐn)?shù)”按鈕，則可計算出最后得分并在文本框Text3

中顯示（如圖所示）。

計算方法：

去掉1個最高得分和1個最低得分，求剩下得分的平均分，再乘以3,再乘以難度系數(shù)。最后

結(jié)果保留到第2位小數(shù)，不四舍五入。

注意：文件中已經(jīng)給出了所有控件和程序，但程序不完整，請去掉程序中的注釋符，把程序中的？

改為正確的內(nèi)容?？忌荒苄薷某绦蛑械钠渌糠趾透骺丶膶傩?。最后把修改后的文件按原文件名存盤。

源代碼如下：

PrivateSubCommandl_Click()

DimkAsInteger,sAsSingle,aAsSingle,bAsSingle

a=Vai(Textl(0).Text)

s=a

b=a

'Fork=1To?

s=s+Vai(Textl(k).Text)

'If?<Vai(Textl(k).Text)Then

a=Vai(Textl(k).Text)

EndIf

Ifb>Vai(Textl(k).Text)Then

b=Vai(Textl(k).Text)

EndIf

Nextk

's=(s-a-b)/?

's=??3*Vai(Text2.Text)

'?=Int(s?100)/100

EndSub

(2)在考生目錄下有一個工程文件sjt4.vbp。窗體上的控件如圖所示。程序運行時，若選中“階乘”

單選按鈕，則“1000”、“2000”菜單項不可用(如圖所示)，若選中“累加”單選按鈕,則“10”、“12”菜

單項不可用。選中菜單中的一個菜單項后，單擊“計算”按鈕，則相應(yīng)的計算結(jié)果顯示在文本框中(例如：

選中“階乘”和“10”，則計算10!,選中“累力口”和“2000”，則計算1+2+3+…+2000)。單擊“存盤”

按鈕則把文本框中的結(jié)果保存到考生目錄下的。ut4.dat文件中。

要求：編寫“計算”按鈕的Click事件過程。

注意：不得修改已經(jīng)存在的程序，在結(jié)束程序運行之前，必須用“存盤”按鈕

存儲計算結(jié)果，否則無成績。最后，程序按原文件名存盤。

（三）綜合應(yīng)用

注意：下面出現(xiàn)的“考生文件夾”均為%USER%

在考生目錄下有?個工程文件sjt5.vbp。其功能是產(chǎn)生并顯示?個數(shù)列的前n項。數(shù)列產(chǎn)生的

規(guī)律是：數(shù)列的前2項是小于10的正整數(shù)，將此2數(shù)相乘，若乘積＜10,則以此乘積作為數(shù)列的第3

項；若乘積＞=10,則以乘積的十位數(shù)為數(shù)列的第3項，以乘積的個位數(shù)為數(shù)列的第4項。再用數(shù)列的

最后2項相乘，用上述規(guī)則形成后面的項，直至產(chǎn)生了第n項。窗體上部從左到右3個文本框的名稱

分別為：Textl,Text2、Text3,窗體下部的文本框名稱為Text4.程序運行時，在Textl,Text2

中輸入數(shù)列的前兩項，Text3中輸入耍產(chǎn)生的項數(shù)n,單擊“計算”按鈕則產(chǎn)生此數(shù)列的前n項，并

顯示在Text4中。如圖所示。

已經(jīng)給出了全部控件，但程序不完整，請去掉程序中的注釋符，把程序中的？改為正確的內(nèi)容。

注意：不得修改原有程序和控件的屬性。最后把修改后的文件按原文件名存盤。

源代碼如下：

PrivateSubCommand1_C1ick()

Text4=""

a=Vai(Textl)

b=Vai(Text2)

n=Vai(Text3)

'Text4=Text4&a&""&?

k=2

DoWhilek<n

c=a?b

k=k+1

Ifc<10Then

Text4=Text