全國等級考試VB考試訓練題

全國等級考試VB考試訓練題

第01套：

(―)基本操作

注意：下面出現的“考生文件夾”均為%USER%

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

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

*注意：

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

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

1)通過屬性窗口設置適當的屬性，使Textl、Text2中顯示的文本的字體為“隸書”；

2)編寫適當的事件過程，使得在Textl中輸入每一個字符時，立即在Text2中顯示Textl中的內

容，如圖所示。

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

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

(二)簡單應用

注意：下面出現的“考生文件夾”均為%USER%

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

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

已經畫出，但沒有給出主要程序內容，請編寫適當的事件過程，完成上述功能。

*注意：

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

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

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

—rml

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

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

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

要求：

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

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

源文件如下：

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

(三)綜合應用

注意：下面出現的“考生文件夾”均為%USER%

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

中的注釋符，把程序中的？改為正確的內容。

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

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

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

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

輸入查找內容！

*注意：

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

?.Form1

劉

_芬

陳

紅查找內容防

沈

枚

張

定

劉

一i

陳

慶查找結果陳紅陳慶

馬

華陽陳紋

李

麗

郝

強

朱

群

陳

紋

郝

玫

張

雨

張

定

劉

三

源代碼如下：

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="未輸入查找內容！"

EndIf

EndSub

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

※※※※※※※※※※

第02套：

(―)基本操作

注意：下面出現的“考生文件夾”均為%USER%

請根據以下各小題的要求設計VisualBasic應用程序（包括界面和代碼）。

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

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

和編寫代碼：

1）設置適當屬性，使對話框的標題為“打開文件”；

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

圖所示），默認的類型是“所有文件”；

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

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

*注意：

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

Forml

打并文件11

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

要求編寫適當的事件過程，使得程序運行時，每單擊按鈕一次，按鈕向左移動I00o要求：程序

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

*注意：

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

（二）簡單應用

注意：下面出現的“考生文件夾”均為%USER%

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

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

于3個，內容任意）；再畫兩個命令按鈕，名稱分別為Commandl、Command2,標題分別為“添加”、“統計”。

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

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

鈕的Click事件過程。

*注意：

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

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

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

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

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

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

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

*注意：

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

源代碼如下：

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

(三)綜合應用

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

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

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

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

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

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

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

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

源代碼如下：

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套：

（一）基本操作

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

請根據以下各小題的要求設計VisualBasic應用程序（包括界面和代碼）。

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

屬性，實現如下功能：

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

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

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

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

5）窗體的標題為“設置文本框屬性”

完成設置后的窗體如圖所示。

要求：不編寫任何代碼。

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

（2）在名稱為Forml的窗體上畫兩個命令按鈕（見圖1）,其名稱分別為Cmdl和Cmd2,編寫適當的事

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

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

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

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

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

kForml,|n|x|

Cmdl

Cmd2

圖圖2。

（二）簡單應用

注意：下面出現的“考生文件夾”均為%USER%

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

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

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

補充完整，并能正確運行。

要求：

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

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

源代碼如下：

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,相應的窗體文件為sjt4.frm,在窗體上有一個命令按鈕

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

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

7整除的整數的個數的操作在通用過程Fun中實現，請編寫該過程的代碼。

要求：

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

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

(三)綜合應用

注意：下面出現的“考生文件夾”均為%USER%

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

datain.txt的文本文件，其內容如下:

32437658281298573142536475869713243546576879805937

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

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

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

要求：

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

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

源代碼如下：

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"左上-右下對角線上的數為：”

Fori=1ToN

Forj=1ToM

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

Nextj

Nexti

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

※※※※※※※※※※

第04套：

(-)基本操作

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

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

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

設置窗體和命令按鈕的屬性，實現如下功能：

1)窗體標題為“設置按鈕屬性”

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

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

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

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

要求：不編寫任何代碼。

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

圖“圖2^

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

1（如圖1所示），編寫適當的事件過程。程序運行后，如果單擊窗體，則可使標簽移到窗體的右上角（只

允許在程序中修改適當屬性來實現）.

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

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

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

圖1P圖2。

（二）簡單應用

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

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

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

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

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

要求：

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

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

源代碼如下：

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,相應的窗體文件為sjt4.frni,在窗體上有?個命令按鈕

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

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

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

要求：

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

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

（三）綜合應用

注意：下面出現的“考生文件夾”均為%USER%

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

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

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

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

擊“計算”按鈕，則把兩個數組中對應下標的元素相減，其結果放入第三個數組中（即：第一個數組的第n

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

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

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

注意：

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

文件名存盤。

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

※※※※※※※※※派

第05套：

（一）基本操作

注意：下面出現的“考生文件夾”均為%USER%

請根據以下各小題的要求設計VisualBasic應用程序（包括界面和代碼）。

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

性，實現如下功能：

1）窗體標題為“設置標簽屬性”

2）標簽的位置為：距窗體左邊界500,距窗體頂邊界300

3）標簽的標題為“等級考試”

4）標簽可以根據標題的內容自動調整其大小

5）標簽帶有邊框

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

要求：不編寫任何代碼。

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

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

編寫適當的事件過程。程序運行后，如果單擊命令按鈕，則按如下要求設置水平滾動條的屬性：

Max=窗體寬度

Min=0

LargeChange-50

Smal1Change=10

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

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

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

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

（二）簡單應用

注意：下面出現的“考生文件夾”均為%USER%

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

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

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

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

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

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

源代碼如下：

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,相應的窗體文件為sjt4.frm,在窗體上有一個命令按鈕

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

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

在通用過程Fun中實現，請編寫該過程的代碼。

要求：

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

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

(三)綜合應用

注意：下面出現的“考生文件夾”均為%USER%

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

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

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

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

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

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

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

經給出，請為“計算”按鈕編寫適當的事件過程以實現上述功能。

注意：

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

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

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

※※※※※※※※※※

第06套：

（一）慕本操作

注意：下面出?現的“考生文件夾”均為機SE即

請根據以卜各小題的要求設計VisualBasic應用程序（包括界面和代碼）。

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

動條的屬性，實現如下功能：

1）窗體標題為“設置滾動條屬性”

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

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

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

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

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

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

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

（2）在名稱為Rrnnl的窗體上畫一個文本框，其名稱為Textl（如圖1所示），編寫適當的事件過程。程

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

移到窗體的右上角“

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

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

*注意:

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

圖IP圖2P

（-）簡單應用

注意；下面出現的“考生文件夾”均為機JSER%

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

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

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

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

要求：

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

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

源代碼如下：

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,相應的窗體文件為sjt4.frm,在窗體上有一個命令按鈕

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

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

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

要求：

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

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

(三)綜合應用

注意：下面出現的“考生文件夾”均為%USER%

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

datain.txt的文本文件，其內容如下：

32437658281298573142536475869713243546576879805937

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

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

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

要求：

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

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

源代碼如下：

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套：

（一）基本操作

注意：下面出現的“考生文件夾”均為機SE照

請根據以下各小題的要求設計VisualBasic應用程序（包括界面和代碼）。

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

示），然后通過屬性窗口設置窗體和單選按鈕的屬性，實現如下功能：

1）窗體標題為“設置單選按鈕屬性”

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

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

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

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

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

要求；不編寫任何代碼。

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

圖圖2r

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

編寫適當的事件過程。程序運行后，如果單擊命令按鈕，則按如下要求設置垂宜滾動條的屬性：

Max=窗體高度

Min=0

LargeChange=50

SmallChange=10

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

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

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

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

（二）簡單應用

注意：下面出現的“考生文件夾”均為%USER%

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

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

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

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

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

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

源代碼如下：

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,相應的窗體文件為sjt4.frm,在窗體上有一個命令按鈕

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

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

請編寫該過程的代碼。

要求：

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

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

(三)綜合應用

注意：下面出現的“考生文件夾”均為%USER%

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

datain.txt的文本文件,其內容如下:

32437658281298573142536475869713243546576879805937

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

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

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

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

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

源代碼如下：

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"右上-左下對角線上的數為：〃

Fori=1ToN

Forj=1ToM

'If?Then

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

EndIf

Nextj

Nexti

EndSub

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

※※※※※※※※※※

第08套：

(一)基本操作

注意：下面出現的“考生文件夾”均為%USER%

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

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

并利用屬性窗口設置適當的屬性，使其居中顯示“等級考試”，并使標簽的外觀如圖所示。運行后的窗體見

下圖。

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

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

小以適應圖像框的尺寸；再畫三個命令按鈕，名稱分別為Command1,Comtnand2,Commands,標題分別為

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

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

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

請編寫相應控件的Click事件過程，實現上述功能。

注意：

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

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

（二）簡單應用

注意：口面出現的“考生文件夾”均為%USER%

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

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

個文本框中輸入6個得分，輸入難度系數后，單擊“計算分數”按鈕，則可計算出最后得分并在文本框Text3

中顯示（如圖所示）。

計算方法：

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

結果保留到第2位小數，不四舍五入。

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

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

源代碼如下：

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”菜

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

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

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

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

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

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

（三）綜合應用

注意：下面出現的“考生文件夾”均為%USER%

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

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

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

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

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

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

顯示在Text4中。如圖所示。

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

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

源代碼如下：

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