國家二級VB機(jī)試（上機(jī)操作）模擬試卷8

國家二級VB機(jī)試（上機(jī)操作）模擬試卷

第1套

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

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

名稱為Forml的窗體上建立一個(gè)名稱為Command1的命令按鈕數(shù)組，含三個(gè)命令

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

按鈕的高、寬均為300、800o窗體的標(biāo)題為“按鈕窗口運(yùn)行后的窗體圖3—132

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

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

一個(gè)名稱為Shal的形狀控件，然后建立一個(gè)菜單，標(biāo)題為“形狀”，名稱為

shapeO,該菜單有兩個(gè)子菜單，其標(biāo)題分別為“正方形”和“圓形”，其名稱分別為

shapel和sh叩e2,如圖3—133所示，然后編寫適當(dāng)?shù)某绦?。程序運(yùn)行后，如果選

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

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

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

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

標(biāo)準(zhǔn)答案：第1小題【操作步驟】步驟1：新建一個(gè)“標(biāo)準(zhǔn)EXE”工程，表.4-77

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

?4-77

對象屬性值

NameForm!

窗體

Caption按鈕窗口

NameCommand1

Index0

命令按鈕1Caption是

Width800

Height300

NameCommand!

Index1

命令按鈕2Caption否

Width800

Height300

NameCommand1

Index2

命令按鈕3Caption取消

Width800

Height300

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

考生文件夾中。第2小題【操作步驟】步驟1：新建一個(gè)“標(biāo)準(zhǔn)EXE”工程，在窗

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

器】命令，打開菜單設(shè)計(jì)器，如表4—78所示，設(shè)置建立菜單項(xiàng)。

*4-78______________

標(biāo)臆名稱內(nèi)縮符號

形狀shapeO0

正方形shape11

畫形shape?1

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

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

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

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

知識點(diǎn)解析：暫無解析

二、簡單應(yīng)用題（本題共1題，每題1.0分，共7分0）

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

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

按鈕，名稱分別為Opl、0p2,標(biāo)題分別為“男生”、“女生”；再畫兩個(gè)復(fù)選框，名

稱分別為Chi、Ch2,標(biāo)題分別為“體育”、“音樂”。請編寫適當(dāng)?shù)氖录^程，使得

在運(yùn)行時(shí)，單擊“確定”按鈕后實(shí)現(xiàn)下面的操作：①根據(jù)選中的單選按鈕，在Textl

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

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

注意：不得修改已經(jīng)給出的程序和已有控件的

屬性。在結(jié)束程序運(yùn)行之前，必須選中一個(gè)單選按鈕和至少一個(gè)復(fù)選框，并單擊

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

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

Timerl的計(jì)時(shí)器，名稱為Labell的標(biāo)簽，如圖3—135所示。請通過屬性窗口向列

表框添加四個(gè)項(xiàng)目，分別是“第一項(xiàng)”、“第二項(xiàng)”、“第三項(xiàng)”、“第四項(xiàng)”。程序運(yùn)行

后，將計(jì)時(shí)器的時(shí)間間隔設(shè)置為1秒鐘，每一秒鐘從列表框中取出一個(gè)項(xiàng)目顯示在

Labell的標(biāo)簽中，首先顯示“第一項(xiàng)”，然后，依次顯示“第二項(xiàng)”、“第三項(xiàng)”、“第

四項(xiàng)“，如此循環(huán)。圖3?135在給出的窗體文件中已經(jīng)有

了全部控件和程序，但不完整，請?zhí)砑覮istl中的項(xiàng)目，去掉程序中的注釋符，把

程序中的，？，改為正確的內(nèi)容。注意：考生不得修改工程中已經(jīng)存在的內(nèi)容和控件

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

標(biāo)準(zhǔn)答案：第1小題【操作步驟】步驟1：打開考生文件夾下的工程文件

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

它們的相關(guān)屬性，屬性及其值如表4-79所示。

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

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

標(biāo)準(zhǔn)答案：【操作步驟】步驟I：新建一個(gè)“標(biāo)準(zhǔn)EXE”工程，如表4-80所示,

在窗體中畫出控件并設(shè)置其相關(guān)屬性。

S4-80

對跳屬性值

NameTextl

文本框MukiLincTrue

Text

NameCommand1

命令按鈕1

Caption讀數(shù)

NameCommand2

命令按鈕2

Caption統(tǒng)計(jì)

NameCommand?

命令按鈕3

Caption存世

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

編寫相應(yīng)事件過程。參考代碼：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”請先使用“讀數(shù)”功能!”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：按要求將文件保存至考生文件夾中。

知識點(diǎn)解析：暫無解析

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

第2套

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

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

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

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

①窗體標(biāo)題為“設(shè)置按鈕屬性“；②命令按鈕的標(biāo)題為“等級考試”；③程序運(yùn)行

后，命令按鈕不顯示；④命令按鈕的標(biāo)題用三號常規(guī)黑體顯示。程序的運(yùn)行情況

如圖1—126(b)所示。

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

等級考試

(a)(b)

圖1.126要求：

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

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

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

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

上角(只允許在程序中修改適當(dāng)屬性來實(shí)現(xiàn))。程序運(yùn)行情況如圖1—127(b)所

0Forml日Forml

卜》.11

；卜b.ll

(a)(b)

示。圖227要

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

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

標(biāo)準(zhǔn)答案：第1小題【操作步驟】步驟1：新建一個(gè)“標(biāo)準(zhǔn)EXE”工程，在窗體

Formlsjt5.vbp,中畫一個(gè)命令按鈕，并設(shè)置它的相關(guān)屬性，其屬性及值如表2—47

表2-47

對象屬性值

NameCommand1

Caption等級考試

命令按鈕,FontName黑體

FontSizc三號

VisibleFalse

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

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

將文件保存至考生文件夾中。第2小題【操作步驟】步驟1：新建一個(gè)“標(biāo)準(zhǔn)

EXE”工程，如表2—48在窗體中畫出控件并設(shè)置其相關(guān)屬性。

表2?48

對象屬性值

NameLabel1

標(biāo)簽一

BorderStJvle1

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

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

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

存至考生文件夾中。

知識點(diǎn)解析：暫無解析

二、簡單應(yīng)用題（本題共［題，每題7.0分，共I分0）

2、（I）在考生文件夾下有一個(gè)工程文件相應(yīng)的窗體文件為sjl3.frm0其功能是產(chǎn)

生30個(gè)。?1000的隨機(jī)整數(shù)，放入一個(gè)數(shù)組中，然后輸出其中的最小值。程序運(yùn)

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

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

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

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

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

文件sjt4.vbp,相應(yīng)的窗體文件為sjt4.frm,在窗體上有一個(gè)命令按鈕和一個(gè)文本

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

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

計(jì)算不能被7整除的整數(shù)的個(gè)數(shù)的操作在通用過程Fun中實(shí)現(xiàn)，請編寫該過程的

代碼。要求：請勿改動(dòng)程序中的任何內(nèi)容，只在FunctionFun。和EndFunction之

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

標(biāo)準(zhǔn)答案：第1小題【操作步驟】步驟1：打開考生文件中的本題工程文件

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

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

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

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

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

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

知識點(diǎn)解析：暫無解析

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

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

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

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

據(jù)“按鈕，則調(diào)用題目所提供的RcadDatal和RcadData2過程讀入datainl.txt和

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

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

第一個(gè)數(shù)組的第n個(gè)元素減去第二個(gè)數(shù)組的第n個(gè)元素，其結(jié)果作為第三個(gè)數(shù)組的

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

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

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

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

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

標(biāo)準(zhǔn)答案：【操作步驟】步驟1：打開考生文件中的本題工程文件爾5.vbp,在窗

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

裝2?49

對象屬性值

命令按鈕NameCl

1Caption讀入數(shù)據(jù)

命令按鈕NameC2

2Caption計(jì)算

步驟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＞鍵運(yùn)行程序，先單擊“讀

入數(shù)據(jù)“按鈕，然后單擊“計(jì)算”按鈕。

知識點(diǎn)解析：暫無解析

匾家二級VB機(jī)試（上機(jī)操作）模擬試卷

第3套

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

1、（1）在名稱為Fonnl,標(biāo)題為“選課”的窗體上添加一個(gè)復(fù)選框數(shù)組，名稱為

CH1,共有四個(gè)復(fù)選框，按順序其標(biāo)題分別是“數(shù)學(xué)”、“語文”、“外語”、”計(jì)算

機(jī)”，其中“語文”、“計(jì)算機(jī)”笈選框處在選中狀態(tài)下，程序運(yùn)行時(shí)的窗體如圖所

示。請按要求添加控件并設(shè)置相應(yīng)屬性。注意：存盤時(shí)必須存放在考生文件夾

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

（2）在名稱為Forml的窗體上添加一個(gè)名稱為HSI的水平滾動(dòng)

條，其刻度值范圍為添加一個(gè)命令按鈕，名稱為C1,標(biāo)題為“移動(dòng)滾動(dòng)

框請編寫適當(dāng)?shù)氖录^程，使得在程序運(yùn)行時(shí)，每單擊命令按鈕一次（假定單擊

次數(shù)不多于10次），滾動(dòng)框向右移動(dòng)10個(gè)刻度。程序運(yùn)行時(shí)的窗體如圖所示。要

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

一1jj

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

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

標(biāo)準(zhǔn)答案：（1）【操作步驟】步驟1：新建窗體，按照題目要求建立控件并設(shè)置屬

表4.30

控件屬性設(shè)置他

.阻選樞1Captkwi敗學(xué)

Caption語文

夏選框2

Valur1

M選框3Caption英語

(option計(jì)算機(jī)

復(fù)選根4

Valur1

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

試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤。（2）【操作步驟】步驟1：新建一個(gè)

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

___________Q

■e/

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

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

EndSub步驟3：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤。

知識點(diǎn)解析：⑴復(fù)選框（CheckBox）常用于提供多個(gè)選項(xiàng)間的多重選擇，Value的屬

性值決定每個(gè)復(fù)選框的選中狀態(tài)：0―Unchecked為未選，1一Cheeked為選中，2

一Grayed為變灰色。選擇某復(fù)選框后，該復(fù)選框?qū)@示“W,而取消選擇后“寸'消

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

語句，在每次單擊命令按鈕后，滾動(dòng)條就向右移動(dòng)10個(gè)刻度.

二、簡單應(yīng)用題（本題共1題，每題1.0分，共/分C）

2、（1）在考生文件夾下有一個(gè)工程文件爾3.vbp,窗體上已經(jīng)有一個(gè)標(biāo)簽Label1,

請?zhí)砑右粋€(gè)單選按鈕數(shù)組，名稱為Opl，含三個(gè)單選按鈕，它們的Index屬性分別

為0、1、2,標(biāo)題依次為“飛機(jī)”、“火車”、“汽車”,再添加一個(gè)名稱為Textl的文

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

的注釋符，把程序中的。改為正確的內(nèi)容，使得在程序運(yùn)行時(shí)單擊“飛機(jī)”或“火車”

單選按鈕時(shí)，在Textl中顯示“我坐飛機(jī)去”或“我坐火車去”，單擊“汽車”單選按鈕

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

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

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

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

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

“女”：其次在F2中添加兩個(gè)單選按鈕控件op3、0p4,標(biāo)題分別為“學(xué)生”、“教

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

當(dāng)?shù)氖录^程，使得運(yùn)行時(shí)，在Fl、F2中各選一個(gè)單選按鈕，然后單擊“確定”按

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

性別身份在文本棺中顯示的內(nèi)容

rl

男學(xué)生我是男學(xué)生

力教前我是男教警

女學(xué)生我是女學(xué)生

女教前我是女教帥

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

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

結(jié)束程序運(yùn)行之前，必須進(jìn)行能夠產(chǎn)生上表中一個(gè)結(jié)果的操作。必須用窗體右上角

的關(guān)閉按鈕結(jié)束程序，否則無成績。

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

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

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

表4.4

■控件屬性設(shè)置值

Caption飛機(jī)

單選按鈕1

0

Option火車

單選按鈕2

1fMic1

Caption汽車

a.選按鈕3

liukx2

文本框Name

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

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

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

AsStringa="我坐"b廿我開'SelectCaseIndex，通過Index值決定響應(yīng)哪一個(gè)控件數(shù)

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

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

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

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

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

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

件并設(shè)置相關(guān)屬性，程序中用到的控件及屬性見表4.5和表4.6o

表4.5

控件屬性設(shè)置他

NwnrFl

框架1

Caption性別

Namen

框架2

Caption身份

NameCl

命令按鈕

Caplion確定

?4.6

控件屬性設(shè)置值

NameOpi

單選按鈕i

Caption男

Namr*O|)2

年選按鈕2

Caplion女

NamrOp3

削選按鈕3

C?plion學(xué)生

N?m?*

不選按鈕3

教帥

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

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

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

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

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

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

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

Op4.CaptionEndIP確認(rèn)身折，思路同上EndSub步驟4：調(diào)試并運(yùn)行程序，關(guān)閉

程序后按題目要求存盤。

知識點(diǎn)解析：（1）通過Name屬性設(shè)置對象名稱；通過Caplion屬性設(shè)置對象的標(biāo)

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

的字符串連接；通過對單選按鈕數(shù)組Index屬性的查詢，實(shí)現(xiàn)單擊單選按鈕完成字

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

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

性設(shè)置，單擊命令觸發(fā)Click事件；單選按鈕的標(biāo)題由Caption屬性設(shè)置，程序中

需要檢測單選按鈕的狀態(tài)，通過Value屬性來實(shí)現(xiàn)，如果單選按鈕被選中，則

Value值為1,否則Value值為0。在文本框中顯示內(nèi)容通過Text屬性實(shí)現(xiàn)，其形

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

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

#FileNumbero其中，F(xiàn)ileName表示要打開的文件的路徑；Mode為打開模式，

OutPut用于輸出，Append用于追加寫入，Input用于讀?。籉ileNumber為打開文件

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

鈕的Click事件過程中完成。

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

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

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

標(biāo)題分別為“取數(shù)”、“排序”、“存盤”?！叭?shù)”按鈕的功能是將考生文件夾下的

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

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

的50個(gè)數(shù)存到考生目錄下的。ut5.dat文件中，如31所示。在窗體中已經(jīng)給出了全

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

正確的內(nèi)容，并編寫“排序”按鈕的Click事件過程，使其實(shí)現(xiàn)上述功能，但不能修

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

標(biāo)準(zhǔn)答案：【操作步驟】步驟1：打開本題工程文件。步驟2：打開代碼編輯窗

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

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

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

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

Textl.Text二比'在TextI文本框中顯示文件內(nèi)容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,將排序后的數(shù)組重新賦給ch

ch=ch4-Str(a(j))+""NextjText2.Text=chEndSub步驟3：調(diào)試并運(yùn)行程序，關(guān)閉程

序后按題目要求存盤?！?/p>

知識點(diǎn)解析：str函數(shù)用于數(shù)值轉(zhuǎn)化為字符串，語法為：Str(number)o在循環(huán)語句

中Slep表示步長，可以為正數(shù)，表示下一個(gè)變量加一個(gè)數(shù)，也可以為負(fù)數(shù)，貝］相

反，在默認(rèn)情況下，步長為1,就不需要使用Step特意標(biāo)識?！懊芭莘ā笔且环N重

要的數(shù)據(jù)排序算法，它的核心思路是按順序讓一個(gè)數(shù)列中的每一個(gè)數(shù)都與它之后的

所有的數(shù)逐一進(jìn)行比較，如果該數(shù)大于其后面的數(shù)，則把這兩個(gè)位置的數(shù)進(jìn)行交

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

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

中讀取的數(shù)據(jù)。在排序中，使用雙重循環(huán)，外循環(huán)每循環(huán)一次，確定內(nèi)循環(huán)循環(huán)的

次數(shù)，內(nèi)循環(huán)就是把本次循環(huán)中最大的數(shù)，放在數(shù)組的最后而，這樣就可以實(shí)現(xiàn)對

這50個(gè)數(shù)的升序排序。

國家二級VB機(jī)試（上機(jī)操作）模擬試卷

第4套

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

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

（1）在名稱為Forml的窗體上畫兩個(gè)標(biāo)簽（名稱分別為Labell和Label2,標(biāo)題分

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

空白）和一個(gè)命令按鈕（名稱為Commandl,標(biāo)題為“顯示”）。然后編寫命令按鈕

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

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

CtFormlI^-1=

姓幺年聆

不

顯示

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

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

Forml的窗體上畫一個(gè)圖片框（名稱為Picture］）、一個(gè)水平滾動(dòng)條（名稱為

HScrolll）和一個(gè)命令按鈕（名稱為Command1,標(biāo)題為“設(shè)置屬性”），通過屬性

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

高度與圖形的高度相同，圖片框的寬度任意（如圖1—264（a）所示）。編寫適當(dāng)?shù)?/p>

事件過程，程序運(yùn)行后，加果單擊命令按鈕，則設(shè)置水平滾動(dòng)條的加下屬性：Min

=100Max=1500LargeChange=100SmallChange=10之后就可以通過移動(dòng)滾動(dòng)條

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

DF.三面!IW￡3B|

±1，

(a)(b)

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

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

sjt2.frmo

標(biāo)準(zhǔn)答案：第1小題【操作步驟】步驟1：新建一個(gè)“標(biāo)準(zhǔn)EXE”工程，如表2-

134在窗體中畫出控件并設(shè)置其相關(guān)屬性。

S2-134

對象屬性值

NameLabel1

標(biāo)簽1

Caption姓名

NameLabel2

標(biāo)簽2-

Caption年齡

NameTextl

文本框1

Text

NameText2

文本框2

Text

NameCommandI

命令按鈕

Caption顯示

步驟2：在代碼編輯窗

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

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

文件夾中。第2小題【操作步驟】步驟1：新建一個(gè)“標(biāo)準(zhǔn)EXE”工程，在窗體

Forml中畫一個(gè)圖片框和一個(gè)水平滾動(dòng)條，在屬性設(shè)置窗口中設(shè)置其相關(guān)屬性，其

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

S2-135

對象屬性設(shè)置值

NamePicture1

圖片框

PictureP?c1jpg

水平滾動(dòng)條NameHScroll1

NameCommand1

命令按鈕

Caption設(shè)置屬性

步驟2；打開代碼編輯窗

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

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

HScroll1.LargeChange=100HScroll1.SmallChange=10EndSubPrivateSub

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

保存至務(wù)生文件夾中。

知識點(diǎn)解析：暫無解析

二、簡單應(yīng)用題（本題共［題，每題7.0分，共［分°）

2、（1）在考生文件夾下有一個(gè)工程文件sjt3.vbp1相應(yīng)的窗體文件名為

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

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

運(yùn)行后，如果用鼠標(biāo)左鍵單擊窗體，則從鍵盤上輸入要添加到列表框中的項(xiàng)目（內(nèi)

容任意，不少于三個(gè)）；如果用鼠標(biāo)右鍵單擊窗體，則從鍵盤上輸入要?jiǎng)h除的項(xiàng)

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

可以實(shí)現(xiàn)上述功能。但這個(gè)程序不完整，請把它補(bǔ)充完整。

(a)(b)

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

符，把程序中的?改為適當(dāng)?shù)膬?nèi)容，使其正確運(yùn)行，但不能修改程序中的其他部

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

sjt4.vbp（相應(yīng)的窗體文件名為sjt4.frm）,其功能是通過調(diào)用過程FindMin求數(shù)組

的最小值，請裝入該文件。程序運(yùn)行后，在四個(gè)文本框中各輸入一個(gè)整數(shù)，然后單

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

所示)。這個(gè)程序不完整，請把它補(bǔ)充完整，并能正確運(yùn)行。

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

中的?改為正確的內(nèi)容，使其實(shí)現(xiàn)上述功能，但不能修改程序中的其他部分。最后

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

標(biāo)準(zhǔn)答案：第1小題【操作步驟】步驟1：打開考生文件夾中的本題工程文件

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

表2?136

對象屬性值

NameLisiI

列表框

List任意

NameTextl

文本框

Text

步驟2：打開代碼編輯窗

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

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

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

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

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

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

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

知識點(diǎn)解析：暫無解析

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

3、在窗體上建立三個(gè)菜單(名稱分別為Read、Calc和Save,標(biāo)題分別為“讀人數(shù)

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

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

果單擊“讀入數(shù)據(jù)”按鈕，則讀入datainl.txt文件中的100個(gè)整數(shù)，放入一個(gè)數(shù)組

中，數(shù)組的下界為1;如果單擊“計(jì)算并輸出“按鈕，則把該數(shù)組中下標(biāo)為偶數(shù)的元

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

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

圖1-267

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

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

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

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

改窗體文件中已經(jīng)存在的程序。存盤時(shí)，工程文件名為m5.vbp,窗體文件名為

sjt5.frmo

標(biāo)準(zhǔn)答案：【操作步驟】步驟1：打開考牛文件下的本題T程文件sjSvbp,利用

菜單設(shè)計(jì)器，如表2—137中的設(shè)置建立菜單項(xiàng)。

?2-137

標(biāo)題名稱內(nèi)縮符號

讀入數(shù)據(jù)Read0

計(jì)算并輸出Calc0

存盤Save0

步驟2：在窗體Forml中畫

一個(gè)文本框，具相關(guān)屬性及值如表2—138。

S2-138

對象屬性值

NameTextl

文本框MultiLineTrue

ScrollBars2

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

分別編寫三個(gè)菜單項(xiàng)的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：按要求將文件保存至舍生文件夾中。

知識點(diǎn)解析：暫無解析

國家二級VB機(jī)試（上機(jī)操作）模擬試卷

第5套

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

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

數(shù)使其形狀為圓形；添加一個(gè)名稱為LabelI的標(biāo)簽，標(biāo)題為“形狀”，標(biāo)簽的大小

能夠根據(jù)標(biāo)簽內(nèi)容的字?jǐn)?shù)、大小而定：添加一個(gè)名稱為Textl的文本框，文本框最

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

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

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

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

通過設(shè)置屬性使標(biāo)簽初始為不顯示。請編寫適當(dāng)?shù)某绦?，使得運(yùn)行程序時(shí)，窗體的

標(biāo)題立即變?yōu)椤皹?biāo)簽”，單擊窗體時(shí)，顯示標(biāo)簽，如圖2所示。注意：存盤時(shí)，將

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

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

圖2

標(biāo)準(zhǔn)答案：（I）【操作步驟】步驟1：新建一個(gè)窗體，按照題目要求建立形狀控

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

困4.27

衰4.36

控件,性設(shè)置值

Namel^brll

林裳(LpOon形狀

AutoSurTurr