VB機試模擬試卷第1套

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

1、（1）在名稱為Forml的窗體上繪制一個文本框，其名稱為Textl,然后通過“屬性”

窗口設(shè)置窗體和文本框的屬性，實現(xiàn)如下功能：在文本框中可以顯示多行文本，顯

示垂直滾動條，顯示的初始信息為“模擬考試”，顯示的字體為四號、黑體；窗體的

?改曾文，口3,也為

模擬考i式~3

d

標(biāo)題為“設(shè)置文本框?qū)傩浴?，如圖33—1所示。圖33-1注意：存

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

⑵在名稱為Forml的窗體上繪制兩個命令按鈕，其名稱分別為Commandl和

Command?,編寫適當(dāng)?shù)氖录^程。程序運行界面如圖33—2所示，如果單擊命令

按鈕Commandl,則可使該按鈕移到頂部；如果單擊命令按鈕Command2,則可使

該按鈕在聲度和寬度上各擴大到原來的2和3倍。程序的運行時的窗體界面如圖

33—3所示。

■forml.101X1?Forml力兇

CocnmandZ

EB33-2圖33*3

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

sj2.vbp,窗體文件名為sj2.frm?

標(biāo)準(zhǔn)答案：（1）根據(jù)題意，新建“標(biāo)準(zhǔn)EXE”工程，將一個文本框控件添加到窗體

中，名稱為Text】、MultiLine屬性為True、Text屬性為“模擬考試"、ScroHBai■屬性

為2、Font中字體為宋體，字型為黑體、大小為四號，設(shè)置完成后，單擊按鈕運行

程序，并按原文件名保存。（2）根據(jù)題意，新建“標(biāo)準(zhǔn)EXE”工程，將兩個命令按鈕

添加到窗體中,名稱分別為Command］和Command2?Caption屬性分別為

“Commandl"和"Command2"，雙擊Commandl進入代碼窗口，編寫如下代碼：

PrivateSubCommandl_Click（）Commandl.Top=0,CommandlW.?EndSubPrivate

SubCommand2_Click（）Command?.Width=Conimand2.Width*3,Command2的寬

度擴大3倍Command2.Height=Command2.Height*2'Command?的高度擴大2倍

EndSub單擊;?，按鈕運行程序，并按要求保存。

知識點解析：暫無解析

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

2、（1）在考生文件夾中有一個工程文件sj3.vbp,相應(yīng)的窗體文件為sj3.frm。在

在名為Porml的窗體上有一個命令按鈕，其名稱為Cmdl,標(biāo)題為“輸入”；還有一

個文本框，其名稱為TextL初始內(nèi)容為空白。程序運行后，單擊“輸入”命令按

鈕，顯示“輸入”對話框。在對話框中輸入某個月份的數(shù)值然后單擊“確定，

按鈕，即可在文本框中輸出該月份所在的季節(jié)。例如輸入8,將輸出“8月份是秋

季”，如圖13—3所示。

圖13-3該程序

不完整，請補充完整。注意：去掉程序中的注釋符把程序中的問號”?”改為正

確的內(nèi)容，使其能正確運行，但不得修改程序的其他部分。最后用原名保存工程文

件和窗體文件。（2）在考生文件夾中有一個工程文件sj4.vbp,相應(yīng)的窗體文件為

sj4.frmo在名為Forml的窗體上有一個名稱為Cmdl、標(biāo)題為“計算”的命令按鈕；

兩個水平滾動條，名稱分別為HS1和HS2,其Max屬性均為100,Min屬性均為

1；4個標(biāo)簽,名稱分別為Labi、Lab2、Lab3和Lab4,標(biāo)題分別為“運算數(shù)1”、“運

算數(shù)2”、“運算結(jié)果”和空白；此外，還有一個包含4個單選按鈕的控件數(shù)組，名

為OplL標(biāo)題分別為“+”、“一”、和“/"。程序運行后，移動兩個滾動條中的滾

動框，用滾動條的當(dāng)前值作為運算數(shù)，如果選中一個單選鈕，然后單擊命令按鈕，

相應(yīng)的計算結(jié)果將顯示在Lab4中，程序運行時的窗體界面如圖13—4所示。

圖13」本程序不完整，請補充完整，并能正確運

行。注意：去掉程序中的注釋符把程序中的問號”?”改為正確的內(nèi)容，使其能

正確運行，但不得修改程序的其他部分，也，不得修改控件的屬性。最后用原名保

存工程文件和窗體文件。

標(biāo)準(zhǔn)答案：(1)①打開題目所給工程文件。②將注釋語句改為：LoopUntiln>0

Andn<13、SelectCasen和SeleclCasem。③按要求保存文件即完成本題。⑵①

打開題目所給工程文件。②將注釋語句改為：IfOptl(i).Value=TrueThenSelect

CaseoptLab4=Str(HSl.Value)&,'"&opt&Str(HS2.Value)&"="&Str(Result)③按要

求保存文件即完成本題。

知識點解析：暫無解析

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

3、打開考生文件夾下的sj5.vbpo在名稱為Forml的窗體上建立一個名為Textl的

文本框和兩個命令按鈕，名稱分別為commandl和Command?,命令按鈕上分別顯

示“讀入”和“排序”。程序運行時，單擊“讀入”按鈕，將in.txt文件中的50個數(shù)讀

入，.單擊“排序”則把數(shù)組a中的數(shù)值按照降序排列。請在有“?”號的地方填正確

內(nèi)容，然后刪除及代碼前的所有注釋符(即號L但不能修改其他部分。注

意：存盤時不得改變文件名和文件夾。

標(biāo)準(zhǔn)答案：根據(jù)題意.在窗體一卜添加一個Text捽件和兩個Command捽件.Text的

名稱為Textl、Text屬性為空、MultiLine屬性為True、ScrollBar屬性為2,

Command的名稱分別為Commandl和Command2>Caption屬性分別為■讀入''和

“排序雙擊Commandl命令按鈕，編寫如下代碼：Dima(50)AsLong'全局變量

PrivateSubCommandlClick()Textl.Text=H"OpenApp.Path&"\in.txt"ForInput

As#l'打開"in.txt”文件DimiAsIntegerDimtempAsIntegerFori=lTo50Input#],

tempa6=temp'按順序讀入到數(shù)組中NextiFori=lTo50

Textl.Text=Texll.罵由+CStr(a⑴)+vbCrL『將數(shù)組中的數(shù)放人Texl中顯示Nexti

Close#1EndSubPrivateSubCommand2_Click()DimiAsIntegerDimjAsInteger

DimkAsIntegerDimtempAsIntegerDimstrAsStringstr='n,Fori=lTo50'降序排

列temp=a(i)Forj=lToiIfa(j)str，在Textl中顯示EndSub單擊多按鈕運行程序，

并按要求保存。

知識點解析：暫無解析

VB機試模擬試卷第2套

一、基本操作題(本題共7題，每題分，共7分0)

1、(1)在名稱為Forml的窗體上建立一個名稱為Commandl、標(biāo)題為“輸出”的命令

按鈕，再建立一個名稱為Textl的文本框，字體為四號、常規(guī)、黑體，編寫適當(dāng)?shù)?/p>

事件過程，要求程序運行后，如果單擊"輸出''命令按鈕，則在文本框上顯示“模擬

考試”，如圖31—1所示。程序中不能使用任何變量，直接顯示字符串。注意：保

存時必須存放在考生文件夾下，窗體文件名為sjl.frm,工程文件名為sjl.Vbpo

(2)在名稱為Forml的窗體上畫一個標(biāo)簽，名稱為Labcll,邊框?qū)傩詾?；再畫一個

命令按鈕，名稱為Commandl,標(biāo)題為“最右端”，運行界面如圖31—2所示。請編

寫適當(dāng)?shù)氖录^程，使運行界面在運行時，單擊“最右端''按鈕，則標(biāo)簽水平移動到

窗體的最右端。程序中不得使用任何變量。

|模擬考試~

圖31-1圖31-2注

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

sj2.fnrio

標(biāo)準(zhǔn)答案：⑴根據(jù)題意，新建“標(biāo)準(zhǔn)EXE”工程，將一個Text控件和一個Command

控件添加到窗體上。Text的名稱為Texll,Text屬性為空，F(xiàn)onl屬性為四號、常

規(guī)、黑體，Command的名稱為Command】,Caption屬性為“輸出雙擊

Command1命令按鈕,編寫如下代碼:PrivateSubCommandl_Click()Text).Text="

模擬考試"EndSub單擊件按鈕運行程序，并按要求保存。(2)根據(jù)題意，新建“標(biāo)

準(zhǔn)EXE”工程，將一個Label控件和一個Command控件添加到窗體上。Label的名

稱為Labell、Caplion屬性為空，BorderSlyle屬性為1,Command的名稱為

Commandl,C叩tion屬性為“最右端"。雙擊Command1命令按鈕，編寫如下代碼：

PrivateSubCommandl_Click()Label!.Left二Forml.Width-Labell.Width'將Label1

移動到最右端EndSub單擊:賓'按鈕運行程序，并按要求保存。

知識點解析：暫無解析

二、簡單應(yīng)用題(本題共7題，每題7.0分，共7分。)

2、(1)在窗體上建立一個名稱為Labell的標(biāo)簽，然后建立兩個主菜單，標(biāo)題分別為

“命令”和“幫助”，名稱分別為vbCommand和vbHelp,其中“命令”菜單包括

“Iteml“、"Item2”和三個子菜單，名稱分另U為vbCommandl、vbCommand2和

vbCommand3o要求程序運行后，如果在“命令”菜單中選擇“Iteml”，則在標(biāo)簽上顯

示“第一項”；如果選擇"tcrn2"，則在標(biāo)簽上顯示“第2項”；而“Itcm3”不可用，程

序運行的效果如圖52—3所示。注意：保存時必須存放在考生文件夾下，窗體文

件名為sj3.fmi,工程文件名為si3.vbpo(2)在考生文件夾下有工程文件

sj4.vbp,窗體文件sj4.fm,該程序是不完整的，請在有“?”的地方填人正確內(nèi)

容，然后刪除”'及代碼前的所有注釋符(即號)，但不能修改其他部分。修改后

的工程及窗體文件，均以原名保存在考生文件夾下。本題描述如下：在窗體上有

一個名為Tcxtl的文本框，有兩個命令按鈕，名稱分別是Commandl和

Command2,標(biāo)題分別是“讀人數(shù)據(jù)”和“計算保存”，如圖52—4所示。要求程序運

行后，單擊“讀人數(shù)據(jù)”按鈕，彈出對話框，輸入10個整數(shù)，將所有輸入的數(shù)字保

存到數(shù)組a中，并在文本框內(nèi)顯示出來。隨后“讀人數(shù)據(jù)”按鈕變?yōu)闊o效。單擊“計

算保存”按鈕，求出以數(shù)組a中的各元素的值為上限的所有數(shù)的和，例如，

a(2)=3,則令a(2)=l+2+3=6。把計算后的數(shù)組的總和寫入考生文件夾下的文本文件

out4.txt中，最后“計算保存”按鈕也變?yōu)闊o效。

■Forml,!□!x|

命令相助

第一項

圖52-3■52-4注意：去掉

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

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

標(biāo)準(zhǔn)答案：(1)根據(jù)題意，新建“標(biāo)準(zhǔn)EXE”工程，VisualBasic中的菜單是通過菜單

編輯器來設(shè)計的。每個菜單項對應(yīng)一個名稱(不能重復(fù))和標(biāo)題；通過菜單編輯器上

的箭頭可設(shè)計多重菜單；“有效”復(fù)選按鈕用于設(shè)置該菜單項在程序運行時是否有

效。根據(jù)題意，選擇“工具”一“菜單編輯器”命令打開菜單編輯器，添加以下菜單

標(biāo)簽名稱內(nèi)縮有效

命令vhCommand無是

ItemlvbCommandl一位是

Itcm2vbComniand2一位是

Item3vbCommand3一位否

幫助vbHelp無是

項:然后再添加一個Label

控件，名稱為Labell、Caption屬性為空。設(shè)置完成后在代碼窗口中編寫如下代

碼：PrivateSubvbCommandl_Click()，選中ItemlLabelI.Caption="第一項"EndSub

PrivateSubvbCommand2click()，選中Item2Labell.Caption="第二項"EndSub單

擊D按鈕運行程序，并應(yīng)要求保存。(2)根據(jù)題意，將兩個Command控件添加到

窗體上，Command的名稱分別為Command)和Command2,Caption屬性分別為“讀

人數(shù)據(jù)”和“計算保存"。雙擊Command控件進入代碼窗口，編寫如下代碼：Dim

a(10)AsIntegerPrivateSubCommandlClick()DimiAsIntegerFori=lTo10'利用

For循環(huán)將10個數(shù)讀入到數(shù)組中a(i尸通!(InputBox("請輸入"))Nexti

Commandl_Enablcd=balseEndSubPrivateSubCommand2_Click()DimiAsInteger

DimjAsIntegerDimtotalAsLongDimtrapAsLongtotal=0Fori=ITo10tmp=0For

j=lToa(i)，對每個數(shù)都進行一個求與前面數(shù)和的操作tmp=tmp+jNextj

total=total+tmpNextiOpen^App.Path&\out4.txt'TorOutputAs#l'打開文件準(zhǔn)備

寫入Print#1,12?，將結(jié)果寫入文件Close#1EndSub單擊,?按鈕運行程序，棄按

要求保存。

知識點解析：暫無解析

三、綜合應(yīng)用題(本題共7題，每題7.0分，共［分0)

3、在窗體Forml上建立3個菜單(名稱分別為vbRead、vbCalcvbSave,標(biāo)題分

別為“讀數(shù)”“計算”和“存盤”);然后繪制一個文本框(名稱為Tcxtl,MultiLinc屬性設(shè)

置為True,ScrollBars屬性設(shè)置為2),如圖61—5所示。

?f-ormt

i+M'祁盤

X?

57X“

87

249930

2763?5

909T8W42

"651

圖61?5程序運行后，如果執(zhí)行“讀數(shù)”命令，則讀人

in34.txt文件中的100個整數(shù)，放入一個數(shù)組中，數(shù)組的下界為1;如果執(zhí)行“計

算“命令，則把該數(shù)組中可以被3整除的元素在文本框中顯示出來，求出它們的

和，并把所求得的和在窗體上顯示出來；如果執(zhí)行，存盤”命令，則把所求得的和存

人考生文件夾下的。ut34.txt文件中。在考生文件夾下有一個工程文件sj5.vbp,

考生可以裝入該文件。窗體文件sj5.frm中的ReadData過程可以把in34.ixt文件

中的100個整數(shù)讀人AIT數(shù)組中；而writeData過程可以把指定的整數(shù)值寫到考生

文件夾指定的文件中(整數(shù)值通過計算求得，文件名為。ut34.txt)。注意：考生不

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

名仍為sj5.frmo

標(biāo)準(zhǔn)答案：①打開題目所給工程文件。②執(zhí)行“工具''菜單中的“菜單編輯器”命

令，打開菜單編輯器；在“標(biāo)題”欄中輸入“讀數(shù)”，在“名稱”欄中輸入“vbRead”；單

擊“下一個,,按鈕，在“標(biāo)題，，欄中輸入“計算”，在“名稱”欄中輸入“vbCale”；單擊

“下一個”按鈕，在“標(biāo)題”欄中輸入“存盤”，在“名稱”欄中輸入“vbSave”。③單擊工

具箱中的TexlBox控件圖標(biāo)，在窗體上拖拉出一個文本框，在屬性窗口設(shè)置其名稱

為Textl,Multiline屬性設(shè)置為True,ScrollBars屬性設(shè)置為2。④打開代碼窗口

輸入如下代碼：PrivateSubvbCalc_Click()Tcxtl.Text=,M,Fori=lTol00If

Arr(i)Mod3=0ThenTextl.Text=Textl.Text&Arr(i)&Space(5)temp=lemp+Arr(i)

EndIfNcxtiPriiiiiempEndSubPiivatcSubvbRead_Click()ReadDataEndSubPrivate

SubvbSave_Click()WriteData"out.txt",tempEndSub按要求保存文件即完成本

題。

知識點解析：暫無解析

VB機試模擬試卷第3套

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

1、（1）在名稱為Forml的窗體上添加一個名稱為Framel、標(biāo)題為“框架”的框架，在

框架內(nèi)添加兩個名稱分別為Option】、Option2的單選按鈕，其標(biāo)題分別為“第一

項”、“第二項”。要求通過設(shè)置控件的屬性將“第二項”初始值設(shè)置為被選中，框架

為不可用。運行程序后的窗體如圖57—1所示。注意：存盤時必須存放在考生文件

夾下，工程文件名保存為sjl.vbp,窗體文件名保存為sjl.frm。（2）在名稱為

Forml的窗體上添加一個名稱為Drivel的驅(qū)動器列表框，一個名稱為Dirl的目錄列

表框，一個名稱為Filel的文件列表框，名稱為Label］、標(biāo)題為“文件名”的標(biāo)簽和名

稱為Label2、BorderStyle為1的標(biāo)簽。將窗體的標(biāo)題設(shè)置為“文件系統(tǒng)控件”，如圖

57—2所示。請編寫適當(dāng)?shù)某绦颍沟眠@三個文件系統(tǒng)控件可以同步變化，即當(dāng)驅(qū)

動器列表框中顯示的內(nèi)容發(fā)生變化時.目錄列表框和文件列表框中顯示的內(nèi)容同時

發(fā)生變化。單擊文件列表框時，將在Label2中顯示選中的文件名。

圖57-1圖57-2注意：

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

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

標(biāo)準(zhǔn)答案：（1）根據(jù)題意，新建“標(biāo)準(zhǔn)EXE”工程，在窗體上添加一個框架控件，兩

個單選按鈕控件，其中框架控件名稱為FrameLC即tion屬性為“框架"，Enabled屬

性為False,單選按鈕1的名稱為Optionl,Caption屬性為“第一項”，單選按鈕2的

名稱為0.otion2,Capdon屬性為“第二項"，Value屬性為True。單擊;，冢按鈕運

行程序，并按要求保存。（2）本題主要考查標(biāo)簽的Name、Caption屬性，窗體的

Caption屬性，驅(qū)動列表框的Name和Path屬性，口錄列表框的Name和Path屬性

以及文件列表框的Name、Path和FileName屬性。根據(jù)題意，新建“標(biāo)準(zhǔn)EXE”工

程，窗體Caption屬性為“文件系統(tǒng)控件”，在窗體上添加驅(qū)動列表框名稱為

Drivel,目錄列表框名稱為DirL文件列表框名稱為FilcL標(biāo)簽1名稱為Labcll、

Caption屬性為“文件名”,標(biāo)簽2名稱為Label2、Caption屬性為空、BorderStyle屬

性為1。雙擊進入代碼窗口，編寫如下代碼：PrivateSubDirl_Change（）

Filel.Path二Dirl.PathEndSubPrivateSubDrivel_Change（）

Dirl.Path=Drivel.DriveEndSubPrivateSubFile!Click()Label2=Filel.FileName

EndSub單擊"實按鈕運行程序，并按要求保存。

知識點解析：暫無解析

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

2、（1）在窗體上畫三個復(fù)選框,名稱分別為chi、Ch2和ch3,標(biāo)題分別為“體育”、

“音樂”和“美術(shù)”，還有一個命令按鈕，名稱為C1,標(biāo)題為“顯示”。要求程序運行

后，如果選中某個復(fù):選框，當(dāng)單擊“顯示”命令按鈕時，則顯示相應(yīng)的信息。例如,

如果選中“體育”和“美術(shù)”復(fù)選框，單擊“顯示”命令按鈕后，在窗體上顯示“我的愛

好是體育美術(shù)“，如圖3-4所示。注意：保存時必須存放在考生文件夾下，窗體

文件名為sj3.frm,工程文件名為sj3.vbp。（2）在考生文件夾中有工程文件

sj4.vbp及窗體文件sj4.frm。在名為Forml的窗體上有一個標(biāo)簽數(shù)組，名為

Labi,該數(shù)組有4個控件元素，標(biāo)題分別是“Wait、"Edit、“Aix”和“Move”,如圖

3—5所不。

?Foval庭⑥

在程序運行后，將鼠標(biāo)指針移動到各控件元素上，則鼠標(biāo)指針的形狀將變成各控件

元素的標(biāo)題所代表的鼠標(biāo)指針形狀；離開控件元素，則鼠標(biāo)指針又變成正常情況下

的箭頭形狀。本程序不完整，請補充完整，并能正確運行。注意：去掉程序中的

注釋符（即…”號），把程序中的問號”?”改為正確的內(nèi)容，使其實現(xiàn)上述功能，但不

得修改程序的其他部分。最后，按原文件名并在原文件夾中保存修改后的文件。

標(biāo)準(zhǔn)答案：（1）本題主要考查復(fù)選框的使用。單擊命令按鈕觸發(fā)Click事件，程序中

需要檢測復(fù)選按鈕的狀杰，可以通過Value屬性來實現(xiàn)。如果復(fù)選按鈕被選中，則

Value值為1,否則Value值為0。①在窗體上先按要求建立控件，設(shè)置控件屬

性，程序中用到的控件及屬性如下表所示：

對象屬性設(shè)置值

復(fù)選按鈕NameChi

復(fù)選按鈕Caplion體育

復(fù)選按鈕NameCh2

復(fù)選按鈕Caption音樂

復(fù)選按鈕NameCh3

復(fù)選按鈕Caption美術(shù)

命令按鈕Caption愛好

命令按鈕NameCl

命令按鈕Caption◎示

②打開工程資源管理器，右擊窗體，選擇查看代科項，在彈出的代碼窗口輸入代

碼如下：OptionExplicitPrivateSubclClick（）DimSAsStrings="我的愛好是"If

Chi.Value=lThens=s&Chl.CaptionEndIfIfCh2.Value=lThen

s=s&Ch2.CaptionEndIfIfCh3.Value=lThens=s&Ch3.CaptionEndIfPrintS

EndSub③調(diào)試并運行程序。④按題目要求存盤。（2）①打開題目所給工程文件。

②將注釋語句改為：Formi.MousePointer=0SelectCaseIndex③按要求保存文件

即完成本題。

知識點解析：暫無解析

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

3、在考生文件夾中有二程文件st5.vbp及其窗體文件sj5.frm,該程序是不完整

的。在名稱為Formi的窗體上有一個文本框，名稱為Texll、MultiLine屬性為

True^ScrollBars屬性為2；兩個命令按鈕，名稱分別為Commandl和Command2、

標(biāo)題分別為“讀入,?和“排列保存”，運行界面如圖65—6所示。要求程序運行后，如

果單擊“讀入”按鈕，則從in.txt文件中讀入50個整數(shù)，放入一個數(shù)組中（數(shù)組下界

為1）；如果圖65-6單擊“排列保存”按鈕，則對這50個數(shù)從大到小進

行排序，把排序后的全部數(shù)據(jù)在文本框Textl中顯示出來，然后存人考生文件夾中

的result,txt文件中（在程序中的標(biāo)準(zhǔn)模塊mode5.bas過程可以把指定個數(shù)的數(shù)組

元素存入resull.ixt文件)。注意：請在有“?”的地方填入正確內(nèi)容，然后刪除“?”及

代碼前的所有注釋符(即號)，但不能修改其他部分。存盤時不得改變文件名和文

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

sj5.vbp,排序結(jié)果存入result,ixt文件，否則沒有成績。

標(biāo)準(zhǔn)答案：在本題中涉及文件的操作，用Write#或Input#語句讀取數(shù)據(jù)，對文件

操作完后一定要關(guān)閉文件。根據(jù)題意，將一個文本框控件和兩個命令按鈕添加到

窗體中，根據(jù)題意的要求設(shè)置屬性，即文本框的名稱為Textl、MukiLine屬性為

true、ScrollBars屬性為2,兩個命令按鈕的控件的Caption屬性分別為“讀取”和“排

列保存”，名稱為Command］和Command2。在“工程”窗口中單擊右鍵，在彈出的

快捷菜單中選擇“添加”一“添加模塊”，然后在彈出對話框的“現(xiàn)存”選項卡中選擇

“mode5.bas”，單擊“確定”按鈕即添加成功。模塊的代碼如下：Function

writcData(totalASLong)OpenApp.Path&.H\result.txt"ForAppendAs#l

Write#I,totalC1ose#IEndFunction分析程序可知,程序在讀取的同時就進行了排

序，一旦讀取的數(shù)比當(dāng)前數(shù)大，則將兩數(shù)位置交換，繼續(xù)比較后面的數(shù)。補充后的

具體代碼如下：Dimstr(50)AsString'全局變量Dima(50)AsLong'全局變量Private

SubCommandlClick()Textl.Text=""OpenApp.Path&M\in.txt"ForInputAs#l

DimiAsIntegerFori=0To49Input#1,a(i)NextiFori=0TO49str(i)=a(i)

Textl.Tcxt=Tcxtl.Tcxt+str(i)+vbCrLfNextiClose#!EndSubPrivateSub

Cominand2_Click()DimiAsIntegerDimjAsIntegerDimtempAsIntegerDimkAs

IntegerTextl.Text=""Fori=0To49temp=a(i)Fori=0TOiIfa(j)<tempThenFork=i

Toj+1Step-1a(k)=a(k-l)Nextka(j)=tempExitForEndIfNextjNextiFori=0TO49

str(i)=a(i)Textl.Tcxt=Textl.Text+str(i)+vbCrLfwritcData(str(i))NextiEndSub單

擊"實?'按鈕運行程序，并按要求保存。

知識點解析：暫無解析

VB機試模擬試卷第4套

一、基本操作題(本題共7題，每題7.0分，共7分。)

1、在Forml窗體上繪制一個名稱為Textl的文本框，然后建立一個主菜單，標(biāo)題

為“操作”，名稱為Op,該菜單有兩個子菜單，其標(biāo)題分別為“顯示''和“隱藏”，名

稱分別為Dis和Hid,編寫適當(dāng)?shù)氖录^程。程序運行后，如果單擊“操作”菜單中

的“顯示”命令，則在文本框中顯示“計算機考試”；如果單擊“隱藏”命令，則隱藏文

本框。程序的運行情況如圖47—1和圖47—2所示，

圖47-1圖47-2

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

sjl.vbpo(2)在名為Forml的窗體上繪制一個標(biāo)簽，名為Labi,標(biāo)題為“請輸入一

個攝氏溫度”；繪制兩個文本框，名稱分別為Texll和Texl2,內(nèi)容設(shè)為空；再繪制

一個名為Cmdl的命令按鈕，其標(biāo)題為“華氏溫度等于“。編寫適當(dāng)?shù)某绦?，使得?/p>

擊“華氏溫度等于“按鈕時，將Tcxtl中輸入的攝氏溫度(c)轉(zhuǎn)換成為華氏溫度⑴，轉(zhuǎn)

換公式為：f=c*9/5+32,并顯示在Texl2中。程序運行結(jié)果如圖47—3所示。

圖47-3注意：程序中不得使用任何變量；文件必須

存放在考生文件夾中，窗體文件名為sj2.frm,工程文件名為sj2.vbp。

標(biāo)準(zhǔn)答案：(1)本題主要考查菜單的使用。菜單在“菜單編輯器”中創(chuàng)建；在程序運

行時控件是否可見由該控件的Visible屬性決定，如果將該屬性設(shè)置為True時，則

對象可見；如果設(shè)置為False,則隱藏該控件。①建立界面并設(shè)置控件屬性。程序

中用到的控件及其屬性見下表：

控件屬性設(shè)置值

菜單NameOp

菜單Caption操作

菜單NameDis

菜單Caption顯示

菜單NameHid

菜單Caption由藏

文本框NameTextl

文本樞Text

②編寫程序代碼。參考代碼如下：PrivateSubDisClick()TextI.Text=”計算機考試

"EndSubPrivateSubHidClick（）Text）.Visible二FalseEndSub③調(diào)試并運行程序。

④按題目要求存盤。（2）①新建一個名為Fonnl的窗體。②單擊工具箱中的Label

控件圖標(biāo)，在窗體上拖拉出一個標(biāo)簽，在其屬性窗口設(shè)置名稱為Labi、Caption屬

性為“請輸入一個攝氏溫度③單擊工具箱中的CommandButton控件圖標(biāo)，在窗

體上拖拉出一個命令按鈕，在屬性窗口設(shè)置該命令按鈕名稱為Cmdl、Caption為

“華氏溫度等于“。④單擊工具箱中的TkxtBox控件圖標(biāo)，在窗體上拖拉出兩個文

本框，在屬性窗口將文本框的名稱分別設(shè)置為Texil和Text2、Texl屬性設(shè)置為

空。⑤打開代碼窗口輸入如下代碼：PrivateSubCmdl_Click（）DimcAsSingle,f

AsSinglec=Val（Tcxtl.Text）f=c*9/5+32tcxt2.Text=CStr（f）EndSub⑥按要求保

存文件即完成本題。

知識點解析：暫無解析

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

2、（1）在考生文件夾下有工程文件sj3.vbp與窗體文件sj3.frm,該程序和窗體是

不完整的。請在窗體上設(shè)置一個標(biāo)簽，名稱為Labcll,標(biāo)題為“計算1/2-1/3+1/

4-1/5+1/6的值”；另設(shè)一個文本框與一個命令按鈕。命令按鈕的名稱為

Command]、標(biāo)題為“計算”；文本框的名稱為Text].用于顯示結(jié)果.并初始化為

空。然后編寫相應(yīng)的代碼，要求運行程序時，單擊“計算”按鈕，程序可以計算出1

/2-1/3+1/4-1/5+1/6的值，并將結(jié)果顯示在文本框中，如圖26—3所示。注

意：考生完成程序編寫后，將工程文件與窗體文件按原文件名保存到考生文件夾

下，不得更改程序的其他部分，否則可能無成績。（2）新建一個工程文件，在名稱

為Forml的窗體上建立兩個名稱分別為Commandl和Command2標(biāo)題分別為“平

均分”和“清空”的命令按鈕；一個名為Textl的文本框。要求程序運行后，單擊“平

均分''按鈕，可通過輸入對話框輸入7個整數(shù)，去掠最大的和最小的然后求平均

分，將結(jié)：果在文本框中顯示出來。如果單擊“清空”按鈕，則將文本框清空。在程

序中不得使用任何其他變量。程序運行時的窗體界面如圖26—4所示。

?Forml」口1刈

圖26-3圖26-4注意：，‘呆存

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

標(biāo)準(zhǔn)答案：（1）根據(jù)題意，將一個Label控件，一個Text控件和一個Command控件

添加到窗體上，Label的Caption屬性為“計算1/2-I/3+1/4-1/5+1/6的值、'，

Text的名稱分別為Textl,Texl屬性為空，Command的名稱為Commandl,Caption

屬性為“計算”。雙擊Commandl命令按鈕，編寫如下代碼：PrivateSub

Commandl_Click()DimtotalASDoubleDimnAsIntegerDimaAsIntegertotal=0a=-

1Fori=lTo5a=a*(-l)total=total+a/(i+1)NextiTextl.Text=total

Open"App.Path&\out3.txt"ForOutputAs#lPnt#l,Textl.TextClose1EndSub

單擊,‘按鈕運行程序，并按要求保存。(2)根據(jù)題意，新建“標(biāo)準(zhǔn)EXE”工程，在窗

體上添加一個Text控件和兩個Command控件，Text的名稱為Textl>Text屬性為

空，Command的名稱分別為Commandl和Command2,Caption屬性分別為“平均

分”和“清空”。雙擊Commandl命令按鈕，編寫如下代碼：Dima(7)AsInteger

PrivateSubCommandlClick()DimiAsIntegerFori=lTo7a(i)=Val(InputBox("i^^

入第”+CStr(i)+"個得分"))NextiFori=lTo7'降序排列temp=a(i)Forj=lToiIfa(j)

按鈕運行程序，并按要求保存。

知識點解析：暫無解析

三、綜合應(yīng)用題(本題共[題，每題7.0分，共7分0)

3、在窗體上繪制兩個命令按鈕，名稱分別為Commandl和Command2,標(biāo)題分別

為“輸人”和“調(diào)換”，兩個標(biāo)簽，名稱為Labell和Label2、Caption屬性為“調(diào)換

前：”和“調(diào)換后：”，兩個名稱分別為Textl和Text2的文本框控件。請編寫適當(dāng)?shù)?/p>

事件過程，從鍵盤上輸入10個整數(shù)，并放人一個一維數(shù)組中，然后將其前5個元

素與后5個元素對換，即第一個元素與第10個元素互換，第2個元素與第9個元

素互換第5個元素與第6個元素互換。使得在運行時單擊“調(diào)換”按鈕，則分別在

Textl和Text2中輸出數(shù)組原來的各元素的值和對換后各元素的值，如圖23—5所

示。圖23?5注意：去掉程序中的注釋符“，，把程序中的2”改

為正確的內(nèi)容，不能修改程序中的其他部分。最后把修改后的文件按原文件名存

盤。

標(biāo)準(zhǔn)答案：要對數(shù)據(jù)進行對調(diào)，也就是數(shù)據(jù)交換，一般要借助中間變量，如本題

的tmp。本題首先通過InpulBox函數(shù)輸入10個數(shù)，然后通過For循環(huán)，每次循環(huán)

調(diào)換一組數(shù)。補充后的代碼如下：Dima(10)AsIntegerPrivateSubCommandl

Click()DimiAsIntegerDimstrAsStringstr=""Fori=lTo10a(i)=Val(InputBox("iW

輸入數(shù)字"))'通過對話框輸入10個數(shù)，并放人數(shù)字中str=str+CStr(a⑴)，將數(shù)組

放入字符串中保存NextiTextl.Text=str'在Textl中顯示結(jié)果EndSubPrivateSub

Command?Click()DimtmpAsIntegerDimiAsIntegerDimstrAsStringstr=""For

1=1To5tmp=a(i)，進行對調(diào),先將a(i)的數(shù)據(jù)放入imp中a[i)=a(10-i+l)'將a(10-i)

的數(shù)據(jù)放人a⑴中a（10?i+l）=lmp'將tmp的數(shù)據(jù)放人a（10?i）中NextiFori=1To10

str=str+CStr（a⑴）NextiText2.Text=str'將結(jié)果在Text2中顯示出來EndSub單

擊;浜牧鈕運行程序，并按要求保存。

知識點解析：暫無解析

VB機試模擬試卷第5套

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

1、在Forml的窗體上建立一個二級下拉菜單。第一級共有二個菜單項，名稱分別

為Operation、Help,標(biāo)題分別為“操作”、“幫助”；在“操作”菜單下有第二級菜單，

含有兩個菜單項，名稱分別為Msg、MyExit,標(biāo)題分別為“顯示消息”、“退出飛如

圖1—1所示）。程序運行后，單擊“顯示消息”菜單時，彈出一個消息框，其中的消

息為“計算機等級考試”（如圖1—2所示）；單擊“退出”則結(jié)束應(yīng)用程序。

圖1-贓］圖1-2注

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

sjtl.frmo2.在窗體上畫兩個單選按鈕（名稱分別為Opl和Op2,標(biāo)題分別為“本科

生”和“研究生”）和一個文本框（名稱為T1）,然后編寫適當(dāng)?shù)拇a。程序運行后，如

果選擇“本科生”單選按鈕，則在文本框中顯示“我是本科生”；如果選擇“研究生”單

選按鈕，則在文本框中顯示“我是研究生程序的運行情況如圖1—3和圖1T所

示。存盤時，工程文件名為sjt2.vbp,窗體文件名為sjt2.frmo

圖】一3圖14

標(biāo)準(zhǔn)答案：①建立界面和設(shè)置對象屬性。程序用到的控件及其屬性如下表I所

表1

控件屬性設(shè)置值

名稱Operation

菜單

標(biāo)題“操作”

名稱Help

菜單

標(biāo)題“幫助”

名稱Msg

菜單標(biāo)題“顯示消息”

為縮符號1

名稱MyExit

菜單標(biāo)題“退出”

々縮符號1

②編寫程序代碼PrivateSub

Msg_Click（）MsgBox"計算機等級考試"EndSubPrivateSub

MyExit_Click（）EndEndSub③按題目要求存盤。2.①啟動

VisualBasic,在窗體上畫一個文本框和兩個單選按鈕。②在屬性窗口中設(shè)置

表2

控件屬性設(shè)置值

文本框告稱ri

名稱Opl

單選按鈕

Caption本科生

名稱0p2

單選按鈕

Caption研究生

D1jX1?0J/r*MIJLIFL9/L,"/。③編寫第1

個單選按鈕的Click事件過程:PrivateSubOpl_Click()Text1.Text="我是本科生”

EndSub④編寫第2個單選按鈕的Click事件過程：PrivateSubOp2_Click（）

Textl.Text="我是研究生"EndSub

知識點解析：暫無解析

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

2、1.在名稱窗體為Fonnl,KeyPreview屬性為True的窗體上有一個列表框（名稱

為Listl）和一個文本框（名稱為Textl）,如圖2—1所示。編寫窗體的KeyDown事件

過程。程序運行后，如果按鍵，則從鍵盤上輸入要添加到列表框中的項目（內(nèi)容

任意，不少于三個）：如果按鍵，則從鍵盤上輸入要刪除的項目，將其從列表框

中刪除。程序的運行情況如圖2—2所示。在考生文件夾下有一個工程文件

sit3.vbp（相應(yīng)的窗體文件名為sjt3.frm）,可以實現(xiàn)上述功能。但這個程序不完整，

請把它補充完整。要求：去掉程序中的注釋符，把程序中的?改為適當(dāng)?shù)膬?nèi)容.使

其正確運行，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存

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

窗體上有一個命令按鈕和一個文本框。程序運行后，單擊命令按鈕，即可計算出

0?1000范圍內(nèi)不能被?整除的整數(shù)的個數(shù)，并在文本框中顯示出來。在窗體的代

碼窗口中，已給出了部分程序，其中計算不能被7整除的整數(shù)的個數(shù)的操作在通用

過程Fun中實現(xiàn)，請編寫該過程的代碼。要求：請勿改動程序中的任伺內(nèi)容，只

在FunctionFun()和EndFunction之間填入你編寫的若干語句。最后把修改后的文

件按原文件名存盤。圖2—2

標(biāo)準(zhǔn)答案：①解析：判斷按鍵可以在窗體的KeyDown事件下用Chr函數(shù)將按鍵代

碼轉(zhuǎn)換成字符與給定字符進行比較。②使用Addhem方法向列表框中添加列表項

目，使用Removeitem方法從列表框中刪除列表項目。程序中用到了InputBox。，

其格式為：InputBox(prompU,title]]default][,xpos][,ypos][,helpfile,context])

prompt：是一個字符串，其長度不得超過1024個字符，它是在對話框內(nèi)顯示的信

息，用來提示用戶輸入。出le：字符串，它是對話框的標(biāo)題，顯示在對話框頂部的

標(biāo)題區(qū)。default：字符串，用來顯示輸入緩沖區(qū)的默認信息。xpos,ypos：是兩

個整數(shù)值，分別用來確定對話框與屏幕左邊的距離(xpos)和上邊的距離(ypos),它

們的單位為twip。helpfile,context：helpfile是一個字符串變量或字符串表達式，

用來表示幫助文件的名字；context是一個數(shù)值變量或表達式，用來表示相關(guān)幫助

主題的幫助目錄號。③解題步驟：第一步：建立界面并設(shè)置控件屬性。程序中用

到的控件及其屬性見表3。表3控件屬性設(shè)置值Form1KeyPreviewTrueListbox

NameList1文本框NameTextI第二步：編寫程序代碼。程序提供的代碼：Private

SubPoim_KeyDown(KeyCodeAsInteger,ShiftAsInteger)If

Chr(KeyCode)="A"ThenTextl.Text=InputBox("請輸入要添加的項目”)，

List1.Additem?EndIfIfChr(KeyCodc)="D"ThenTextlAext=InputBox("請輸入要刪

除的項目")'Fori=0To?*IfListl.List(i)=?Then,Listl.Removeitem?EndIfNexti

EndIfEndSub參考代碼：PrivateSubForm_KeyDown(KeyCodeAsInteger,ShiftAs

Integer)IfChr(KeyCode)="A"ThenTextl.Text=InputBox("請輸入要添加的項目")

Listl.AdditemTextlEndIfIfChr(KeyCode)="D"ThenTextl.Text=InputBox("請輸入

要刪除的項目“)Fori=0ToList1.ListCount—1IfListl.List(i)=Form1.TextlThen

Listl.Removeitem⑴EndIfNextiEndIfEndSub第三步：調(diào)試并運行程序。第四

步：按題目要求存盤。2.①程序中用到的Mod是取模的運算符，如：NMod7

=0則說明余數(shù)為0,N能被7整除，否則N不能被7整除：程序中的變量num統(tǒng)

計的不能被7整除的個數(shù)，當(dāng)IMod70時，num則加1,表示當(dāng)前有一個不可以被

7整除的數(shù)；題目要求文本框里顯示不能被7整除的數(shù)的個數(shù)，而num保留的是要

求的結(jié)果，所以賦給文本框的值是num(Text1.Text=num)o②解題步驟：第一

步：編寫程序代碼。程序提供的代碼：SubSaveData()OpenApp.Path&&

"outtxt.txt"ForOutputAs#1Print#l,Textl.TextClose#IEndSubFunctionFun()End

FunctionPriv