VB機(jī)試模擬試卷4（共9套）

（共26題）

VB機(jī)試模擬試卷第1套

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

1、（1）在名稱為Forml的窗體上畫一個(gè)文本框，名稱為Textl,字體為宋體，文本框

中的初始內(nèi)容為“模擬試題”；請(qǐng)編寫適當(dāng)事件過(guò)程，使得在運(yùn)行時(shí)，雙擊窗體，則

把文本框中文字加下劃線，如圖62—1所示。程序中不得使用任何變量。注意：

保存時(shí)必須存放在考生文件夾下，工程文件名為sjl.vbp,窗體文件名為

sjl.frmo（2）在名稱為Forml的窗體上畫一個(gè)文本框，名稱為TexU,文本是“雙擊

清除“，如圖62—2所示。請(qǐng)編寫適當(dāng)?shù)氖录^(guò)程，使得在運(yùn)行時(shí)，如果雙擊文本

框，則文本框中的文字消失。程序中不得使用任何變量。_______

?Form!.inixiXZSSB■舊刈

鼓擊》除

圖62-1圖62-2

注意：保存時(shí)必須存放在考生文件夾下，工程文件名為sj2.vbp,窗體文件名為

sj2.frm0

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

中，其名稱為Tcxtl,Text屬性為“模擬試題”，字體為宋體。雙擊Forml窗體，進(jìn)

入代碼窗口，編寫如下弋碼：PrivateSubForm_DblClick（）

Text!.Font.Underline=TrueEndSub單擊承按鈕運(yùn)行程序，并按要求保存。（2）

根據(jù)題意，新建“標(biāo)準(zhǔn)EXE”工程，在窗體上添加一個(gè)文本框，名稱為Textl,Text

屬性為“雙擊清除”。雙擊Tcxtl,進(jìn)入代碼窗口，編寫如下代碼：PrivateSub

Tcxtl_DblClick（）Tcxtl.Tcxt=""EndSub單擊“，按鈕運(yùn)行程序，并按要求保存。

知識(shí)M解析：暫無(wú)解析

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

2、（1）在窗體上繪制一個(gè)標(biāo)簽L1；一個(gè)單選按鈕數(shù)組，名稱為Opl,含三個(gè)單選按

鈕。它們的Index屬性分別為0、1和2,標(biāo)題依次為“飛機(jī)”、“火車”和“汽車”：

個(gè)名稱為Tcxtl的文本框。編寫程序，使得在運(yùn)行時(shí)單擊“飛機(jī)”或“火車”單選按鈕

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

Textl中顯示“我開(kāi)汽車去”。程序運(yùn)行界面如圖66—4所示。注意：保存時(shí)必須存

放在考生文件夾下，窗沐文件名為sj3.frm,工程文件名為si3.vbp。（2）在考生

文件夾中有工程文件Sj4.vbp及窗體文件sj4.frm,該程序是不完整的。在窗體

上有兩個(gè)名稱分別為Commandl和Command?.標(biāo)題分別為“求平方”和“求立方”的

命令按鈕，兩個(gè)名稱分別為Textl和Text2的文本框。要求程序運(yùn)行后，在Textl中

輸入一個(gè)整數(shù)，單擊“求平方”或“求立方”按鈕后，可把該整數(shù)的“平方”或“立方”在

Text2中顯示，如圖66—5所示。

圖66-4圖66-5注意：

請(qǐng)?jiān)谟??”的地方填入正確內(nèi)容，然后刪除“?”及代碼前的所有注釋符（即號(hào)），但

不能修改其他部分。存盤時(shí)不得改變文件名和文件夾。

標(biāo)準(zhǔn)答案：（1）標(biāo)簽和單選按鈕的標(biāo)題均由各自的Caption屬性設(shè)置。程序中需要檢

測(cè)的單選按鈕的狀態(tài)，這可以通過(guò)Value屬來(lái)實(shí)現(xiàn)，如果單選按鈕被選中，則

Value值為1,否則Value值為0。當(dāng)建立單選按鈕數(shù)組控件時(shí)，系統(tǒng)給每個(gè)元素賦

個(gè)?的索引號(hào)（Index）,通過(guò)屬性窗VI的Index屬性，可以知道該控件的下標(biāo)。

在文本框中顯示內(nèi)容通過(guò)Text屬性設(shè)置，其式為：文本框名.Text：顯示的內(nèi)

容，程序中用到了SelectCase語(yǔ)句，格式如下：SeleclCase變量或表達(dá)式（對(duì)于本

題來(lái)說(shuō)就是控件數(shù)組元素的下標(biāo)）Case表達(dá)式列表1語(yǔ)句塊1Case表達(dá)式列表2語(yǔ)

句塊2CaseElse語(yǔ)句塊n+1]EndSelect①建立界面并設(shè)置控件屬性。程序用到的

控件及其屬性見(jiàn)下表：

對(duì)象屬性設(shè)置值

TextNameTextl

單選按鈕Name()pl(0)

玳選按鈕Caption飛機(jī)

單選按鈕Name()pl(l>

忸選按鈕Caption火乍

笊選按包NameOpl(2)

單選按鈕Caption汽車

標(biāo)簽NameLI

②打開(kāi)工程資源管理器，右擊窗體，選擇查看弋反項(xiàng)，在彈出的代碼窗口輸入代

碼如下:PrivateSubOpl_Click(IndexAsInteger)DimaAsString,bAsString,C

AsStringa="我坐“b二"我為“c="我開(kāi)"SelectCaseIndexCaSe0

Textl.Text=a+Me.Opl(O).Caption+"i"Case1

Textl.Text=b+Me.Opl(l).Caption+^i"Case2

Textl.Text=C+Me.Opl(2).Caption+“去“EndSelectEndSub③調(diào)試并運(yùn)行程序。

④按題目要求存盤。(2)根據(jù)題意，將兩個(gè)Text控件和兩個(gè)Command控件添加到

窗體上，Text的名稱分別為Texll和Texl2、Texl屬性都為空，Command的名稱分

別為Commandl和Command?,Caption屬性分別為“求平方”和“求立方”。雙擊

Command1命令按鈕，編寫如下代碼.：PrivateSubCommandl_Click()

Text2.Text=Val(Textl.Text)*Val(Textl.Text)'求Textl中數(shù)的平方EndSub

PrivateSubCommand2_Click()

Text2.Text=Val(Textl.Text)*Val(Textl.Text)*Val(Textl.Text)，求Textl中數(shù)的

立方EndSub單擊按鈕運(yùn)行程序，并按要求保存。

知識(shí)點(diǎn)解析：暫無(wú)解析

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

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

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

屬性設(shè)置為True,scrollBars屬性設(shè)置為2（如圖42—6所示）。程序運(yùn)行后。如果執(zhí)

行“讀人數(shù)據(jù)”命令，則讀入考生文件夾下datainl.ixt文件中的100個(gè)整數(shù)，放入

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

偶數(shù)的元素在文本框中顯示出來(lái)，求出它們的和，并把所求得的和在窗體上顯示出

來(lái)：如果單擊“存盤”按鈕，則把所求得的和存入考生文件夾下的dataoLlt.txt文件

中。在考生文件夾下有一個(gè)工程文件sj5.vbp,窗體文件中的RcadData過(guò)程可以

把daiainl.txl文件中的100個(gè)整數(shù)讀人Arr數(shù)組中；而WriteData過(guò)程可以把指定

的整數(shù)值寫到考生文件夾下指定的文件中（整數(shù)值通過(guò)計(jì)算求得，文件名為

弋FormlOI回漢

漆入雙K計(jì)H用（出碎盤

dataout.txt）o圖42-6注意：考生不得修

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

名仍保存為sj5.frm。

標(biāo)準(zhǔn)答案:本題考查文本框的Name、MuhiLine>ScroHBars和Text屬性,文件操

作,菜單編輯器的使用,Arr（）函數(shù)以及Space。函數(shù)。根據(jù)題意,新建“標(biāo)準(zhǔn)EXE”

工程，利用菜單設(shè)計(jì)器，按表中的設(shè)置建立菜單項(xiàng)，如下表：

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

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

計(jì)算并輸出Calc0

存盤Save0

并將文本框控件添加到窗體中，名稱為Tcxtl,MuhiLine屬性為True,ScrollBars

屬性為2,Texl屬性為空，雙擊進(jìn)入代碼窗口，編寫如下代碼：DimsumAs

IntegerPrivateSubCalcClick()Text).Text=""Fori=2To100Step2Textl.Text：

Textl.Tcxt&Arr(i)&Space(5)sum=sum+Arr(i)NextiPrintsumEndSubPrivateSub

Read_Click()ReadDataEndSubPrivateSubSaveClick()WriteData"dataout.txt",

sumEndSub單擊/按鈕運(yùn)行程序，并按要求保存。

知識(shí)點(diǎn)解析：暫無(wú)解析

VB機(jī)試模擬試卷第2套

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

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

名稱為Forml的窗體上放置一個(gè)名稱為Drivel的DriveListBox控件，一個(gè)名稱為

Dirl的DirListBox控件和一個(gè)名稱為Filel的FileListBox控件。程序運(yùn)行時(shí)，可以

對(duì)系統(tǒng)中的文件進(jìn)行瀏覽；當(dāng)雙擊FiQ中的文件名時(shí)，用MsgBox顯示文件名（不

顯示路徑名)。注意：程序中不得使用任何變量；保存時(shí)必須存放在考生文件夾

下，窗體文件名為SjH.frm,工程文件名為sjtl.vbp。2.在名稱為Forml的窗體

上放置一個(gè)名為Textl的文本框控件和一個(gè)名為Timerl的計(jì)時(shí)器控件，程序運(yùn)行

后，文本框中顯示的是當(dāng)前的時(shí)間，而且每一秒文本框中所顯示的時(shí)間都會(huì)隨時(shí)間

的變化而改變。注意：程序中不得使用任何變量；保存時(shí)必須存放在考生文件夾

下，窗體文件名為sjt2.f7m,工程文件名為sjt2.vbp,如圖1—1所示。

圖1一1

標(biāo)準(zhǔn)答案：①在窗體上建立好控件后，先設(shè)置控件屬性，再編寫事件過(guò)程。②

文件系統(tǒng)控件彳了3種：驅(qū)動(dòng)器列表框(DriveLislBox),目錄列表框(DirLisiBox)和文

件列表框(FileListBox)。3個(gè)文件系統(tǒng)控件必須協(xié)調(diào)工作才能構(gòu)成一個(gè)文件管理系

統(tǒng)，當(dāng)用戶在驅(qū)動(dòng)器列表框中選擇一個(gè)新的列表框或在當(dāng)目錄列表框Path的屬性

改變都觸發(fā)Change事件，將三者(利用本題中3個(gè)對(duì)象的名稱)實(shí)現(xiàn)同步的代碼

為：File1.Path=Dir1.Path,Dirl.Path=Drivel.Driveo雙擊觸發(fā)DblClick事件彈出

MsgBox顯示文件名，其格式為：MsgBox提示［，按鈕兒標(biāo)題］。③解題步驟：第

一步：建立界面并設(shè)置控件屬性。程序中用到的控件及其屬性見(jiàn)表1。表I標(biāo)題

表1

標(biāo)題屬性設(shè)置值

DriveListboxNameDrivel

DirListBoxNameDirl

FileListBoxNameFilel

屬性設(shè)置值DriveListBoxNameDrivel

DirListBoxNameDirlFileListBoxNameFilel第二步：編寫程序代碼。參考代

碼：OptionExplicitPrivateSubDirl_Change()Filel.Path=

Dirl.PathEndSubPrivateSubDrivel_Change()Dirl.Path=

DriveI.DriveEndSubPrivateSubFilel_dblclick()MsgBox

Filel.FileNameEndSubPrivateSubForm_Load()Dirl.Path=

Drivel.DriveFilel.Path=Dirl.PathEndSub第二步：調(diào)試并運(yùn)行程

序。第四步：按題目要求存盤。2.①在窗體上建立好控件后，先設(shè)置控件

的屬性，再編寫事件過(guò)程。②時(shí)鐘控件作用是以一定的時(shí)間間隔激發(fā)計(jì)時(shí)器

事件(Timer)而執(zhí)行相應(yīng)的程序代碼，其Inlerval屬性決定時(shí)間間隔的長(zhǎng)短，以毫秒

為單位，所以要實(shí)現(xiàn)每一秒文本框的時(shí)間改變只要使該屬性設(shè)置為1000即可，要

使程序運(yùn)行后取得當(dāng)前時(shí)間可用Time函數(shù)取得，程序用到的Sir函數(shù)將其中的內(nèi)

容轉(zhuǎn)化為字符串。③解題步驟：第一步：建立界面并設(shè)置控件屬性。程

序中用到的控件及其屬性見(jiàn)表2。

表2

標(biāo)題屬性設(shè)置值

TextffameFextl

VameFiinerl

Timer

Interval1000

標(biāo)題屬性設(shè)置值TextNameTextl

TimerNameInlervalTimer11000第二步：編寫程序代碼“參考代碼：PrivateSub

Form_Load()Text1.Text=Str(Time)EndSubPrivatesubTimerl_Timer()Textl.Text=

Str(Time)EndSub第三步：調(diào)試并運(yùn)行程序。第四步：按題6要求存盤。

知識(shí)點(diǎn)解析：暫無(wú)解析

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

2、創(chuàng)建名稱為Forml的窗體，在窗體上畫一個(gè)圖片框。在圖片框的右側(cè)畫一個(gè)垂

直滾動(dòng)條，其Min屬性為100,Max屬性為2000,LargeChange屬性為120,

SmallChange屬性為30。在圖片框中裝入圖片，圖片框的寬度與圖形寬度一致，高

度任意，如圖4所示。編寫一個(gè)事件過(guò)程，程序運(yùn)行后，移動(dòng)滾動(dòng)條上的滾動(dòng)塊可

以放大或縮小圖片框。程序中不得使用任何變量。注意：存盤時(shí)必須存放在考生

文件夾下，工程文件名為yJc2.vbp,窗體文件名為y1c2.firn。

圖4程序運(yùn)行結(jié)果

標(biāo)準(zhǔn)答案：（l）VisualBasic集成環(huán)境中，執(zhí)行“文件”一“新建工程”命令，選擇“標(biāo)準(zhǔn)

Exe'o創(chuàng)建窗體FormL（2）在工具箱中選擇圖片框控件，在窗體中拖動(dòng)鼠標(biāo)建立

一個(gè)圖片框，其名稱為Picture%在屬性窗口中設(shè)置圖片框?qū)傩裕b入圖片。調(diào)整

圖片和圖片框?qū)挾缺３忠恢?。?）在工具箱中選擇垂直滾動(dòng)條控件，在圖片框右側(cè)

創(chuàng)建垂直滾動(dòng)條，在其屬性窗I」設(shè)置其Min屬性為100,Max屬性為2000,

LargeChange屬性為120,SmallChange屬性為30。雙擊按鈕彈出代碼窗口，編寫

事件過(guò)程如下：PrivateSubVScrolil_Changc（）Picture!.Hcight=VScrolILValueEnd

Sub（4）按F5鍵運(yùn)行程序。如圖4所示。（5）執(zhí)行“文件”一“保存工程”命令，將工程

文件命名為ylc2.vbp,窗體文件命名為ylc2.frmo

知識(shí)點(diǎn)解析：（1）文本框控件操作是上機(jī)考試基本操作中最常見(jiàn)的考點(diǎn)。Visual

Basic中可以通過(guò)文本框的屬性窗口很方便地修改其各項(xiàng)屬性，?？嫉膶傩园ㄊ?/p>

否可見(jiàn)、文本輸出等。其中文本輸出除了通過(guò)屬性窗口中修改，還可以通過(guò)編寫代

碼修改。（2）圖片的裝入可以通過(guò)修改圖片框中屬性窗口中的Picture屬性輸入。圖

片框的修改可以通過(guò)在弋碼中將屬性值賦給Piclure控件的各屬性來(lái)進(jìn)行。

VB機(jī)試模擬試卷第3套

一、基本操作題（本題共I題，每題i.o分，共I分。）

1、（1）在名稱為Forml的窗體上建立一個(gè)二級(jí)下拉菜單。一級(jí)菜單的標(biāo)題為“編

輯”，名稱為vbEdit,有效。二級(jí)菜單有兩項(xiàng)，一項(xiàng)標(biāo)題為“復(fù)制”，名稱為

vbCopy,有效，命令執(zhí)行的快捷方式為Crll+C；另一項(xiàng)標(biāo)題為“粘貼”，名稱為

vbPaste,無(wú)效，命令執(zhí)行的快捷方式為Ctrl+P.程序運(yùn)行時(shí)，窗體界面如圖69—

1所示。注意：存盤時(shí)必須存放到考生文件夾下，工程文件名為sjl.vbp,窗體文

件名為sjl.frm。（2）在名稱為Forml的窗體上畫一個(gè)文本框，其名稱為TexU,然

后通過(guò)屬性窗口設(shè)置窗體和文本框?qū)傩裕何谋究蛑酗@示的初始信息為“模擬考試”，

字體為四號(hào)、常規(guī)、黑沐，并有刪除線，文本框可以顯示多行文本且只有垂直滾動(dòng)

條。不編寫任何代碼。程序運(yùn)行時(shí)的窗體界面如圖69—2所示。

網(wǎng)藉裝d

圖69-1圖69-2注意：保存時(shí)必須存放在考

生文件夾下，窗體文件名為sj2.frm,工程文件名為sj2.vbp0

標(biāo)準(zhǔn)答案：（1）根據(jù)題意，新建“標(biāo)準(zhǔn)EXE”工程，在窗體空白處單擊右鍵，在彈出

的快捷菜單中選擇“菜單編輯器”命令，或按“Ctrl+E”組合鍵，打開(kāi)菜單編輯器，添

標(biāo)題名稱內(nèi)縮快捷健可用

編鷺vbEdit無(wú)無(wú)是

復(fù)制vbCopy一位Cirl-tC是

粘貼vbPaste一位Ctrl+P否

加以下菜單項(xiàng):添加完

成后，單擊“確定”按鈕.再單擊，，按鈕運(yùn)行程序，并按要求保存。（2）根據(jù)題意，

新建“標(biāo)準(zhǔn)EXE”工程，將一個(gè)文本框控件添加到窗體中，其名稱為Textl,Text屬

性為“模擬考試"，F(xiàn)onl屬性為“常規(guī)”、“黑體”、“四號(hào)”，并選中刪除線復(fù)選按鈕，

MultiLIne屬性為True,Scrollbars屬性為2。單擊*按鈕運(yùn)行程序，并按要求保

存。

知識(shí)點(diǎn)解析?：暫無(wú)解析

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

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

名為Forml的窗體上有一個(gè)命令按鈕，其名稱為Command1,標(biāo)題為“添加”；有一

個(gè)文本框，名為Text】，初始內(nèi)容為空白；此外還有一個(gè)列表框，其名稱為L(zhǎng)istl。

程序運(yùn)行后，如果在文本框中輸入一個(gè)英文句子（由多個(gè)單詞組成，各單詞之間用

一個(gè)空格分開(kāi)），然后單擊命令按鈕，程序?qū)言撚⑽木渥幼鳛橐粋€(gè)項(xiàng)目添加到列

表框中，如圖41一4所示。圖41-4該程序不完整，請(qǐng)補(bǔ)充

完整。注意：去掉程序中的注釋符把程序中的問(wèn)號(hào)"?”改為正確的內(nèi)容，使其

能正確運(yùn)行，但不得修改程序的其他部分最后，按原文件名并在原文件夾中保存修

改后的文件。（2）在考生文件夾中有工程文件sj4.vbp及窗體文件sj4.frm。在名

為Forml的窗體上有2個(gè)框架、7個(gè)標(biāo)簽和7個(gè)文本框，所有控件已經(jīng)畫好。判斷

輸入的條件是否為三角形，若是三角形，則在Textl中顯示“是三角形"；在Te*2

中顯示是何種三角形。單擊“重新輸入”按鈕可以清空所有顯示框，且按鈕本身變?yōu)?/p>

無(wú)效狀態(tài)。當(dāng)單擊,'判困:并計(jì)算“按鈕之后重新恢復(fù)為可用狀態(tài)。程序運(yùn)行情況如圖

41—5所示。該程序的功能是：根據(jù)給定的圖形的三邊的邊長(zhǎng)來(lái)判斷圖形的類型。

若為三角形則同時(shí)計(jì)算出為何種三角形及三角形的周長(zhǎng)和面積。

圖41-5注意：本程序不完整，請(qǐng)補(bǔ)充完

整，并能正確運(yùn)行。三角形存在的條件為任一邊不為0且任兩邊之和大于第三

邊。若一邊具有a2+b2=c2,則為直角三角形；若所有邊具有a2+b2>c2,則為銳角三

角形；若一邊具有a2+b22,則為鈍角三角形。去掉程序中的注釋符“小，把程序中

的問(wèn)號(hào)，？，改為正確的內(nèi)容，使其實(shí)現(xiàn)上述功能，但不得修改的其他部分。最后，

按原文件名并在原文件夾中保存修改后的文件。

標(biāo)準(zhǔn)答案：(l)Len()函數(shù)用于返回指定字符串的長(zhǎng)度。使用Mid函數(shù)取出字符串中

的字符。Mid函數(shù)的格式為：Mid(字符串，P,n)oMid函數(shù)從第P個(gè)字符開(kāi)始，

向后截取n個(gè)字符，P和n都是算術(shù)表達(dá)式。Mid函數(shù)的第三個(gè)變量可以省略，這

樣將第P個(gè)字符開(kāi)始先言截取到字符串的結(jié)尾。根據(jù)題意，雙擊Command1命令按

鈕進(jìn)入代碼窗口，補(bǔ)充后的代碼如下：PrivateSubCommandlClick()DimsiAs

String,s2AsStringDim11AsIntegersl=Textl11=1DoDoWhileMid(sL11,

1)<>2：And11<>=Len(s1)s2=s2&Mid(sl,II,1)11=11+1LoopListl.Additems2

S2=2211=11+1LoopWhileIl<=Len(sl)EndSub單擊;*按鈕運(yùn)行程序，并按要求保

存。(2)該題用到兩個(gè)函數(shù)和一個(gè)公式，Val()是將其內(nèi)容轉(zhuǎn)變?yōu)閿?shù)字類型的函數(shù)，

Sqr()是求數(shù)值的平方根函數(shù)，而求解三角形的面積的時(shí)候用到海倫公式即

S=Sqr(L*(L-a)*(L-b)*(L-c)),其中a、b、C是三角形的三條邊，L=(a+b+c)/2。根

據(jù)題意，雙擊Commandl命令按鈕進(jìn)入代碼窗口，補(bǔ)充后的代碼如下：Option

ExplicitDimaASSingleDimbAsSingleDimCAsSingleDimSASDoubleDimL

AsSinglePrivateSubCommandlClick()a=Val(Text5.Text)b=Val(Text6.Text)

c=Val(Text7.Text)IfaQOAnd!??()And??()Anda+b>cAnda+c>bAndb+c>a

ThenTextl.Text二”是三角形“1faA2+b『2=cA2Ora.2+cA2=b八2。11>人2+(:人2=2八2Then

Text2.Text="是直角三角形"ElseIfaA2+bA2>cA2AndaA2+cA2>bA2And

bA2+cA2>aA2ThenText2.Text二”是銳角三角形"Else：Text2.Text="是鈍角三帶形

“EndIfEndIfText3.Text=a+b+C'計(jì)算三角形的盾長(zhǎng)L=(a+b+c)/2

Text4.Text二Sqr(L*(L-a)*(L-b)*(L-c))'計(jì)算三角形的面積Else：Textl.Text="非三

角形"Text2.Text=,M,Text3.Text=',nText4.Text=EndIf

Command2.Enabled=TrueEndSubPrivateSubCommand2click()'止匕處需要設(shè)置，

以實(shí)現(xiàn)清空所有文本框和使“重新輸入”按鈕無(wú)效的功能T最H.Text="”

Text2.Text="“Text3.Texl="“Texl4.Text="“Texi5.Text=""Text6.Tex匚””

Texl7.Text='"Cemmand2.Enabled=FalseEndSubPrivateSubCommand3_Click()

EndEndSubPrivateSubFormLoad()Textl.Enabled=FalseText2.Enablcd=False

Text3.Enabled=FalseText4.Enabled二FalseCommand?.Enabled二FalseEndSub單

擊“實(shí)?‘按鈕運(yùn)行程序，并按要求保存。

知識(shí)點(diǎn)解析：暫無(wú)解析

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

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

的。在名稱為Forml的窗體上有一個(gè)文本框，名稱為Textl、MultiLine屬性為

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

標(biāo)題分別為“讀取”和“計(jì)算保存”，程序運(yùn)行時(shí)的窗體界面如圖28—5所示。要求程

序運(yùn)行后，如果單擊“讀取”按鈕，則讀入in.txt文件中的50個(gè)整數(shù)放人一個(gè)數(shù)組

中(數(shù)組下界為1),同時(shí)在文本框中顯示出來(lái)；如果單擊“計(jì)算保存”按鈕，則計(jì)算

大于或等于500的所有數(shù)的平均數(shù)，并把求得的結(jié)果在文本框Texll中顯示出來(lái)，

同時(shí)把該結(jié)果存人考生文件夾中的文件out.txt中。(在考生文件夾下的標(biāo)準(zhǔn)模塊

mode.bas中的writedata過(guò)程可以把結(jié)果存入指定的文件。)圖28-5

注意：請(qǐng)?jiān)谟械牡胤教钊胝_內(nèi)容，然后刪除及代碼前的所有注釋符(即

號(hào))，但不能修改其他部分。存盤時(shí)不得改變文件名和文件夾。文件必須存放在考

生文件夾下，窗體文件名為sj5.frm,工程文件名為sj5.vbp,計(jì)算結(jié)果存入

out.txt文件，否則沒(méi)有成績(jī)。

標(biāo)準(zhǔn)答案：文本框顯示的內(nèi)容由Text屬性設(shè)置，Multiline屬性設(shè)置文本框是否可

多行顯示：按鈕的標(biāo)題由Caption屬性設(shè)置，單擊命令按鈕觸發(fā)Click事件。題中

涉及對(duì)文件的操作，讀人順序文件以順序的方式打開(kāi)，用Input#語(yǔ)句讀取數(shù)據(jù)，另

外需耍注意的是對(duì)文件操作完后，一定要關(guān)閉文件。根據(jù)題意要求將一個(gè)文本框

控件和兩個(gè)命令按鈕，其中文本框的名稱為Namel、MultiLine屬性為True、滾動(dòng)

屬性為2命令按鈕的名稱分別為Command)和Command2Caption的屬性分別為

“讀取”和“計(jì)算保存”。在“工程”窗口中單擊右鍵在彈出的快捷菜單中選擇“添

加添加模塊”，然后在彈出對(duì)話框的“現(xiàn)存”選項(xiàng)卡中選擇“mode.bas”，單擊

“確定”按鈕即添加成功。模塊mode.bas中的代碼如下：FunctionwriteData(total

AsLong)OpenApp.Path&"\out.txt"ForOutputAs#lWrite#1,totalClose#1End

Function窗體中補(bǔ)充后的代碼如下：Dima(50)AsLong'全局變量Dimstr(50)As

String'全局變量DimtotalAsLongDimnAsIntegerPrivateSubCommand!Clicki)

total=0n=0Textl.Text=""OpenApp.Path&"\in.ixT'ForInpulAs#l'打開(kāi)"in.txt"

文件DimiAsIntegerDimtempAsIntegerFori=0To49Input#1?tempa(i)=temp'按

順序讀人到數(shù)組中NextiFori=0To49Ifa(i)>=500Thentota1=tolal+a(i)'當(dāng)符合條件

時(shí)進(jìn)行相加n=n+l，當(dāng)符合條件是則n增1EndIfstr(i)=a(i)

Textl.Tcxt=Textl.宜京+stKi)+vbCrLf將數(shù)組中的50個(gè)數(shù)放人Text中顯示Nexti

total=total\nClose#IEndSubPrivateSubCommand2Click()Textl.Text=total

writeData(total)'將結(jié)果保存至out.txtEndSub單擊*按鈕運(yùn)行程序，并按要求保

存。

知識(shí)點(diǎn)解析：暫無(wú)解析

VB機(jī)試模擬試卷第4套

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

1、（1）在名稱為Forml的窗體上建立一個(gè)名稱為P1的圖片框和兩個(gè)命令按鈕，名

稱分別為Cmdl和Cmd2,標(biāo)題分別為“輸出”和“清除”，如圖22—1所示。要求程

序運(yùn)行后，每單擊一次“輸出”按鈕，不使用任何變量而直接在圖片框中顯示小寫字

母力oadme'如果單擊“清除”按鈕，則清除圖片框中的內(nèi)容。注意：保存時(shí)必須

存放在考生文件夾下，窗體文件名為sjl.frm,工程文件名為sjl.vbpo（2）在名

為：Forml的窗體上繪制一個(gè)標(biāo)簽，名為L(zhǎng)abi,標(biāo)簽上顯示“請(qǐng)輸入密碼”；在標(biāo)簽

的右邊繪制一個(gè)文本框，名為TextL其寬、高分別為1500和300。設(shè)置適當(dāng)?shù)膶?/p>

性使得在輸入密碼時(shí)，文本框中顯示字符，四外冉把窗體的標(biāo)題設(shè)置為

“Password窗口”。運(yùn)行時(shí)的窗體如圖22—2所示。

圖22-2

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

sj2.vbpo

標(biāo)準(zhǔn)答案：（1）本題主要考查圖片框控件的基本操作。命令按鈕的標(biāo)題通過(guò)Caption

屬性設(shè)置，單擊命令按鈕觸發(fā)Click事件；打印信息用Print方法，清除用Cis方

法。題目要求在圖片框中打印信息，所以在編寫代碼時(shí)應(yīng)指定Prim方法和Cis方

法的使用對(duì)象。在窗體上建立好控件后，先設(shè)置控件屬性，再編寫事件過(guò)程。①

建立界面并設(shè)置控件屬性。程序用到的控件及其屬性見(jiàn)下表。

控件屬性設(shè)置值

圖片框NamePl

命令按鈕Caption輸出

命令按鈕NameCmdl

命令按鈕Caption清除

命令按鈕NameCmd2

②命令按鈕Cmdl觸發(fā)Click事件，打印信息用Print方法。題目要求在圖片框中打

印信息，所以在編寫代碼時(shí)，應(yīng)指定Print方法使用對(duì)象。PrivateSubCmdlClick（）

Pl.Prim”k)adme”EndSub③清除用Cis方法。題目要求清除圖片框中的信息,所

以在編寫代碼時(shí)，應(yīng)指定Cis方法的使用對(duì)象。PrivateSubCmd2_Click()Pl.Cis

EndSub④調(diào)試并運(yùn)行程序。⑤按題目要求存盤。(2)①新建一個(gè)名為Forml的窗

體。②單擊工具箱中的Label控件圖標(biāo)，在窗體上拖拉出一個(gè)標(biāo)簽，在其屬性窗

口設(shè)置名稱為L(zhǎng)abi,Caption屬性為“請(qǐng)輸入密碼”。③單擊工具箱中的TextBox控

件圖標(biāo)，在窗體上拖拉出一個(gè)文本框，在屬性窗口設(shè)置該文本框名稱為Textl；在

屬性窗口設(shè)置其Width屬性為1500,Height屬性為300,設(shè)置PasswordChar屬性

為“*④按要求保存文件即完成本題。

知識(shí)點(diǎn)解析：暫無(wú)解析

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

2、(1)在考生文件夾中有工程文件sj3.vbp及其窗體文件sj3.。frm,該程序是不

完整的。本題內(nèi)容如下：窗體上已有兩個(gè)文本框，名稱為Textl、Text2。耍求在窗

體上補(bǔ)充兩個(gè)單選按鈕，名稱分別為Optionl、Option?,標(biāo)題分別為“全部小寫”和

“全部大寫”。要求補(bǔ)充完整代碼后，在Tcxtl中輸入一段字符，選中“全部小寫”，

Text2顯示全部小寫的字符串；選中“全部大寫”，Text2顯示全部大寫的字符串，如

圖67—3所示0注意：請(qǐng)?jiān)谟小?”號(hào)的地方埴入正確內(nèi)容.然后刪除“?”及代碼前的

所有注釋符(即號(hào))，但不能修改其他部分。存盤時(shí)不得改變文件名和文件夾。

(2)在考生文件夾下有一個(gè)工程文件sj4.vbp,在窗體Forml上設(shè)置一個(gè)控件數(shù)組

Checkl(i),該控件數(shù)組包括6個(gè)復(fù)選框控件，標(biāo)題不限。另設(shè)一個(gè)名稱為

Command］、標(biāo)題為“統(tǒng)計(jì)選中個(gè)數(shù)”的命令按鈕。程序運(yùn)行后，單擊“統(tǒng)計(jì)選中個(gè)

數(shù)闿%鈕時(shí)，統(tǒng)計(jì)有多少個(gè)復(fù)選框被選中，并用MsgBox將其顯示出來(lái)，如圖67—

4所示。

圖67-3圖67-4

注意：請(qǐng)去掉程序中的注釋符把程序中的“?”改為正確的內(nèi)容。但不能修改程

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

標(biāo)準(zhǔn)答案：(1)本題主要考查單選按鈕(OptionButton)的畫法及常用屬性的設(shè)置、文

本框(TexlBox)的Text屬性、大小寫字母轉(zhuǎn)換函數(shù)UCase()和LCase。的使用。單選

按鈕組常用于提供唯一選擇，Value屬性值決定每個(gè)單選按鈕的選中狀態(tài)：False表

示未選中、True表示選中。文本框中輸入的內(nèi)容可以由其Text屬性來(lái)設(shè)置或取

得。將字符串中小寫字母轉(zhuǎn)化為大寫字母可由UCase。函數(shù)來(lái)實(shí)現(xiàn)，將字符串中大

寫字母轉(zhuǎn)化為小寫字母可由LCase()函數(shù)來(lái)實(shí)現(xiàn)。根據(jù)題意，將兩個(gè)文本框控件和

兩個(gè)單選按鈕控件添加到窗體中，文本框的名稱分別為Texll和Text2、Text屬性

都為空，單選按鈕的名稱分別為Optionl和Option2、Caption屬性分別為“全部小

寫''和“全部大寫“。雙擊Command]進(jìn)入代碼窗口，編寫如下代碼：PrivateSub

Optionl_Click()Text2.Texl=LCase(Textl.Text)，單擊OplionL則將Textl中的字母

轉(zhuǎn)換為小寫EndSubPrivateSubOption2_Click()Text2.Texl=UCase(Tnxll.Teri)'

單擊Oplion2,則將Textl中的字母轉(zhuǎn)換為大寫EndSub單擊》按鈕運(yùn)行程序，并

按要求保存。(2)本題主要考查復(fù)選按鈕控件數(shù)組及MsgBox()函數(shù)的使用。復(fù)選

按鈕組常用于提供多重選擇，Value屬性值決定每個(gè)復(fù)選按鈕的選中狀態(tài)：0表示

未選中；1表示選中；2表示不可用。(即灰色)。MsgBox。函數(shù)用于顯示提示信

息，并可返回一個(gè)代表用戶點(diǎn)擊了哪個(gè)按鈕的Integer類型值，其常呼法為：

MsgBox(prompt|,buttons][,title])<>其中,prompt參數(shù)為消息框的提示信息；

bultons參數(shù)用于控制消息框中按鈕的數(shù)日、形式及消息框圖標(biāo)的樣式；title參數(shù)為

消息框標(biāo)題欄上顯示的內(nèi)容。添加控件數(shù)組的方法是：先建立第?個(gè)控件，然后對(duì)

該控件進(jìn)行“復(fù)制”、“粘貼”操作，粘貼時(shí)在彈出的對(duì)話框中選擇建立控件數(shù)組，這

時(shí)控件數(shù)組的Index值會(huì)自動(dòng)從0開(kāi)始編號(hào)，控件數(shù)組的Count屬性用于返回?cái)?shù)組

中元素的個(gè)數(shù)。根據(jù)題意，將一組六個(gè)復(fù)選按鈕控件和一個(gè)命令按鈕添加到窗體

中，Check的名稱都為Checkl、Caption屬性自定義，命令按鈕的名稱為

Commandl,Caption屬性為“統(tǒng)計(jì)選中個(gè)數(shù)“，設(shè)置完成后雙擊Commandl進(jìn)入代碼

窗口，用For循環(huán)逐一檢查復(fù)選按鈕數(shù)組各元素的Value屬性值是否為1,若是，

將統(tǒng)計(jì)變量加1。將最終統(tǒng)計(jì)結(jié)果用MsgBox。函數(shù)顯示。補(bǔ)充后的具體代碼如

下：PrivateSubCommandl_CIick()DimiAsIntegerDimhumAsIntegerhum=0For

i=0ToChcckl.Count-1'For循環(huán)遍歷Chcekl組IfChcckl.Item(i).Valuc=lThen'

如果選中該項(xiàng)num=hum+1'計(jì)數(shù)加1EndIfNexli皿酗(“選中了”+CStr(num)+”項(xiàng)

")'將計(jì)數(shù)結(jié)果放在提示對(duì)話框中顯示EndSub單擊*'按鈕運(yùn)行程序，并按要求保

存。

知識(shí)點(diǎn)解析：暫無(wú)解析

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

3、在考生文件夾下有一個(gè)工程文件sj5.vbp,其窗體上有一個(gè)命令按鈕，名稱為

Commandl、標(biāo)題為“添加”；一個(gè)文本框，名稱為Texll。程序運(yùn)行前，文本框的編

輯區(qū)為空白；一個(gè)列表框，名稱為L(zhǎng)ist%在文本框中輸入文本，若單擊“添加”按

鈕，文本框中的文本被作為一個(gè)列表項(xiàng)被加入到列表框中，如圖19—5所示。

若.雙擊文本框，則使文本框中的內(nèi)容為空，且使，添加”按鈕變?yōu)闊o(wú)效。

'"口1x?

圖19-5注意：去掉程序中的注釋符…3把程序中的,、?”改為正確的內(nèi)

容，使其實(shí)現(xiàn)上述功能，但不能修改程序中的其他部分，也不能修改控件的屬性，

最后把修改后的文件以原來(lái)的文件名存盤。

標(biāo)準(zhǔn)答案：本題重點(diǎn)考查列表框控件的使用及命令按鈕的事件和屬性設(shè)置。列表

框控件用于提供可進(jìn)行單一或多個(gè)選擇的列表項(xiàng)，給列表框添加列表項(xiàng)既可以在設(shè)

計(jì)階段通過(guò)其List屬性設(shè)置加入.也可在程序運(yùn)行時(shí)通過(guò)代碼”列表框

名.Addltcm，項(xiàng)目，”加入，清除列表框內(nèi)容可通過(guò)其Clear方法來(lái)實(shí)現(xiàn)；文本框的

Text屬性用于設(shè)置或返回其上顯示的文本；Enabled屬性用于設(shè)置命令按鈕是否有

效，單擊命令按鈕將觸發(fā)其Click事件。根據(jù)題意，將一個(gè)List控件、一個(gè)命令按

鈕和一個(gè)文本框控件添加到窗體中，列表框的名稱為L(zhǎng)istL命令按鈕的名稱為

Command^Caption屬性為“添加”，文本框的名稱為Textl、Text屬性為空。雙擊

Commandl進(jìn)入代碼窗口，編寫如下代碼：PrivateSubCommandl_Click()

Listl.AdditemTextl.W單擊添加按鍵，將Texll中的字符寫入List中EndSub

PrivateSubTextI_Change()IfTextl.Text=n"ThenCommandl.Enabled=False‘如果

Textl中沒(méi)有字符，則Commandl不可用ElseCommandl.Enabled=True”如果Textl

中有字符，則CommandlnJ用EndIfEndSubPrivateSubTextlDblClick()

Textl.Text=""'雙擊Textl,清空TextlCommandl.Enabled=False'Command不可用

EndSub單擊;浜:按鈕運(yùn)行程序.并按要求保存。

知識(shí)點(diǎn)解析：暫無(wú)解析

VB機(jī)試模擬試卷第5套

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

1、(1)在名稱為Forml的窗體上畫兩個(gè)文本框和兩個(gè)單選按鈕。文本框的名稱分別

為Textl和Text2,初始時(shí)內(nèi)容為Textl和Text2。單選按鈕的名稱分別為Option1、

Option2,標(biāo)題分別為“文本框Textl可用”和“文本框Text2可用編寫適當(dāng)?shù)氖录?/p>

過(guò)程，使得程序運(yùn)行時(shí)，初始狀態(tài)單選按鈕都未被選中，如果單擊Option1按鈕，

則文本框Textl可用，Text2不可用；如果單擊Option2按鈕。則文本框Text2可

用，Textl不可用。程序中不得使用任何變量。程序運(yùn)行時(shí)的窗體界面如圖26—1

所示。注意：考生完成程序編寫后，將工程文件與窗體文件保存到考生文件夾

下，文件名分別為sjl.vbp與sjl.frmo（2）在名稱為Forml的窗體上畫一條直線，

名稱為L(zhǎng)inel。同時(shí):在窗體上畫一個(gè)水平滾動(dòng)條，名稱為HScrolH。編寫適當(dāng)?shù)氖?/p>

件過(guò)程，程序運(yùn)行后，艱據(jù)水平滾動(dòng)條的長(zhǎng)度改變Linel的長(zhǎng)度。不得使用任何變

量。程序運(yùn)行時(shí)的窗體界面如圖26—2所示。

■FomiljdGJxj?Forml除血兇

TX2

「文本用c文本向

THBf用可用4Id

圖26T圖26-2注意：存盤

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

標(biāo)準(zhǔn)答案：（1）根據(jù)題意，新建“標(biāo)準(zhǔn)EXE”工程，將兩個(gè)Text控件和兩個(gè)Option控

件添加到窗體上，Text的名稱為Textl、Text2.Text屬性分別為“TextF和“Tex2’，

Option的名稱分別為OptionROption?>Caption屬性分別為“文本框Textl可用”和

“文本框Text2可用“，其中Oplionl的Value屬性為False,Text2的Enable屬性為

Falseo雙擊OpUon進(jìn)入代碼窗口，編寫如下代碼：PrivateSubOpiionl_Click（）

Textl.Enablcd=Truc'選中Optionl,則Textl可用Text2.Enabled=Falsc'Tcxt2不可

用EndSubPrivateSubOption2_Click（）Textl.Enabled=FalseText2.Enabled=True

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

程，將一個(gè)HScrollBar控件添加到窗體上,其名稱為HScroW,Max屬性為2000,

Min屬性為400,然后再用Line控件畫一條直線，X2-XI的值為400,

Bm'derWidth屬性為4。雙擊HScrolll,進(jìn)入代碼窗口，編寫如下代碼：Private

SubHScrollI_Change（）Linel.X2=Linel.Xl+HScrolll.Value'通過(guò)HScrolH來(lái)改變

Line的長(zhǎng)度EndSub單擊,按鈕運(yùn)行程序，并按要求保存。

知識(shí)點(diǎn)解析：暫無(wú)解析

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

2、（1）在考生目錄下有一個(gè)工程文件sj3.vbp,窗體中有一個(gè)命令按鈕，標(biāo)題為

“開(kāi)始”，名稱為Command］；有一個(gè)圖片框，名稱為Piel,還有一個(gè)計(jì)時(shí)器，名稱

為Timerl。并給出了兩個(gè)事件過(guò)程，但并不完整，要求：設(shè)置計(jì)時(shí)器的屬性，使

其每隔3秒調(diào)用Timcrl事件過(guò)程一次，改變Piel的背景色（紅、綠、藍(lán)3色）。去掉

程序中的注釋符把程序中的“?”改為正確的內(nèi)容，使得在運(yùn)行時(shí)單擊“開(kāi)始”按

鈕，則Piel每隔3秒改變一次背景色，由紅變綠，由綠變藍(lán)，再由藍(lán)變紅，如圖

23—3所示。注意：不能修改程序中的其他部分。最后把修改后的文件按原文件名

存盤。（2）在窗體上繪制一個(gè)命令按鈕，名稱為Command1，標(biāo)題分別為“計(jì)算”，

個(gè)名稱為Textl的文本柜。請(qǐng)編寫適當(dāng)?shù)氖录^(guò)程，在Textl中輸出30以內(nèi)滿足勾

股定理的整數(shù)組合。注：勾股定理中3個(gè)數(shù)的關(guān)系是：a2+b2=c2o例如3、4、5就

是一個(gè)整數(shù)組合，即32+42=52。如圖23—4所示。

8B23*3EB23-4

注意：編寫程序，去掉程序中的注釋符把程序中的“?”改為正確的內(nèi)容，不能

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

標(biāo)準(zhǔn)答案：(1)本題主要考查Timer控件的屬性設(shè)置和圖片框控件的屬性設(shè)置。計(jì)

時(shí)器的Interval屬性用于設(shè)置每次觸發(fā)計(jì)時(shí)器的Timer事件的時(shí)間間隔，單位為毫

秒，它可以在屬性窗口中設(shè)置，也可以通過(guò)代碼設(shè)置。圖片框控件既可用于顯示圖

片，也可用于在上面繪圖，由于本題只要求改變顏色，所以只需控制其背景顏色屬

性即可。根據(jù)題意，補(bǔ)充后的代碼如下：DimaAsIntegerPrivateSub

Cominandl_Click()Timerl.Interval1000'開(kāi)始后,Timer的間隔時(shí)間為1秒End

SubPrivateSubForm_Load()a=0'初始化計(jì)數(shù)Piel.BackColor=RtB(255,0,O)End

SubPrivateSubTimerl_Timer()a=(a+l)Mod9，以9為周期Ifa<3Then，當(dāng)a小于3時(shí)

Piel.BackColor=RGB(255,0,O)'背景色為紅色Elselfa>=3And6Then'當(dāng)a<6

時(shí)Piel.BackColor=RGB(O,255,0)‘背景色為綠色Else，其他情況

Piel.BackColor=RGB(0,0,255)，背景色為藍(lán)色EndIfEndSub單擊:?按鈕運(yùn)行

程序，并按要求保存。(2)本題只要明白勾股定理的含義就不難了，即

a^+b八2kA2。程序中利用3重循環(huán)對(duì)30以內(nèi)的數(shù)進(jìn)行遍歷，每發(fā)現(xiàn)一組符合條件

的數(shù)，就以逗號(hào)間隔顯示在文木框中。窗體界面題中已設(shè)計(jì)好，只需補(bǔ)充相應(yīng)的代

碼，補(bǔ)充后的代碼如下：PrivateSubCommandi_Click()DimiAsIntegerDimjAs

IntegerDimkAsIntegerDimstrAsStringstr='n,Fori=lTo30'第1個(gè)數(shù)用For循環(huán)

從1遍歷到30Forj=iTo30'第2個(gè)數(shù)用For循環(huán)從i遍歷到30Fork=iTo3(T第3

個(gè)數(shù)用For循環(huán)從i遍歷到30IfiA2+jA2=kA2Then，滿足勾股定理str=str+CStr(i)+",

,,+CStr(j)+，\"+CStr(k)+vbCrLP將獲得的3個(gè)數(shù)通過(guò)字符串形式記錄EndIfNextk

NextjNextiTextl.Tex〔=str'在Texll中顯示結(jié)果EndSub單擊戰(zhàn)按鈕運(yùn)行程序，

并按要求保存。

知識(shí)點(diǎn)解析：暫無(wú)解析

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

3、在考生文件夾下有一個(gè)工程文件sj5.vbp,在該工程中為考生提供了一個(gè)通用

過(guò)程，考生可以直接調(diào)用。請(qǐng)?jiān)诖绑w上畫一個(gè)名稱為Textl的文本框；畫一個(gè)名稱

為Command］、標(biāo)題為“計(jì)算顯示”的命令按鈕；再面兩個(gè)單選按鈕，名稱分別為

Optionl和Option2、標(biāo)題分別為“求100到250之間能被5整除的數(shù)的個(gè)數(shù)”和“求

300到400之間能被6整除的數(shù)的個(gè)數(shù)”，如圖62-5所示。

■Fonnl

6m02WW區(qū)

anr?

r次300到皿發(fā)BtGS*謝京

的個(gè)■

圖62-5請(qǐng)編寫適當(dāng)?shù)氖录^(guò)程，使得在運(yùn)行時(shí)，選中一個(gè)單

選按鈕，再單擊”計(jì)算顯示”按鈕，就可以按照單選按鈕后的文字要求計(jì)算，弁把計(jì)

算結(jié)果放入文本框中，最后把已經(jīng)修改的工程文件和窗體文件以原來(lái)的文件名存

盤。注意：考生不得修改窗體文件中已經(jīng)存在的程序，退出程序時(shí)必須通過(guò)單擊

窗體右上角的關(guān)閉按鈕來(lái)完成。在結(jié)束程序運(yùn)行之前，必須至少要進(jìn)行一種計(jì)算，

否則不得分。

標(biāo)準(zhǔn)答案：根據(jù)題意，將一個(gè)文本框控件，兩個(gè)單選按鈕控件和一個(gè)命令按鈕添加

到窗體中，文本框的名禰為Texll,單選按鈕的名稱：分別為Optionl和Oplion2,

Caption分別為“求100到250之間能被5整除的數(shù)的個(gè)數(shù)”和“求300到400之間能

被6整除的數(shù)的個(gè)數(shù)”，命令按鈕的名稱為Command],Caption屬性為“計(jì)算顯

示“，設(shè)置完成后，雙擊Commandl進(jìn)入代碼窗口，補(bǔ)充后的具體代碼如下：

PrivateSubConimandl_Click()DimrainAs