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

（共27題）

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

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

1、在名稱為Form1的窗體上添加兩個(gè)名稱分別為Frame】、Frame2的框架，標(biāo)題分

別為“字號(hào)”、“修飾”；在Framel中添加兩個(gè)單選按鈕，名稱分別為Optionl、

Option2,標(biāo)題分別為“10號(hào)字”、“20號(hào)字”，且標(biāo)題顯示在單選按鈕的左邊；在

Frame2中添加1個(gè)名稱為Checkl的復(fù)選框，標(biāo)題為“下劃線”。程序運(yùn)行后的窗體

界面如圖61—1所示。注意：存盤時(shí)必須存放在考生文件夾下，工程文件名保存

為sjl.vbp,窗體文件名保存為sjl.frm。（2）在名為Fomil的窗體上繪制一個(gè)文本

框，名為Texll,無(wú)初始內(nèi)容；再繪制一個(gè)圖片框，名為Piel。請(qǐng)編寫Textl的

Change事件過(guò)程，使得在運(yùn)行時(shí)，在文本框中每輸入一個(gè)字符，就在圖片框中輸

出一行文本框中的完整內(nèi)容。運(yùn)行時(shí)的窗體如圖61—2所示。

圖61-1

序中不能使用任何變量；文件必須存放在考生文件夾中，工程文件名為sj2.vbp,

窗體文件名為sj2.frm。

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

按鈕和1個(gè)復(fù)選框，2個(gè)框架的名稱分別為FramelfUFrame2,Caption屬性分別為

“字號(hào)”和“修飾”，2個(gè)單選按鈕的名稱分別為OptioM和Option2,Caption屬性分別

為“10號(hào)字，，和“20號(hào)字”，復(fù)選框名稱為Checkl,Caption屬性為“下畫線”。單擊

按鈕運(yùn)行程序，并按要求保存。（2）①新建一個(gè)名為Forml的窗體。②單擊工

具箱中的PiclureBox控件圖標(biāo)，在窗體上拖拉出一個(gè)圖片框，在屬性窗口設(shè)置該圖

片框名稱為Piel。③單擊工具箱中的TextBox控件圖標(biāo)，在窗體上拖拉出一個(gè)文

本框，在屬性窗口設(shè)置該文本框名稱為TextL設(shè)置其Text屬性為空白。④打開(kāi)

代碼窗口輸入如下代碼：PrivateSubTextl—Change。'將文本框內(nèi)容顯示在圖片框

中EndSub⑤按要求保存文件即完成本題。

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

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

2、（1）在考生文件夾中有一個(gè)工程文件sj3.vbp和一個(gè)窗體文件sj3.frm。窗體上

有一個(gè)名為Textl的文件框，一個(gè)標(biāo)題為“計(jì)算”、名稱為Command1的命令按鈕和

一個(gè)組合框。請(qǐng)?jiān)诿麨镃ombol的組合框中輸入3個(gè)列表項(xiàng)：“5”、“9”和“13”例表

項(xiàng)的順序不限，但必須是這3個(gè)數(shù)字），程序運(yùn)行情況如圖36-3所示。請(qǐng)編寫適

當(dāng)?shù)氖录^(guò)程，使得程序運(yùn)行時(shí)，在組合框中選定一個(gè)數(shù)字后，單擊“計(jì)算”按鈕，

則計(jì)算4000以內(nèi)能夠被該數(shù)整除的所有數(shù)之和，并放入Textl中。最后，按原文

件名存盤（提示：由于計(jì)算結(jié)果較大，應(yīng)使用長(zhǎng)整型變量）。注意：不得修改窗體文

件中已經(jīng)存在的程序，在結(jié)束程序運(yùn)行之前，必須至少進(jìn)行一次計(jì)算。必須用窗體

右上角的關(guān)閉按鈕結(jié)束程序，否則無(wú)成績(jī)。（2）在考生文件夾中有一個(gè)工程文件

sj4.vbp及窗體文件sj4.frm。在名為Forml的窗體上有一個(gè)圓和一條直線（直線的

名稱為L(zhǎng)inel）構(gòu)成一個(gè)鐘表的圖案：有兩個(gè)命令按鈕,名稱分別為Command1卻

Command?,標(biāo)題分別為“開(kāi)始”和“暫?！?；還有一個(gè)名為Timed的計(jì)時(shí)器。程序運(yùn)

行時(shí)，鐘表指針不動(dòng)，單擊開(kāi)始按鈕，則鐘表上的指針（即Linel）開(kāi)始順時(shí)針旋轉(zhuǎn)

（每秒轉(zhuǎn)6,一分鐘轉(zhuǎn)一圈）；單擊暫停按鈕，則指針暫停旋轉(zhuǎn)。運(yùn)行時(shí)的窗體如

圖36—4所示。請(qǐng)?jiān)O(shè)置計(jì)時(shí)器的適當(dāng)屬性，使得每秒激活計(jì)時(shí)器的Timer事件一

次；編寫兩個(gè)按鈕的Click事件過(guò)程。文件中已經(jīng)給出了所有控件和部分程序，不

得修改已有程序和其他控件的屬性；編寫的事件過(guò)程中不得使用變量，且只能寫一

條語(yǔ)句。最后，按原文，’牛名并在原文件夾中保存修改后的文件。

圖36-3圖36-4注意：保

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

標(biāo)準(zhǔn)答案：⑴組合框（ComboBox）將文本框與列表框的特性組合在一起，既可在組

合框的文本框部分輸入信息，也可在列表框部分選擇項(xiàng)目；組合框的列表項(xiàng)可以在

設(shè)計(jì)階段通過(guò)其List屬性加入，加入時(shí)注意每輸入完一項(xiàng)后按“Ctrl+Entcr”組合鍵

換行再輸入下一項(xiàng)，也可以通過(guò)代碼設(shè)置，Addhem方法用來(lái)向組合框中添加一個(gè)

表項(xiàng)，其格式為：組合框.Additem列表項(xiàng)［索引］。題目給出的源程序中已給設(shè)計(jì)

好窗體，只需在Combol的List屬性中添加“5”、“9”和“13”三個(gè)列表項(xiàng),添加完成

后，雙擊Commandl進(jìn)入代碼窗口，補(bǔ)充后的代碼如下：PrivateSub

Commandl_Click()IfCombO1.Text=5Thendivide(5)ElselfCombO1.Text=9Then

divide(9)Elsedivided3)EndIfEndSubPrivateSubdivide(XASInteger)DimiAs

IntegerDimtempAsLongFori=lTO4000IfiModx=0Thentemp=temp+iEndIf

NextiTextl.Text二tempEndSub單擊逑按鈕運(yùn)行程序.并按要求保存。(2)本題

主要考查計(jì)時(shí)器控件和形狀控件和用法。計(jì)時(shí)器的Interval屬性用于設(shè)置每次觸發(fā)

計(jì)時(shí)器的Timer事件的時(shí)間間隔，單位為亳秒。Enabled屬性控制計(jì)時(shí)器是否開(kāi)始

啟用，True表示啟用，F(xiàn)alse表示不啟用。形狀控件用來(lái)繪制各種形狀，其值有6

種，0表示矩形，1表示正方形，2表示橢圓，3表示圓形，4表示圓角矩形，5表

示圓角正方形。根據(jù)題意，將計(jì)時(shí)器的Interval屬性設(shè)為1000,雙擊Command1

命令按鈕，進(jìn)入代碼窗口，源程序給出的代碼如下：DimlenthAsInteger,qAs

IntegerConstPI=3.14159PrivateSubFormLoad()lenth=Linel.Y2-Linel.Y1q=90

EndSubPrivateSubTimerl_Timer()q=q-6Linel.Yl=Linel.Y2-lenth*Sin(q*PI/180)

Linel.Xl=Linel.X2+lenth*Cos(q*PI/180)EndSub補(bǔ)充后的命令按鈕4件如下：

PrivateSubCommandlClick()Timerl.Enabled=TrueEndSubPrivateSub

Command2_Click()Timerl=FalseEndSub單擊按鈕運(yùn)行程序，并按要求保存。

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

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

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

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

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

標(biāo)題分別為“讀取”和“排序保存”，如圖18—5所示，程序運(yùn)行后，如果單擊“讀取”

按鈕，則讀入in.txt文件中的50個(gè)整數(shù)，放入一個(gè)數(shù)組中（數(shù)組下界為1）；如果

單擊“排序保存”按鈕，則對(duì)這50個(gè)整數(shù)按從小到大的順序進(jìn)行排序，把排序后的

全部數(shù)據(jù)在文本框Textl中顯示出來(lái)，然后存人考生文件夾的out.ixl文件中。（考

生文件夾下的標(biāo)準(zhǔn)模塊mode5.has中的writedata過(guò)程可以把指定個(gè)數(shù)的數(shù)組元素

存入oul.ixl文件。）圖18-5注意：請(qǐng)?jiān)谟小?”的地方填入正確內(nèi)容，

然后刪除“?”及代碼前的所有注釋符（即號(hào)）但不能修改其他部分。文件必須存放

在考生文件夾下，窗體文件名為si5.frm,工程文件名為si5.vbp,排序結(jié)果存入

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

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

名為ylcl.bp；窗體文件命名為ylcLfrm。［*］

知識(shí)點(diǎn)解析：（1）第1小題中要使用Enable屑性來(lái)控制選擇控件的變灰與否。

2、新建一個(gè)工程，在窗體中創(chuàng)建一個(gè)單選按鈕數(shù)組，名稱為Option1。該數(shù)組含

有四個(gè)單選按鈕，其標(biāo)題依次為“選項(xiàng)1”、“選項(xiàng)2”、“選項(xiàng)3”和“選項(xiàng)4”，其下標(biāo)

分別為1,2,3,40默認(rèn)選擇為“選項(xiàng)3”。運(yùn)行結(jié)果如圖10所示。程序中不得使

用任何變量。注意：存盤時(shí)必須存放在考生文件夾下，工程文件名為ylc2.vbp,窗

體文件名為ylc2.frm。圖10程序運(yùn)行結(jié)果

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

Exe”。創(chuàng)建窗體FormL（2）在工具箱中選擇單選按鈕控件，在窗體中要求位置畫

出兩個(gè)單選按鈕，笫一個(gè)按鈕的名稱為Opiionl,笫二個(gè)按鈕的名稱也設(shè)為

Option1,這時(shí)系統(tǒng)會(huì)提示是否建立單選按鈕數(shù)組。選擇“確定”，并建立另外兩個(gè)

單選按鈕。將所有按鈕的Caption屬性依次設(shè)置為“選項(xiàng)1”、“選項(xiàng)2”、“選項(xiàng)3”和

“選項(xiàng)4”。（3）將“選項(xiàng)3”的Value屬性設(shè)置為True,設(shè)為默認(rèn)選項(xiàng)。（4）按F5鍵運(yùn)

行程序。如圖10所示。（5）執(zhí)行“文件”一“保存工程”命令，將工程文件命名為

ylc2.vbp,窗體文件命名為ylc2.fnn。［*］

知識(shí)點(diǎn)解析：（2）第2小題主要考查了按鈕數(shù)組的建立。在VisualBasic中控件數(shù)組

的設(shè)置方式都相同。

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

3、有一個(gè)工程文件ylc6.vbp,它的功能是在文本框中輸入一個(gè)整數(shù)，單擊“移動(dòng)”

按鈕后，如果輸入的是正數(shù)，滾動(dòng)條中的滾動(dòng)框向右移動(dòng)與該數(shù)相等的刻度，但如

果超過(guò)了滾動(dòng)條的最大刻度，則不移動(dòng)，并且顯示"文本框中的數(shù)值太大”；如果輸

入的是負(fù)數(shù)，則滾動(dòng)框向左移動(dòng)與該數(shù)相等的刻度，但如果超過(guò)了滾動(dòng)條的最小刻

度，則不移動(dòng)，并且顯示“文本框中的數(shù)值太小”，如圖18所示。題目中提供的

"移動(dòng)"按鈕控件Command1的Click事件的源代碼如下：PrivateSub

Commandl_Click（）DimnCountAsIntegernCount=CInt（Textl.Text）If（nCount>

=?）ThenHScrolll.Value=HScrolll.Max?ElseIf（nCount<=HScrollLMin）

Then?=HScrolll.MinMsgBox（“文本框中的數(shù)字太小"）ElseHScrolll.Value=?EndIf

EndIfEndSub注意：彳?能修改程序中的其他部分，不能修改控件的屬性，最后把

修改后的程序以原來(lái)的文件名存盤。存盤時(shí)必須存放在考生文件夾下。

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

標(biāo)準(zhǔn)答案：操作步驟⑴在VisualBasic集成環(huán)境中選擇“文件”一“打開(kāi)工程”命令，

在對(duì)話框中選擇ylc6.vbp工程文件，單擊“確定”按鈕打開(kāi)。（2）選擇工具箱中的

TexlBox控件，在窗口上拖動(dòng)，創(chuàng)建該控件命名為Textl,設(shè)置屬性為空。（3）選擇

工具箱中的CommandButton控件，在窗口中拖動(dòng)并畫出該控件。在屬性編輯框命

名為Command1,標(biāo)題設(shè)置為“移動(dòng)（4）選擇工具箱中的HScrollBar控件，在窗

口上拖動(dòng)創(chuàng)建該控件，命名為HScroUL在屬性窗口根據(jù)題目的要求設(shè)置Valua屬

性值為0。（5）題目要求在移動(dòng)到最左或最右邊時(shí)，停止移動(dòng)并顯示提示信息。H

此，在屬性中設(shè)置它的最大最小值，即設(shè)置Max屬性為256,設(shè)置Min屬性的值

為-256。2.行為編碼Cormnandl的Click事件，代碼如下：PrivateSub

Commandl_Click（）DimnCountAsIntegernCount=CInt（Textl.Text）'當(dāng)前值與最大

值比較If（nCount>=HScrolll.Max）ThenHScrolll.Value=HScrolll.Max，信息提示框

提示MsgBox（”文本框中的數(shù)字太大"）Else'當(dāng)前值與最小值比較If（nCount<

=HScrollLMin）ThenHScrolll.Value=HScrelll.Min'信息提示框提示MsgBox（“文本框

中的數(shù)字太小"）Else，把當(dāng)前值賦給滾動(dòng)條HScrolIl.Vaiuc=nCountEndIfEndIfEnd

Sub3.存盤保存執(zhí)行“文件”一“保存工程”命令，工程文件名為ylc6.vbp,窗體文

件名為ylc6￡m。

知識(shí)點(diǎn)解析：（I）本題考查考生對(duì)HScrollBar相關(guān)屬性的設(shè)置，包括對(duì)HScrollBar

控件的最大、最小值的設(shè)置，滾動(dòng)設(shè)置，以及判斷語(yǔ)句的運(yùn)用和實(shí)現(xiàn)顯示用戶提示

信息。（2）注意HScrollBar控件的最大、最小值設(shè)置，滾動(dòng)條的值設(shè)置，

CommandButton控件的Click事件處理的功能。（3）在每次單擊“移動(dòng)”按鈕后，將

文本框中的數(shù)值與HSc⑹IBar的Max屬性值和Min屬性值進(jìn)行比較。若超出

HScrollBar的值域范圍則彈出太大或太小提示信息，否則移動(dòng)滾動(dòng)條。

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

4、新建一個(gè)工程。在窗體中畫一個(gè)列表框，名稱為L(zhǎng)ist,通過(guò)屬性窗口向列表框

中添加3個(gè)項(xiàng)目，分別為“中文”、”廣東話”和English。編寫一個(gè)事件過(guò)程，要求

運(yùn)行程序后，雙擊列表中的任何一項(xiàng)，都會(huì)在后面加上“謝謝”，如圖16所示。

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

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

Exe”。創(chuàng)建窗體Formic（2）在工具箱中選擇ListBox控件，在窗體上拖動(dòng)創(chuàng)建一

個(gè)列表框，名稱為L(zhǎng)istl。在其屬性窗口中，添加三個(gè)項(xiàng)目，分別為“中文”、“廣東

話”和English。⑶在Listl的代碼窗U中添加以卜,代碼：PrivateSub

Listi_DblClick（）List1.Additem（"謝謝*EndSub（4）按F5鍵運(yùn)行程序。如圖16所

示。（5）執(zhí)行“文件”一＞“保存工程”命令，將工程文件命名為ylc4.vbp,窗體文件命名

為ylc4.frm。|*]

知識(shí)點(diǎn)解析：（4）第4小題中，主要考查了列表框的建立和Additem的使用。

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

一、基本操作題（本題共I題，每題上0分，共1分,）

1、注意：下面出現(xiàn)的“考生文件夾”均為c：\wexam\25160001o請(qǐng)根據(jù)以下各小題

的要求設(shè)計(jì)VisualBasic應(yīng)用程序（包括界面和代碼）。（1）在名稱為Fonnl的窗體上

畫一個(gè)標(biāo)簽，名稱為L(zhǎng)1,標(biāo)簽上顯示“請(qǐng)輸入密碼”，在標(biāo)簽的右邊畫一個(gè)文本

框，名稱為Tcxtl,其寬和高分別為2000和300,設(shè)置適當(dāng)?shù)膶傩允沟迷谳斎朊艽a

時(shí)，文本框中顯示“*”字符，此外再把窗體的標(biāo)題設(shè)置為“密碼窗口”，以上這些設(shè)

置都只能在屬性窗口中進(jìn)行設(shè)置，運(yùn)行時(shí)的窗體如圖20-1所示。注意：存盤時(shí)必

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

稱為Forml的窗體上畫一個(gè)圖片框，名稱為P1。請(qǐng)編寫適當(dāng)?shù)氖录^(guò)程，使得在

運(yùn)行時(shí)，每單擊圖片框一次，就在圖片框中輸出“單擊圖片框”一次，每單擊圖片框

外的窗體一次，就在窗體中輸出“單擊窗體”一次，如圖20-2所示。要求程序中不

得使用變量，每個(gè)事件過(guò)程中只能寫一條語(yǔ)句。注意：存盤時(shí)必須存放在考生文

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

圖20-1圖20.2

標(biāo)準(zhǔn)答案：在窗體上建立好控件后，只需設(shè)置控件的屬性即可。在設(shè)置屬性時(shí)標(biāo)

簽的名稱由Name屬性設(shè)置，內(nèi)容由Caption屬性設(shè)置，寬和高設(shè)置由Wid出屬性

和Height屬性。窗體的標(biāo)題由窗體的Caption屬性設(shè)置。PasswordChar屬性可以將

文本框設(shè)置為口令輸入，題目要求顯示“叱，所以應(yīng)該將PasswordChar屬性設(shè)置為

解題步驟：第一步：建立界面并設(shè)置控件屬性。程序中用到的控件及其屬性

控件屬性設(shè)置值

NameForml

Form

Caption密碼窗口

NameTextl

文本框

PasswordChar*

NameLI

標(biāo)簽

Caption請(qǐng)輸入密碼

值見(jiàn)表20-1。請(qǐng)輸入密碼

第二步：調(diào)試并運(yùn)行程序。第三步：按題目要求存盤。（2）先在窗體上建

立圖片控件。然后再編寫過(guò)程代碼。單擊窗體觸發(fā)的時(shí)Form_Click事件，單

擊圖片框觸發(fā)的時(shí)PLClick事件。在對(duì)象中打印信息使用的是Print方法，其語(yǔ)法

格式為：對(duì)象.Print解題步驟：第一步：建立界面并設(shè)置控件屬性。

程序用到的控件及其屬性見(jiàn)表20-2o

控件屬性設(shè)置值

圖片框NameP1

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

考代碼：OptionExplicitPrivateSubForm_Click（）Me.Print"單擊窗體"EndSub

PrivateSubPl_Click（）PI.Print”單擊圖片精“EndSub第三步：調(diào)試并運(yùn)行程序：＞

第四步：按題目要求存盤。

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

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

2、注意：下面出現(xiàn)的“考生文件夾”均為c：\wexam\25160001o（1）在名稱窗體為

Forml,KeyPreview屬性為True的窗體上有一個(gè)列表框（名稱為L(zhǎng)istl）和一個(gè)文本

框（名稱為Textl）,如圖22-5所示。編寫窗體的KeyDown事件過(guò)程。程序運(yùn)行

后，如果按“A”鍵，則從鍵盤上輸入要添加到列表框中的項(xiàng)目（內(nèi)容任意，不少于三

個(gè)）；如果按鍵，則從鍵盤上輸入要?jiǎng)h除的項(xiàng)目，將其從列表框中刪除。程序的

運(yùn)行情況如圖22-6所示。在考生文件夾下有一個(gè)工程文件sjl3.vbp(相應(yīng)的窗體文

件名為sjt3.frm),可以實(shí)現(xiàn)上述功能。但這個(gè)程序不完整，請(qǐng)把它補(bǔ)充完整。要

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

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

圖22?5圖22-6(2)在考生文件夾下有一

個(gè)工程文件sjt4.vbp(相應(yīng)的窗體文件名為sjt4.frm),其功能是通過(guò)調(diào)用過(guò)程

Average求數(shù)組的平均值，請(qǐng)裝入該文件。程序運(yùn)行后，在4個(gè)文本框中各輸入一

個(gè)整數(shù)，然后單擊命令或鈕，即可求出數(shù)組的平均值，并在窗體上顯示出來(lái)，如圖

22-7所示。這個(gè)程序不完整，請(qǐng)把它補(bǔ)充完整，并能正確運(yùn)行。要求：去掉程序

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

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

圖22-7

標(biāo)準(zhǔn)答案：判斷按鍵可以在窗體的KeyDown事件下用Chr函數(shù)將按鍵代碼轉(zhuǎn)換成

字符與給定字符進(jìn)行比較。使用Additem方法向列表框中添加列表項(xiàng)目，使用

Removehem方法從列表框中刪除列表項(xiàng)目。程序中用到了InputBox。，其格式

為：InputBox(prompt[,title][,default][,xpos][,ypos][,helpfile,context])prompt：是一4、

字符串，其長(zhǎng)度不得超過(guò)1024個(gè)字符，它是在對(duì)話框內(nèi)顯示的信息，用來(lái)提示用

戶輸入。title：字符串，它是對(duì)話框的標(biāo)題，顯示在對(duì)話框頂部的標(biāo)題區(qū)。

default：字符串，用來(lái)顯示輸入緩沖區(qū)的默認(rèn)信息。xpos,ypos：是兩個(gè)整數(shù)值，

分別用來(lái)確定對(duì)話框與屏幕左邊的距離(xpos)和上邊的距離(ypos),它們的單位為

twipohelpfile,context：helpfile是一個(gè)字符串變量或字符串表達(dá)式，用來(lái)表示幫

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

目錄號(hào)。解題步驟：第一步：建立界面并設(shè)置控件屬性。程序中用到的控件及其

控件屬性設(shè)置值

FormlKeyPreviewTtue

ListboxNameListl

文本相NameTextl

屬性見(jiàn)表22-3。第二

步：編寫程序代碼。程序提供的代碼：PrivateSub

Form_KeyDown(KeyCodeAsInteger,ShiftAsInteger)If

Chr(KeyCode)=,,A"ThenText1.Text=InputBox("請(qǐng)輸入要添加的項(xiàng)

目“)?List1.Additem?EndIfIf

Chr(KeyCode)="D"ThenTextl.Text=InputBox("請(qǐng)輸入要?jiǎng)h除的項(xiàng)

目“)Tori=0To?'IfListl.List(i)=?

Then5List1.Removeltem?EndIf

NextiEndIfEndSub參考代碼：PrivateSub

Form_KeyDown(KeyCodeAsInteger,ShiftAsInteger)If

Chr(KeyCode)=,'A"ThenText1.Text=InputBox("請(qǐng)輸入要添加的項(xiàng)

目“)Listl.AdditemTextIEndIfIf

Chr(KcyCodc)="D"ThenText1.Tcxt=InputBoxC'請(qǐng)輸入要?jiǎng)h除的項(xiàng)

目")Fori=0ToListl.ListCount-1If

Listl.List(i)=Forml.TextlThenListl.Removeitem(i)

EndIfNextiEndIfEndSub第三步：調(diào)試

并運(yùn)行程序。第四步：按題目要求存盤。(2)文本框里的內(nèi)容(包括數(shù)字)

默認(rèn)都是當(dāng)作字符串來(lái)處理的，如果要參與數(shù)據(jù)運(yùn)算則需先用Vai函數(shù)將其轉(zhuǎn)化為

數(shù)字類型。這里需要指出的是利用Array函數(shù)對(duì)數(shù)組各元素賦值，聲明的數(shù)組只能

是Variant類型，數(shù)組的上下界可用UBound和LBound函數(shù)獲得，這兩個(gè)函數(shù)的

格式分別為：LBound(數(shù)組［，維］)UBound(數(shù)組［,維］)這兩個(gè)函數(shù)分別

返回一個(gè)數(shù)組中的下界和上界。其中“數(shù)組”是一個(gè)數(shù)綃名，“維”是要測(cè)試的維°

LBound函數(shù)返回“數(shù)組”的下界，而UBound函數(shù)返回“數(shù)組”某一“維”的上界值，

這兩個(gè)函數(shù)一起使用即可確定一個(gè)數(shù)組的大小。解題步驟：第一步：建立界面并

設(shè)置控件屬性。程序中用到的控件及其屬性見(jiàn)表22-4。

控件屬性設(shè)置值

NameCommandl

命令按鈕

Caption求平均值

文本框NameTextl

文本框NameText2

文本框NameText3

文本框NameText4

第二步：編寫程序代碼。

程序提供的代碼:OptionBase1PrivateFunctionAvcragc(a()AsInteger)AsSinclc

DimStartAsInteger,FinishAsIntegerDimiAsIntegerDimSumAs

Integer,Start=?(a)Tinish=?(a),Sum=?Fori=StartToFinish,Sum=Sum+?Next

i,Average=?EndFunctionPrivateSubCommand1Click()DimarrlDimarr2(4)As

Integerarrl=Array(Val(Textl.Text),Val(Text2.Text),Val(Text3.Text),

Val(Text4.Text))Fori=lTo4arr2(i)=CInt(arrl(i))Nexti,Aver=Average(?)Print”平

均值是："；AverEndSub參考代碼：OptionBaseIPrivateFunctionAverage(a()As

Integer)AsSingleDimStartAsInteger,FinishAsIntegerDimiAsIntegerDimSumAs

IntegerStart=LBound(a)Finish二UBound(a)Sum=0Fori=StartToFinish

Sum=Sum+a(i)NextiAverage=Sum/FinishEndFunctionPrivateSub

Commandl_Click()DimarrlDimarr2(4)AsIntegerarr1=Array(Val(Text1.Text),

Val(Text2.Text),Val(Text3.Text),Val(Text4.Text))Fori=lTo4arr2(i)=CInt(arrl(i))

NextiAver=Average(ai>2)Print"平均值是："；AverEndSub第三步：調(diào)試并運(yùn)行程

序。第四步：按題目要求存盤

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

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

3、注意：下面出現(xiàn)的“考生文件夾”均為c：\wexam\25160001o在窗體上有三個(gè)菜

單,名稱分別為Read、Calc和Save,標(biāo)題分別為“讀入數(shù)據(jù)”、“計(jì)算并輸出”和“存

盤”,一個(gè)文本框,名稱為Textl,MultiLine屬性設(shè)置為Tree,ScrollBars屬性設(shè)置

為2,如圖21-7所示。程序運(yùn)行后，如果執(zhí)行“讀入數(shù)據(jù)”命令,則讀入datainl.txt

文件中的100個(gè)整數(shù)，放入一個(gè)數(shù)組中，數(shù)組的下界為1；如果單擊“計(jì)算并輸出”

按鈕，則把該數(shù)組中下標(biāo)為奇數(shù)的元素在文本框中顯示出來(lái)，求出它們的和，并把

所求得的和在窗體上顯示出來(lái)；如果單擊“存盤”按鈕，則把所求得的和存入考生文

件夾下的dataout.txt文件中。在考生文件夾下有一個(gè)工程文件sjl5.vbp,窗體文件

中的ReadData過(guò)程可以把datainl.txt文件中的100個(gè)整數(shù)讀入Air數(shù)組中；而

WritcData過(guò)程可以把指定的整數(shù)值寫到考生文件夾下指定的文件中（整數(shù)值通過(guò)計(jì)

算求得，文件名為dataout.txt）。請(qǐng)將程序中有問(wèn)號(hào)的地方用相應(yīng)的代碼補(bǔ)完整，將

注釋號(hào)（'）去掉。注意：考生不得修改窗體文件中已經(jīng)存在的程序。存盤時(shí)，工程

文件名仍為sjt5.vbp,窗體文件名仍為sjt5.trmo

標(biāo)準(zhǔn)答案：使用Open方法和Close方法打開(kāi)和關(guān)閉文件，使用循環(huán)語(yǔ)句把整數(shù)賦

給數(shù)組。在計(jì)算輸出時(shí)，先定義一個(gè)變量，用來(lái)保存奇數(shù)的和；計(jì)算時(shí)找出數(shù)組中

下標(biāo)為奇數(shù)的數(shù)進(jìn)行累加，將結(jié)果在文本框中顯示出來(lái)。在窗體上打印內(nèi)容可以用

Print方法來(lái)實(shí)現(xiàn)。解題步驟：第一步：建立菜單項(xiàng)、建立界面并設(shè)置控件屬性。

程序中用到的菜單項(xiàng)及其控件屬性見(jiàn)表21-5。

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

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

計(jì)輯并輸出Calc0

存盤Save0

TextNameTextl

第二步：編寫程序代碼。程

序提供的代碼：OptionBase1DimArr(K)O)AsIntegerDimtempAsIntegerSub

ReadData()OpenApp.Path&"\"&"datainl.txt"ForInputAs#1Fori=lTo100Input

#1,Arr(i)Nexti'?#1EndSubSubWriteData(FilenameAsString,NumAsInteger)

OpenApp.Path&"\H&FilenameForOutputAs#1Print#1,NumClose#1EndSub

PrivateSubCalc_Click(),Textl.?='M,Fori=lTo100Step2Text1,Text=Text1.Text&

Arr(i)&Spacc(5)tcmp=tcmp+Arr(i)Nexti'Print?EndSubPrivateSubRcad_Click()

ReadDataEndSubPrivateSubSave_Click()WriteData"dataout.txt",tempEndSub參

考代碼：OptionBase1DimArr(100)AsIntegerDimtempAsIntegerSubReadData()

OpenApp.Path&"\H&"datainl.txt*'ForInputAs#1Fori=lTo100Input#1,Arr(i)

NextiClose#1EndSubSubWritcData(FilenameAsString,NumAsInteger)Open

App.Path&"\"&FilenameForOutputAs#1Print#1,NumClose#1EndSubPrivate

SubCalc_Click()Textl.Text=""Fori=lTo100Step2Text1.Text=Texl1.Text&Arr(i)

&Space(5)temp=temp+Arr(i)NextiPrinttempEndSubPrivateSubRead_Click()

ReadDataEndSubPrivateSubSave_Click()WriteData"dataout.txt",tempEndSub第

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

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

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

一、基本操作題（本題共I題，每題上0分，共1分,）

1、有一個(gè)ylc5.vbp,只有一個(gè)窗體FormI,需要?jiǎng)?chuàng)建Form2o在窗體FormI上建

立Command1和Command2兩個(gè)命令按鈕，標(biāo)題分別為“隱藏啟動(dòng)窗體”和“關(guān)閉窗

體”。在窗體Form2上倉(cāng)J建標(biāo)題為“打開(kāi)窗體1”的按鈕。將Form2設(shè)為啟動(dòng)窗體，

單擊Form2上的按鈕，則顯示FormI窗體：若單擊Form1上的“隱藏啟動(dòng)窗體''按

鈕，則Form2消失。若單擊Forml上的“關(guān)閉窗體”按鈕,則Form）和Form2都消

失，退出程序。注意：存盤時(shí)必須存放在考生文件夾卜，工程文件名為ylc5.vbp,

窗體文件名為ylc5-l.frm,ylc5-2.frm程序中不得使用任何變量。

?Fora?-SB

________

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

標(biāo)準(zhǔn)答案：1.操作步驟⑴在VisualBasic集成環(huán)境選擇“文件”一“打開(kāi)工程”命令，

在對(duì)話框中選擇ylc6.Vbp工程文件，單擊“確定”按鈕。（2）在工具箱中選擇命令按

鈕，用鼠標(biāo)在窗體Forml上拖動(dòng)，創(chuàng)建兩個(gè)命令按鈕。在屬性窗口分別設(shè)置它們

的名稱（Name屬性）為Command1和Command?,標(biāo)題（Caplion屬性）為“隱藏啟動(dòng)窗

體”、“關(guān)閉窗體”。（3）在菜單欄選擇“工程”一“添加窗體”命令，彈出對(duì)話框如圖33

所示。單擊“打開(kāi)”按鈕，在工程框中生成Form2的窗體。

陽(yáng)“（4）選擇命令按鈕，在上面

Form2窗體創(chuàng)建一個(gè)命令按鈕，設(shè)置名稱為Commandl,標(biāo)題為“打.開(kāi)窗體1”。（5）

為設(shè)置Form2啟動(dòng)窗體做如下的操作：1）從“工程”菜單中選擇“工程屬性”命令，彈

出如圖34所示的界面。

工程1-工程屬性

圖342）選擇“通用”屬

性頁(yè)，在“啟動(dòng)對(duì)象”中選擇Form2,單擊“確定”按鈕，設(shè)置該窗體為啟動(dòng)窗體。

2.行為編碼（1）用鼠標(biāo)單擊窗體Forml,出現(xiàn)Forml的代碼窗口。選擇Commandl

按鈕的Click事件,代碼如下：PrivateSubCommandl_Click（）Form2.HideEndSub

⑵在Forml的代碼窗口內(nèi)選擇Command2按鈕的Click事件，代碼如下：Private

SubCommand2_Click（）‘卸載窗體2UnloadForm2，卸載自身也即窗體1UnloadMe

EndSub⑶用鼠標(biāo)單擊窗體Form2,出現(xiàn)Form2的代碼窗口。選擇Command1按鈕

的Click事件，代碼如下；PrivateSubCommand3_Click（）FormI.ShowEndSub

3.存盤保存執(zhí)行“文件”一“保存工程”命令，工程土件名為ylc5.vbp,窗體文件名

為ylc5-l.irm,ylc5-2.trm。

知識(shí)點(diǎn)解析：（1）本題考查多窗體的應(yīng)用創(chuàng)建、不同窗體上的命令按鈕事件、控制

兩個(gè)窗體的顯示、應(yīng)用程序的結(jié)束控制以及如何在工程窗口中設(shè)置啟動(dòng)窗口。（2）

注意Form對(duì)象的Show方法，End應(yīng)用結(jié)束控制。（3）通過(guò)調(diào)用Form2的Hide方法

隱藏Fonn2窗體，通過(guò)Unload方法關(guān)閉窗體1和窗體2,通過(guò)調(diào)用Forml的Show

方法顯示Form1窗體。

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

2、有一個(gè)工程文件ylc6.vbp,窗體上已經(jīng)有兩個(gè)文本框，名稱分別為Textl、

Text2<>在窗體上創(chuàng)建一個(gè)命令按鈕，名稱為Commandl,標(biāo)題為“確定畫兩個(gè)

單選按鈕，分別為“王老師”、“林老師”；再畫兩個(gè)復(fù)選框，名稱分別為Checkl、

Check2,標(biāo)題分別為“語(yǔ)文”、“數(shù)學(xué)”。編寫適當(dāng)?shù)氖录^(guò)程，使得在運(yùn)行時(shí)，單擊

“確定”按鈕后實(shí)現(xiàn)下面的要求。根據(jù)選中的單選按鈕，在Tcxtl中顯示“我是王老

師''或"我是林老師”。根據(jù)選中的復(fù)選框，在Text2中顯示“我教語(yǔ)文”、“我教數(shù)

學(xué)“、“我教語(yǔ)文數(shù)學(xué)”，如圖24所示。注意：存盤時(shí)必須存放在考生文件夾下，

工程文件名為ylc6.vbp,窗體文件名為ylc6.frmo

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

標(biāo)準(zhǔn)答案：1.操作步驟⑴在VisualBasic集成環(huán)境選擇“文件”一“打開(kāi)工程”命

令：在對(duì)話框中選擇ylc6.vbp工程文件，單擊“確定”按鈕打開(kāi)。（2）在工具箱中選

擇OptionButton,在窗體上創(chuàng)建兩個(gè)單選按鈕命名為Optionl和Option2。在屬性

窗口中分別設(shè)置按鈕的標(biāo)題為“王老師”和“林老師”。在同一個(gè)窗體上創(chuàng)建，因此只

能二選一。（3）在工具箱中選擇CheckBox控件，在窗體上創(chuàng)建兩個(gè)復(fù)選按鈕，命

名為Checkl和Check2。在屬性窗口中，設(shè)置標(biāo)題為“語(yǔ)文”、“數(shù)學(xué)”。（4）根據(jù)題

目要求，創(chuàng)建命令按鈕命名為Commandl,在屬性窗口設(shè)置其標(biāo)題為“確定”。

2.行為編碼在代碼窗口設(shè)置選擇Command1和Click事件代碼，其行為代碼如

下：PrivateSubCommand1_CIick（）Ifoption1.ValueThenTextl.Text="我是"&

OptionLCaptionElseTextl.Text="我是"&Option2.CaptionEndIfIf（Checkl.Value

AndCheck2.Value）ThenTcxt2.Tcxt="我教"&CheckI.Caption&Check2.Caption

ElselfCheck1.ValueThenText2.Text="我教"&Checkl.CaptionElselfCheck2.Value

ThenText2.Text="我教"&Check2.CaptionElseText2.Text=n"EndIfEndSub3.存

盤保存執(zhí)行"文件”一“保存工程”命令，工程文件名為ylc6.vbp,窗體文件名為

ylc6.frmo

知識(shí)點(diǎn)解析：（1）本題考查考生對(duì)單選按鈕和復(fù)選按鈕功能的使用，比較單選按鈕

和復(fù)選按鈕的不同之處。（2）注意OptionBulton控件、CheckBox控件的使用，命令

按鈕的行為編碼以及字符串的連接操作。（3）該代碼根據(jù)題目的要求，通過(guò)If語(yǔ)句

判斷當(dāng)前單選按鈕的Value屬性的值和復(fù)選按鈕屬性的值。通過(guò)連接字符串，

并通過(guò)TexlBox控件的Text屬性顯示。

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

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

1、注意：下面出現(xiàn)的“考生文件夾“均為c：\wexam\25160001o請(qǐng)根據(jù)以下各小題

的要求設(shè)計(jì)VisualBasic應(yīng)用程序（包括界面和代碼〕。（1）在Forml的窗體上畫一個(gè)

名稱為PI的圖片框，然后建立一個(gè)主菜單，標(biāo)題為“操作”，名稱為Op,該菜單有

兩個(gè)子菜單，其標(biāo)題分別為“顯示”和“清除”，名稱分別為Dis和Clea。編寫適當(dāng)?shù)?/p>

事件過(guò)程，程序運(yùn)行后，如果單擊“操作”菜單中的“顯示''命令，則在圖片框中顯示

“計(jì)算機(jī)考試”；如果單擊“清除”命令，則清除圖片框中的信息。程序的運(yùn)行情況如

圖151和圖152所示。注意：存盤時(shí)必須存放在考生文件夾下，工程文件名為

sjtl.vbp,窗體文件名為sjtl.frm。程序中不得使用任何變量。（2）在Forml的窗體

上畫一個(gè)列表框，名稱為L(zhǎng)1,通過(guò)屬性窗口向列表框中添加4個(gè)項(xiàng)目，分別為“早

上好”、“上午好”、“中午好”和“下午好”。編寫適當(dāng)?shù)氖录^(guò)程，過(guò)程中只能使用

一條命令。程序運(yùn)行后，如果雙擊列表框中的某一項(xiàng)，則把該項(xiàng)再添加到列表框

中。程序的運(yùn)行情況如圖15-3所示。注意：存盤時(shí)必須存放在考生文件夾下，工

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

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

由單擊右鍵選擇“菜單編輯器”來(lái)創(chuàng)建，通過(guò)Print方法在窗體或圖片框中打印信

息，通過(guò)Cis方法清除圖片框中的信息。Cis方法清除運(yùn)行時(shí)Form或PictureBox所

生成的圖形和文本。語(yǔ)法：Object.Clsobject代表一個(gè)對(duì)象表達(dá)式。如果省略。

object,則默認(rèn)為當(dāng)前的Form窗體。解題步驟：第一步：建立界面并設(shè)置控件屬

控件屬性設(shè)置值

名字

菜單Op

標(biāo)題操作

名字Dis

菜單

標(biāo)題顯不

名字Clea

菜單

標(biāo)題清除

圖片框NameP1

性。程序中用到的控件和屬性設(shè)置見(jiàn)表15-1。

第二步：編寫程序代碼。參考代因：PrivateSubClca_Cliuk（）

Pl.CisEndSuhPrivateSubDis_Click（）PI.Print"it

算機(jī)考試”EndSub第三步：調(diào)試異運(yùn)行程序。第四步：按題目

要求存盤。（2）在窗體上建立好控件后，先設(shè)置控件屬性，再編寫事件過(guò)程。

列表框的內(nèi)容由屬性List來(lái)設(shè)置，再程序中添加項(xiàng)要通過(guò)Addhem方法來(lái)實(shí)現(xiàn)，

鼠標(biāo)雙擊觸發(fā)控件的DblClick事件。Additem方法用于將項(xiàng)目添加到ListBox

或ComboBox控件，其語(yǔ)法格式為：obiect.Additemitem,indexobject必需

的。一個(gè)對(duì)象表達(dá)式。item必需的。字符串表達(dá)式，它用來(lái)指定添加到該對(duì)

象的項(xiàng)目。index可選的。是整數(shù)，它用來(lái)指定新項(xiàng)目或行在該對(duì)象中的，立

置。對(duì)于ListBox或ComboBox控件的首項(xiàng)index為0。解題步驟：第一

步：建立界面并設(shè)置控件屬性。程序中只用到的控件和屬性設(shè)置見(jiàn)表15-2。

控件屬性設(shè)置值

列表框NameL1

第二步：編寫程序代碼:

參考代碼PrivateSubLl_DblClick()LI.AdditemLI.TextEndSub第三步：調(diào)試并運(yùn)

行程序。第四步：按題后要求存盤。

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

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

2、注意：下面出現(xiàn)的“考生文件夾”均為c：\wexam\25l60001o(1)在考生文件夾

下有工程文件sjt3.vbp及窗體文件爾3.frm,該程序是不完整的，請(qǐng)?jiān)谟?號(hào)的地方

填入正確內(nèi)容，然后刪除?及所有注釋符(即，號(hào))，但不能修改其他部分。存盤時(shí)不

得改變文件名和文件夾。如圖17?3所示。本題描述如下：在窗體上有一個(gè)標(biāo)簽數(shù)

組，名為L(zhǎng)abell,該數(shù)組有4個(gè)控件元素，標(biāo)題分別是“程序運(yùn)行”、“文本編輯”、

“雙向箭頭”和“移動(dòng)窗體”。在程序運(yùn)行后，將鼠標(biāo)移動(dòng)到各控件元素上，則鼠標(biāo)的

形狀將變成各控件元素的標(biāo)題所代表的鼠標(biāo)形狀，離開(kāi)控件元素，則又變成正常情

況下的箭頭形狀。(2)在考生文件夾下有工程文件sjt4.vbp,窗體文件sjt4.frm,該

程序是不完整的，請(qǐng)?jiān)谟?號(hào)的地方填入正確內(nèi)容，然后刪除?及所有注釋符(即‘

號(hào))，但不能修改其他部分。修改后的工程及窗體文件，均以原名保存在考生文件

夾下。如圖17-4所示。本題描述如下：在窗體上有一個(gè)名為Tex”的文本框，有

兩個(gè)命令按鈕，名稱分別是C1和C2,標(biāo)題分別是，讀入”和“計(jì)算并保存“。要求程

序運(yùn)行后，點(diǎn)擊C1按鈕，將文本文件in6.txt中的所有數(shù)字讀到數(shù)組arr中，并在

文本框內(nèi)顯示出來(lái)。隨后C1按鈕變?yōu)闊o(wú)效：然后點(diǎn)擊C2按鈕，求出數(shù)組arr中的

各元素的平方并賦值回相應(yīng)的元素，例如，arr(2)=2,則令air(2)=air(2)*air(2)=4。

把計(jì)算后的數(shù)組的值全部寫入考生文件夾下的文本文件oul6.lxt中，并在文本框中

顯示出來(lái)，最后C2按鈕也變?yōu)闊o(wú)效

圖17-3圖17-4

標(biāo)準(zhǔn)答案：控件數(shù)組是由一組相同類型的控件組成，建立控件數(shù)組時(shí)系統(tǒng)給每個(gè)元

素賦一個(gè)惟一的索引號(hào)(Index),例如，控件數(shù)組cmdName(3)表示控件數(shù)組名為

emdName的第4個(gè)元素；鼠標(biāo)的形狀由屬性MouscPointer來(lái)設(shè)置，該屬性值為11

時(shí)對(duì)應(yīng)程序運(yùn)行時(shí)的鼠標(biāo)形狀，該屬性值為3時(shí)對(duì)應(yīng)文本編輯時(shí)的鼠標(biāo)形狀，該屬

性值為7時(shí)對(duì)應(yīng)雙向箭頭的鼠標(biāo)形狀，該屬性值為5時(shí)對(duì)應(yīng)移動(dòng)窗體時(shí)的鼠標(biāo)形

狀。解題步驟：第一步：建立界面并設(shè)置控件屬性。程序中用到的控件及其屬性

見(jiàn)表17-3o

又寸象下標(biāo)屬性設(shè)置值

NameLabell

Label(0)

Caption程序運(yùn)行

NameLabell

Label(1)

Caption文本編輯

Label數(shù)組

NameLabell

Label(2)

Caption雙向箭頭

NameLabell

Label(3)

Caption移動(dòng)窗體

第二步：編寫程序代碼。程序提供的代碼：PrivateSub

Form_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAs

Single)Torml.?=0EndSubPrivateSub

Labell_MouseMove(IndexAsInteger,ButtonAsInteger,Shift_

AsInteger,XAsSingle,YAsSingle)'SelectCase?

Case0Form1.MousePointer=11Case1

Form1.MousePointer=3Case2

Form1.MouscPointer=7Case3

Form1.MousePointer=5EndSelectEndSub參考代

碼：PrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,XAs

Single,YAsSingle)Form1.MousePointer=0EndSub

PrivateSubLabell_MouseMove(IndexAsInteger,ButtonAsInteger,

ShiftAsInteger,XAsSingle,YAsSingle)SelectCaseIndex

Case0Form1.MousePointer=l1Case1

Forml.MousePointer=3Case2

Form1.MousePointer=7Case3

Forml.MousePointer=5EndSelectEndSub第三步：調(diào)

試并運(yùn)行程序。第四步：按題目要求存盤。（2）打開(kāi)文件的命令是

Open,其常用形式為：Open“文件名”For模式As［#］文件號(hào)［Lcn=記錄長(zhǎng)度］,對(duì)文

件的寫操作所用的命令是Write#或Prinl#命令，其形式分別為：Print#文件號(hào)，［輸

出列表］;Write#文件號(hào)，［輸出列表］，二者區(qū)別是Write#是以緊湊格式存放，即在

數(shù)據(jù)項(xiàng)之間插入逗號(hào)，并給字符串加上雙引號(hào)。解題步驟:第一步：建立界

面并設(shè)置控件屬性。程序中用到的控件及其屬性見(jiàn)表17-4。

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

NameTextl

Text

text空