國家二級VB機試（上機操作）模擬試卷

第1套

一、基本操作題（本題共7題，每題1.0分，共1分。）

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

名稱為Forml的窗體上建立一個名稱為Command1的命令按鈕數組，含三個命令

按鈕，它們的Index屬性分別為0、1、2,標題依次為“是”、“否”、“取消”,每個

按鈕的高、寬均為300、800o窗體的標題為“按鈕窗口運行后的窗體圖3—132

所示。圖3“32注意：存盤時必須存放在考生文件夾下，

工程文件名為sjtl.vbp,窗體文件名為sjtl.firn。（2）在名稱為Forml的窗體上畫

一個名稱為Shal的形狀控件，然后建立一個菜單，標題為“形狀”，名稱為

shapeO,該菜單有兩個子菜單，其標題分別為“正方形”和“圓形”，其名稱分別為

shapel和sh叩e2,如圖3—133所示，然后編寫適當的程序。程序運行后，如果選

擇“正方形”菜單項，則形狀控件顯示為正方形；如果選擇“圓形”菜單項，則窗體上

的形狀控件顯示為圓形。圖3/33注意：程序中不能使用變

量，每個事件過程中只能寫一條語句。保存時必須存放在考生文件夾下，工程文件

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

標準答案：第1小題【操作步驟】步驟1：新建一個“標準EXE”工程，表.4-77

在窗體中用“復制”和“粘貼”畫出控件數組并設置屬性。

?4-77

對象屬性值

NameForm!

窗體

Caption按鈕窗口

NameCommand1

Index0

命令按鈕1Caption是

Width800

Height300

NameCommand!

Index1

命令按鈕2Caption否

Width800

Height300

NameCommand1

Index2

命令按鈕3Caption取消

Width800

Height300

------------------步驟2：按要求將文件保存至

考生文件夾中。第2小題【操作步驟】步驟1：新建一個“標準EXE”工程，在窗

體Forml中畫一個名為Shal的形狀控件。步驟2：選擇【工具】一【菜單編輯

器】命令，打開菜單設計器，如表4—78所示，設置建立菜單項。

*4-78______________

標臆名稱內縮符號

形狀shapeO0

正方形shape11

畫形shape?1

一步驟3：打開代碼編輯窗口，編

寫菜單命令的單擊事件過程。參考代碼：PrivateSubShapel_Click()

Me.Shal.Shapc=1EndSubPrivateSubShape2_Click()Forml.Shal=3EndSub

步驟4：按要求將文件保存至考生文件夾中。

知識點解析：暫無解析

二、簡單應用題（本題共1題，每題1.0分，共7分0）

2、（1）在考生文件夾下有一個工程文件sjt3.vbp,窗體上已經有兩個文本框，名稱

分另IJ為Tcxtl、Tcxt2；一個命令按鈕，名稱為C1,標題為“確定”；請畫兩個單選

按鈕，名稱分別為Opl、0p2,標題分別為“男生”、“女生”；再畫兩個復選框，名

稱分別為Chi、Ch2,標題分別為“體育”、“音樂”。請編寫適當的事件過程，使得

在運行時，單擊“確定”按鈕后實現下面的操作：①根據選中的單選按鈕，在Textl

中顯示“我是男生”或“我是女生”。②根據選中的復選框，在。Text2中顯示“我的愛

好是體育”、“我的愛好是音樂”或“我的愛好是體育音樂”，如圖3—134所示。

注意：不得修改已經給出的程序和已有控件的

屬性。在結束程序運行之前，必須選中一個單選按鈕和至少一個復選框，并單擊

“確定”按鈕。必須使用窗體右上角的關閉按鈕結束程序，否則無成績。（2）在考生

文件夾下有一個工程文件sjt4.vbpo窗體上有一個名稱為Listl的列表框，名稱為

Timerl的計時器，名稱為Labell的標簽，如圖3—135所示。請通過屬性窗口向列

表框添加四個項目，分別是“第一項”、“第二項”、“第三項”、“第四項”。程序運行

后，將計時器的時間間隔設置為1秒鐘，每一秒鐘從列表框中取出一個項目顯示在

Labell的標簽中，首先顯示“第一項”，然后，依次顯示“第二項”、“第三項”、“第

四項“，如此循環。圖3?135在給出的窗體文件中已經有

了全部控件和程序，但不完整，請添加Listl中的項目，去掉程序中的注釋符，把

程序中的，？，改為正確的內容。注意：考生不得修改工程中已經存在的內容和控件

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

標準答案：第1小題【操作步驟】步驟1：打開考生文件夾下的工程文件

sjt3.vbp。步驟2：在窗體Forml中加入兩個單選按鈕和兩個復選框，分別設置

它們的相關屬性，屬性及其值如表4-79所示。

+o圖3?I36注意：存盤時必須存放在考生文件夾

下，工程文件名為sjt5.vbp,窗體文件名為sjt5.frm。

標準答案：【操作步驟】步驟I：新建一個“標準EXE”工程，如表4-80所示,

在窗體中畫出控件并設置其相關屬性。

S4-80

對跳屬性值

NameTextl

文本框MukiLincTrue

Text

NameCommand1

命令按鈕1

Caption讀數

NameCommand2

命令按鈕2

Caption統計

NameCommand?

命令按鈕3

Caption存世

步驟2：打開代碼編輯窗口，

編寫相應事件過程。參考代碼：OptionBase1Dimsum(6)AsIntegerPrivateSub

Command1_Click()penApp.Path&"\in5.txt"ForInputAt#ITextl.Text=

Input(LOF(l),#1)CioSe#1EndSubPrivateSubCommand2_Click()Fori=1To6

sum(i)=0NextiIfLen(Textl.Text)=0ThenMsgBox”請先使用“讀數”功能!”Else

Fori=1ToLen(Textl.Text)C=LCase(Mid(Textl.Text,i,1))SelectCasecCase

"i"sum(l)=sum(l)+1Case"j"sum(2)=sum(2)+1Case"kHsum(3)=sum(3)+1

CaSeC"sum(4)=sum(4)+1CaSe"m"sum(5)=sum(5)+1CaSe"n"sum(6)=sum(6)

+1EndSelectNextiEndIfEndSubPrivateSubCommand3_Click()OpenApp.Path

&”\out5.txt'*ForOutputAs#1Fori=1To6Print=1,sum(i)NextiClose=1

EndSub步驟3：按要求將文件保存至考生文件夾中。

知識點解析：暫無解析

國家二級VB機試(上機操作)模擬試卷

第2套

一、基本操作題(本題共/題，每題1.0分，共1分。)

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

(1)在名稱為Forml的窗體上畫一個命令按鈕，其名稱為Command1,如圖1-

126(a)所示，然后通過屬性窗口設置窗體和命令按鈕的屬性，實現如下功能：

①窗體標題為“設置按鈕屬性“；②命令按鈕的標題為“等級考試”；③程序運行

后，命令按鈕不顯示；④命令按鈕的標題用三號常規黑體顯示。程序的運行情況

如圖1—126(b)所示。

O貨■接到I性|o|[7^i0設置按圖I性Ia1&)I

等級考試

(a)(b)

圖1.126要求：

不編寫任何代碼。注意：存盤時必須存放在考生文件夾下，工程文件名為

sjtl.vbp,窗體文件名為sjll.frm。(2)在名稱為Forml的窗體上畫一個標簽，其

名稱為Labell,在屬性窗口中把BorderStyle屬性設置為1,如圖1—127(a)所

示，編寫適當的事件過程。程序運行后，如果單擊窗體，則可使標簽移到窗體的右

上角(只允許在程序中修改適當屬性來實現)。程序運行情況如圖1—127(b)所

0Forml日Forml

卜》.11

；卜b.ll

(a)(b)

示。圖227要

求：不得使用任何變量。注意：存盤時必須存放在考生文件夾下，工程文件名為

sjt2.vbp,窗體文件名為sjt2.frm。

標準答案：第1小題【操作步驟】步驟1：新建一個“標準EXE”工程，在窗體

Formlsjt5.vbp,中畫一個命令按鈕，并設置它的相關屬性，其屬性及值如表2—47

表2-47

對象屬性值

NameCommand1

Caption等級考試

命令按鈕,FontName黑體

FontSizc三號

VisibleFalse

山一窗體Caption——:二二三二4L——步驟2：按要求

所不。----------------

將文件保存至考生文件夾中。第2小題【操作步驟】步驟1：新建一個“標準

EXE”工程，如表2—48在窗體中畫出控件并設置其相關屬性。

表2?48

對象屬性值

NameLabel1

標簽一

BorderStJvle1

------------步驟2：打開代碼編輯窗

口，編寫窗體的單擊事'牛過程。參考代碼：PrivateSubForm_Click（）Label1.Top=

0Label!.Left=-Form1.Label1.Width+Me.WidthEndSub步驟3：按要求將文件保

存至考生文件夾中。

知識點解析：暫無解析

二、簡單應用題（本題共［題，每題7.0分，共I分0）

2、（I）在考生文件夾下有一個工程文件相應的窗體文件為sjl3.frm0其功能是產

生30個。?1000的隨機整數，放入一個數組中，然后輸出其中的最小值。程序運

行后，單擊命令按鈕（名稱為Commandl,標題為“輸出最小值”），即可求出其最

小值，并在窗體上顯示出來（如圖1—128所示）。這個程序不完整，請把它補充

完整，并能正確運行。圖1/28要求：去掉程序中的注

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

他部分。最后把修改后的文件按原文件名存盤。(2)在考生文件夾下有一個工程

文件sjt4.vbp,相應的窗體文件為sjt4.frm,在窗體上有一個命令按鈕和一個文本

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

的個數，并在文本框中顯示出來。在窗體的代碼窗口中，已給出了部分程序，其中

計算不能被7整除的整數的個數的操作在通用過程Fun中實現，請編寫該過程的

代碼。要求：請勿改動程序中的任何內容，只在FunctionFun。和EndFunction之

間填入編寫的若干語句。最后把修改后的文件按原文件名存盤。

標準答案：第1小題【操作步驟】步驟1：打開考生文件中的本題工程文件

sjt3.vbp,在代碼編輯窗口，去掉程序中的注釋符將問號”?”改為正確的內容。

參考代碼：arrN(i)=Int(Rnd*1000)Min=arrN(l)IfarrN(i)<MinThen步驟2：按

要求將文件保存至考生文件夾中。第2小題【操作步驟】步驟1：打開考生文件

下的本題工程文件sjt4.、；bp,在代碼編輯窗口，編輯Fun函數的內容。參考代碼：

Fori=1To1000IfiMod7<>0ThenY=Y+1EndIfNextiFun=Y步驟2：按

要求將文件保存至考生文件夾中。

知識點解析：暫無解析

三、綜合應用題(本題共1題，每題1.0分，共I分。)

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

操作：在名稱為Forml的窗體上畫兩個命令按鈕，其名稱分別為C1和C2,標題

分別為“讀入數據”和“計算”(如圖1—129所示)。程序運行后,如果單擊“讀入數

據“按鈕，則調用題目所提供的RcadDatal和RcadData2過程讀入datainl.txt和

daiain2.txt文件中的各20個整數，分別放入Arrl和Arr2兩個數組中；如果單擊

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

第一個數組的第n個元素減去第二個數組的第n個元素，其結果作為第三個數組的

第n個元素。這里的n為1,2,…，20),最后計算第三個數組各元素之和，把

所求得的和在窗體上顯示出來；并調用題1=1中給出的WriteData過程將所求得的和

存入考生文件夾下的DataOuLtxt文件中。圖^129

注意：考生不得修改窗體文件中己經存在的程序，且必須執行此程序一次，最后把

修改后的文件以原來的sjt3.vbp,文件名存盤。

標準答案：【操作步驟】步驟1：打開考生文件中的本題工程文件爾5.vbp,在窗

體中如表2—49畫出控件，并設置其屬性。

裝2?49

對象屬性值

命令按鈕NameCl

1Caption讀入數據

命令按鈕NameC2

2Caption計算

步驟2：在代碼編輯窗口編

寫以下事件過程v參考代碼：DimSumAsIntegerPrivateSubCl_Click()

ReadData1ReadData2EndSubPrivateSubC2_Click()DimArr3(20)AsIntegerDim

SumAsIntegersjt4.vbp,Sum=0Fori=ITo20Arr3(i)=AiTl(i)-Arr2(i)Sum=

Sum+Arr3(i)NextiPrint"Sum=M;SumWriteData"dataout.txt",SumEndSub步驟

3：按要求將文件保存至考生文件夾中。步驟4：按VF5＞鍵運行程序，先單擊“讀

入數據“按鈕，然后單擊“計算”按鈕。

知識點解析：暫無解析

匾家二級VB機試（上機操作）模擬試卷

第3套

一、基本操作題（本題共［題，每題7.0分，共7分。）

1、（1）在名稱為Fonnl,標題為“選課”的窗體上添加一個復選框數組，名稱為

CH1,共有四個復選框，按順序其標題分別是“數學”、“語文”、“外語”、”計算

機”，其中“語文”、“計算機”笈選框處在選中狀態下，程序運行時的窗體如圖所

示。請按要求添加控件并設置相應屬性。注意：存盤時必須存放在考生文件夾

下，工程文件名保存為sjtl.vbp,窗體文件名保存為sjtl.frm。

（2）在名稱為Forml的窗體上添加一個名稱為HSI的水平滾動

條，其刻度值范圍為添加一個命令按鈕，名稱為C1,標題為“移動滾動

框請編寫適當的事件過程，使得在程序運行時，每單擊命令按鈕一次（假定單擊

次數不多于10次），滾動框向右移動10個刻度。程序運行時的窗體如圖所示。要

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

一1jj

----:注意：存盤時必須存放在考生文件名保存為

sjt2.vbp,窗體文件名保存為sjt2.frm。

標準答案：（1）【操作步驟】步驟1：新建窗體，按照題目要求建立控件并設置屬

表4.30

控件屬性設置他

.阻選樞1Captkwi敗學

Caption語文

夏選框2

Valur1

M選框3Caption英語

(option計算機

復選根4

Valur1

性，如表4.30所示。南體(Sapiion選摞步驟2：調

試并運行程序，關閉程序后按題目要求存盤。（2）【操作步驟】步驟1：新建一個

窗體，按照題目要求建立滾動條控件及命令按鈕控件并設置其屬性，如圖4.25所

___________Q

■e/

示。圖4.25程序中用到的控件及屬性見表

HS1.Value=HSl.Vahie+10'當用戶單擊”移動滾動框”按鈕則滾動條的Value加10

EndSub步驟3：調試并運行程序，關閉程序后按題目要求存盤。

知識點解析：⑴復選框（CheckBox）常用于提供多個選項間的多重選擇，Value的屬

性值決定每個復選框的選中狀態：0―Unchecked為未選，1一Cheeked為選中，2

一Grayed為變灰色。選擇某復選框后，該復選框將顯示“W,而取消選擇后“寸'消

失。（2）在單擊命令按鈕觸發的Click事件中加入讓滾動條的Value屬性值加10的

語句，在每次單擊命令按鈕后，滾動條就向右移動10個刻度.

二、簡單應用題（本題共1題，每題1.0分，共/分C）

2、（1）在考生文件夾下有一個工程文件爾3.vbp,窗體上已經有一個標簽Label1,

請添加一個單選按鈕數組，名稱為Opl，含三個單選按鈕，它們的Index屬性分別

為0、1、2,標題依次為“飛機”、“火車”、“汽車”,再添加一個名稱為Textl的文

本框。窗體文件中已經給出了Opl的Click事件過程，但不完整，要求去掉程序中

的注釋符，把程序中的。改為正確的內容，使得在程序運行時單擊“飛機”或“火車”

單選按鈕時，在Textl中顯示“我坐飛機去”或“我坐火車去”，單擊“汽車”單選按鈕

時，在Textl中顯示“我開汽車去”，如圖所示。

注意：不能修改程序中的其他部分。最后將修改后的文件按原文件名存盤。（2）在

考生文件夾下有一個工程文件sjt4.vbp,Forml窗體中有一個文本框，名稱為

Textl；請先在窗體上添加兩個框架控件，名稱分別為Fl、F2,標題分別為“性

別”、“身份”；然后在F1中添加兩個單選按鈕控件Opl、op2,標題分別為“男”、

“女”：其次在F2中添加兩個單選按鈕控件op3、0p4,標題分別為“學生”、“教

師”；最后再添加一個命令按鈕，名稱為C1,標題為“確定”，如圖所示。請編寫適

當的事件過程，使得運行時，在Fl、F2中各選一個單選按鈕，然后單擊“確定”按

鈕，就可以按照下表把結果顯示在文本框中。

性別身份在文本棺中顯示的內容

rl

男學生我是男學生

力教前我是男教警

女學生我是女學生

女教前我是女教帥

最后把修改后的文件以原來的文

件名存盤。注意：考生不得修改窗體文件中已經存在的程序和Textl的屬性，在

結束程序運行之前，必須進行能夠產生上表中一個結果的操作。必須用窗體右上角

的關閉按鈕結束程序，否則無成績。

標準答案：（1）【操作步驟】步驟1:打開本題工程文件，按照題目要求建立單選

按鈕數組，如圖4.9所示。圖4.9步驟2：按照

題目要求建立其他控件并設置其屬性，見表4.4。

表4.4

■控件屬性設置值

Caption飛機

單選按鈕1

0

Option火車

單選按鈕2

1fMic1

Caption汽車

a.選按鈕3

liukx2

文本框Name

-------------步驟3：打開代碼編輯窗口,

去掉程序中的注釋符將問號改為正確的內容。參考答案(畫線部分是需考生填

入的內容)PrivateSubOpl_Click(IndexAsInteger)DimaAsString,bAsString,c

AsStringa="我坐"b廿我開'SelectCaseIndex，通過Index值決定響應哪一個控件數

組Case0Textl.Texi=a+Me.Op1(0).Caplion+"去"CaseI

Textl.Text=a+Me.Opl(l).Caption+“去“'當Index值為1時，選擇“我坐“Case2

Textl.Text=b+Me.Op1(2).Caption+“去“EndSelectEndSub步驟4：調試并運行

程序，美閉程序后按題目要求存盤。(2)【操作步驟】步驟1：打開本題工程文

件，按照題目要求建立框架控件并設置其屬性，如圖4.10所示。

圖4.10步驟2：按照步驟1建立其他控

件并設置相關屬性，程序中用到的控件及屬性見表4.5和表4.6o

表4.5

控件屬性設置他

NwnrFl

框架1

Caption性別

Namen

框架2

Caption身份

NameCl

命令按鈕

Caplion確定

?4.6

控件屬性設置值

NameOpi

單選按鈕i

Caption男

Namr*O|)2

年選按鈕2

Caplion女

NamrOp3

削選按鈕3

C?plion學生

N?m?*

不選按鈕3

教帥

Caption步驟3：打開代碼編輯窗口，

在指定位置編寫如下代碼。參考答案PrivatesubCI_Click（）Textl.Text="我是"，首

先確定不論選什么情況Textl的內容一定以"我是"開頭IfOpl.ValueThen

Textl.Text=Textl.Text&Opl.CaptionElseTextl.Text=Textl.Text&

Op2.CaptionEndIf，通過單選按鈕的value值（選擇為true,否則為false）確認性

別，最后把其Caption值接至Textl后If0p3.ValueThen

Textl.Text=Textl.Text&Op3.CaptionElseTextl.Text=Textl.Text&

Op4.CaptionEndIP確認身折，思路同上EndSub步驟4：調試并運行程序，關閉

程序后按題目要求存盤。

知識點解析：（1）通過Name屬性設置對象名稱；通過Caplion屬性設置對象的標

題：設置兩個字符型變量a、b,a：“我坐“，b="我開”，用于SelectCase選擇語句

的字符串連接；通過對單選按鈕數組Index屬性的查詢，實現單擊單選按鈕完成字

符串連接和文本框顯示操作的功能。（2）在窗體上建立好控件后，先設置控件屬

性，再編寫事件過程。本題需注意容器中控件的畫法。命令按鈕標題由Caption屬

性設置，單擊命令觸發Click事件；單選按鈕的標題由Caption屬性設置，程序中

需要檢測單選按鈕的狀態，通過Value屬性來實現，如果單選按鈕被選中，則

Value值為1,否則Value值為0。在文本框中顯示內容通過Text屬性實現，其形

式為：文本框名.Text二顯示的內容。在VisualBasic程序中，Open語句用于打開

順序文件，打開順序文件的基本格式為：OpenFileNameForModeAs

#FileNumbero其中，FileName表示要打開的文件的路徑；Mode為打開模式，

OutPut用于輸出，Append用于追加寫入，Input用于讀取；FileNumber為打開文件

時指定的句柄。讀文件操作在窗體的Load事件過程中完成，寫文件操作在命令按

鈕的Click事件過程中完成。

三、綜合應用題(本題共1題，每題1.0分，共1分。)

3、考生文件夾下有一個工程文件sjt5.vbp,窗體上有兩個文本框，名稱分別為

TcxtKText2,都可以多行顯示。還有三個命令按鈕，名稱分別為Cl、C2、C3,

標題分別為“取數”、“排序”、“存盤”。“取數”按鈕的功能是將考生文件夾下的

in5.dat文件中的50個整數讀到數組中，并在Texd中顯示出來；“排序”按鈕的功

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

的50個數存到考生目錄下的。ut5.dat文件中，如31所示。在窗體中已經給出了全

部控件和部分程序代碼，要求閱讀程序并去掉程序中的注釋符，把程序中的?改為

正確的內容，并編寫“排序”按鈕的Click事件過程，使其實現上述功能，但不能修

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

標準答案：【操作步驟】步驟1：打開本題工程文件。步驟2：打開代碼編輯窗

口，去掉程序中的注釋符將問號改為正確的內容，并編寫代碼。參考答案(陰

影部分是需考生填入的內容)Dima(50)AsIntegerPrivateSubCl_Click()DimkAs

Integer,chAsStringOpen"in5.dat"ForInputAs#1ch=""Fork=lTo5()Input#1,

通’將取出的數據存入數組a中ch=ch+Str(a(k))+”'“將數據存入chNextkClose#!

Textl.Text二比'在TextI文本框中顯示文件內容EndSubPrivateSubC2click()End

SubPrivateSubC3Click()Open"out5.dat"ForOutputAs#1Print#1,Text2.Text

Close#1EndSub需編寫的“排序”按鈕的代碼PrivateSubC2Click()DimtAsInteger

DimiAsIntegerDimjAsIntegerDimchAsStringch=n"Fori=50To2Step—1'使用

冒泡算法從小到大排序Forj=lT。49汗@6>@0+1)「^^兩兩比較t=a(j+l)

a(j+l)=a(J)a(j)=tEndIfNextjNextiForj=lTO50,將排序后的數組重新賦給ch

ch=ch4-Str(a(j))+""NextjText2.Text=chEndSub步驟3：調試并運行程序，關閉程

序后按題目要求存盤。’

知識點解析：str函數用于數值轉化為字符串，語法為：Str(number)o在循環語句

中Slep表示步長，可以為正數，表示下一個變量加一個數，也可以為負數，貝］相

反，在默認情況下，步長為1,就不需要使用Step特意標識。“冒泡法”是一種重

要的數據排序算法，它的核心思路是按順序讓一個數列中的每一個數都與它之后的

所有的數逐一進行比較，如果該數大于其后面的數，則把這兩個位置的數進行交

換。通過這樣的循環，最終按照從小到大的順序排列出該數列。從程序提供的代碼

中可以看出，整型數組a的使用范圍是本窗體中的所有事件過程，用來存放從文件

中讀取的數據。在排序中，使用雙重循環，外循環每循環一次，確定內循環循環的

次數，內循環就是把本次循環中最大的數，放在數組的最后而，這樣就可以實現對

這50個數的升序排序。

國家二級VB機試（上機操作）模擬試卷

第4套

一、基本操作題（本題共［題，每題1.0分，共/分。）

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

（1）在名稱為Forml的窗體上畫兩個標簽（名稱分別為Labell和Label2,標題分

別為“姓名”和“年齡、兩個文本框（名稱分別為Textl和Text2,Text屬性均為

空白）和一個命令按鈕（名稱為Commandl,標題為“顯示”）。然后編寫命令按鈕

的Click事件過程。程序運行后，在兩個文本框中分別輸入姓名和年齡，然后單擊

“顯示”按鈕，則在窗體上顯個兩個文本框中的內容，如圖1—263所示。要求程序

CtFormlI^-1=

姓幺年聆

不

顯示

中不得使用任何變量。圖1?263注意：存盤時必須存放

在考生文件夾下，工程文件名為sjtl.vbp,窗體文件名為sjtl.frm。（2）在名稱為

Forml的窗體上畫一個圖片框（名稱為Picture］）、一個水平滾動條（名稱為

HScrolll）和一個命令按鈕（名稱為Command1,標題為“設置屬性”），通過屬性

窗口在圖片框中裝入一個圖形（文件名為picl.jpg,位于考生目錄下），圖片框的

高度與圖形的高度相同，圖片框的寬度任意（如圖1—264（a）所示）。編寫適當的

事件過程，程序運行后，加果單擊命令按鈕，則設置水平滾動條的加下屬性：Min

=100Max=1500LargeChange=100SmallChange=10之后就可以通過移動滾動條

上的滾動塊來放大或縮小圖片框。運行后的窗體如圖1—264（b）所示。要求程序中

DF.三面!IW￡3B|

±1，

(a)(b)

不得使用任何變量。圖1-264注

意：存盤時必須存放在考生文件夾下，工程文件名為sjtZvbp,窗體文件名為

sjt2.frmo

標準答案：第1小題【操作步驟】步驟1：新建一個“標準EXE”工程，如表2-

134在窗體中畫出控件并設置其相關屬性。

S2-134

對象屬性值

NameLabel1

標簽1

Caption姓名

NameLabel2

標簽2-

Caption年齡

NameTextl

文本框1

Text

NameText2

文本框2

Text

NameCommandI

命令按鈕

Caption顯示

步驟2：在代碼編輯窗

口，編寫命令按鈕的Click事件過程。參考代碼：PrivateSubCommandI_Click()

PrintTextl.Text;",現年”;Text2.Text;"歲"EndSub步驟3：按要求將文件保彳至考生

文件夾中。第2小題【操作步驟】步驟1：新建一個“標準EXE”工程，在窗體

Forml中畫一個圖片框和一個水平滾動條，在屬性設置窗口中設置其相關屬性，其

屬性及值如表2—135所示。

S2-135

對象屬性設置值

NamePicture1

圖片框

PictureP?c1jpg

水平滾動條NameHScroll1

NameCommand1

命令按鈕

Caption設置屬性

步驟2；打開代碼編輯窗

口，分別編寫命令按鈕的Click事件過程和水平滾動條的Change事件過程。參考

代碼：PrivateSubCommandl_Click()HScrolll.Min=100HScrolll.Max=1500

HScroll1.LargeChange=100HScroll1.SmallChange=10EndSubPrivateSub

HScrolll_Change()Picture!.Width=HScroll1.ValueEndSub步驟3：按要求將文件

保存至務生文件夾中。

知識點解析：暫無解析

二、簡單應用題（本題共［題，每題7.0分，共［分°）

2、（1）在考生文件夾下有一個工程文件sjt3.vbp1相應的窗體文件名為

sjt3.frm）,請裝入該文件，在窗體上畫一個列表框（名稱為Listl）和一個文本框

（名稱為Textl）,如圖l—265（a）所示。編寫窗體的MouseDown事件過程。程序

運行后，如果用鼠標左鍵單擊窗體，則從鍵盤上輸入要添加到列表框中的項目（內

容任意，不少于三個）；如果用鼠標右鍵單擊窗體，則從鍵盤上輸入要刪除的項

目，將其從列表框中刪除。程序的運行情況如圖1—265（b）所示。提供的窗體文件

可以實現上述功能。但這個程序不完整，請把它補充完整。

(a)(b)

圖1-265要求：去掉程序中的注釋

符，把程序中的?改為適當的內容，使其正確運行，但不能修改程序中的其他部

分。最后把修改后的文件按原文件名存盤。（2）在考生文件夾下有一個工程文件

sjt4.vbp（相應的窗體文件名為sjt4.frm）,其功能是通過調用過程FindMin求數組

的最小值，請裝入該文件。程序運行后，在四個文本框中各輸入一個整數，然后單

擊“求最小值”按鈕，即可求出數組的最小值，并在窗體上顯示出來(如圖1—266

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

圖1-266要求：去掉程序中的注釋符，把程序

中的?改為正確的內容，使其實現上述功能，但不能修改程序中的其他部分。最后

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

標準答案：第1小題【操作步驟】步驟1：打開考生文件夾中的本題工程文件

sjt3.vbp,如表2—136所列在窗體Forml中畫出控件并設置它們的屬性。

表2?136

對象屬性值

NameLisiI

列表框

List任意

NameTextl

文本框

Text

步驟2：打開代碼編輯窗

口，去掉程序中的注釋將“巾，將問號"?''改為正確的內容。參考代碼：

ListI.AdditemText1.TextFori=0ToListI.ListCount-IIfListl.List(i)=Text1.Text

ThenList1.Removeitemi步驟3：按要求將文件保存至考生文件夾,。第2小題

【操作步驟】步驟1：打開考生文件夾下的本題T程文件爾4.vbp.在代碼編輯窗

n,去掉程序中的注釋符“巾，將問號"?”改為正確的內容。參考代碼：Start=

LBound(a)Finish=UBound(a)Min=a(Start)Ifa(i)>MinThenMin=a(i)M=

FindMin(arr2)步驟2：按要求將文件保存至考生文件夾中。

知識點解析：暫無解析

三、綜合應用題(本題共I題，每題1.0分，共1分C)

3、在窗體上建立三個菜單(名稱分別為Read、Calc和Save,標題分別為“讀人數

據”、“計算并輸出''和"存盤”)，然后畫一個文本框(名稱為Textl,MultiLine屬

性設置為True,ScrollBars屬性設置為2)(如圖1—267所示)。程序運行后，如

果單擊“讀入數據”按鈕，則讀入datainl.txt文件中的100個整數，放入一個數組

中，數組的下界為1;如果單擊“計算并輸出“按鈕，則把該數組中下標為偶數的元

素在文本框中顯示出來，求出它們的和，并把所求得的和在窗體上顯示出來：如果

單擊“存盤”按鈕，則把所求得的和存入考生文件夾下的dataout.txt文件中。

圖1-267

在考生文件夾下有一個工程文件sjt5.vbp,考

生可以裝入該文件。窗體文件中的ReadDala過程可以把datainl.txt文件中的100

個整數讀入Arr數組中；而WriteData過程可以把指定的整數值寫到考生文件夾下

指定的文件中（整數值通過計算求得，文件名為出taouLtxt）。注意：考生不得修

改窗體文件中已經存在的程序。存盤時，工程文件名為m5.vbp,窗體文件名為

sjt5.frmo

標準答案：【操作步驟】步驟1：打開考牛文件下的本題T程文件sjSvbp,利用

菜單設計器，如表2—137中的設置建立菜單項。

?2-137

標題名稱內縮符號

讀入數據Read0

計算并輸出Calc0

存盤Save0

步驟2：在窗體Forml中畫

一個文本框，具相關屬性及值如表2—138。

S2-138

對象屬性值

NameTextl

文本框MultiLineTrue

ScrollBars2

步驟3：在代碼編輯窗口，

分別編寫三個菜單項的Click事件過程v參考代碼：DimSumAsIntegerPrivare

SubRead_Click()ReadDataEndSubPrivateSubCalc_Click()DimSAsStringSum=0

Fori=ITo100IfiMod2=0ThenSum=Sum+Arr(i)S=S&Str(Arr(i))&"“End

IfNextiText1.Text=SPrint"Sum=SumEndSubPrivateSubSave_Click()

WriteData"Dataout.txt1；SumEndSub步驟4：按要求將文件保存至舍生文件夾中。

知識點解析：暫無解析

國家二級VB機試（上機操作）模擬試卷

第5套

一、基本操作題（本題共/題，每題1.0分，共1分。）

1、（1）在名稱為Forml的窗體上添加一個名稱為Shapcl的形狀控件、通過設置參

數使其形狀為圓形；添加一個名稱為LabelI的標簽，標題為“形狀”，標簽的大小

能夠根據標簽內容的字數、大小而定：添加一個名稱為Textl的文本框，文本框最

多能夠顯示5個字符，文本框中初始內容為“圓形'如圖所示。

注意：存盤時，將文件保存至考生文件夾下，且窗

體文件名為sjtl.frm,工程文件名為sjtl.vbp0⑵在名稱為Form1的窗休上添加

一個名稱為Labell的標簽，字號大小為四號，標題為“等級考試”，如圖1所示。

通過設置屬性使標簽初始為不顯示。請編寫適當的程序，使得運行程序時，窗體的

標題立即變為“標簽”，單擊窗體時，顯示標簽，如圖2所示。注意：存盤時，將

文件保存至考生文件夾下，且窗體文件名保存為sji2.frm,工程文件名保存為

sjt2.vbpo要求程序中不得使用變量，每個事件過程中只能寫一條語句。

圖2

標準答案：（I）【操作步驟】步驟1：新建一個窗體，按照題目要求建立形狀控

件、標簽控件及文本框控件并設置其屬性，如圖4.27所示。程序中用到的控件及

困4.27

衰4.36

控件,性設置值

Namel^brll

林裳(LpOon形狀

AutoSurTurr