計算機三級網(wǎng)絡技術(shù)機試一百套

第一套

(1)在名稱為Forml的窗體上添加一個名稱為Hl水平滾動條，請在屬性窗口中設置它的屬

性值，滿足下列要求：它的最小刻度值為1,最大刻度值為100,在程序運行時鼠標單擊滾動

條上滾動框以外的區(qū)域(不包括兩邊按鈕)，滾動框移動10個刻度。再在滾動條下面畫兩個名

稱分別為LI、L2的標簽，并分別顯示1、100,

(2)在名稱為Forml的窗體上添加兩個名稱分別為Textl和Text2的文本框，初始內(nèi)容均為空；

再建立一個下拉菜單，菜單標題為“操作"，名稱為Ml,此菜單下含有兩個菜單項，名稱分

別為Copy和Clear,標題分別為“復制"、"清除"，請編寫適當?shù)氖录^程，使得在程序運行時，

單擊"復制"選項菜單，則把Textl中的內(nèi)容復制到Text2中，單擊"清除"選項菜單，則清除Text2

中的內(nèi)容

【操作步驟】

步驟1：打開VisualBasic,按照題目的要求新建窗體并添加一個水平滾動條控件。

步驟2：在屬性窗口中，設置水平滾動條的名稱為H1,然后設置其LargeChange的值為10,Max

的值為100,Min的值為1。

步驟3：再在窗體上水平滾動條的左右兩端的下方添加兩個標簽控件Labell和Label2。

步驟4：在屬性窗口中將Labell的名稱設置為L1,將Caption屬性設置為1;再將Label1的名稱

設置為L2,將Caption屬性設置為100.

步驟5：按下鍵盤上的F5鍵運行程序。

步驟6：保存工程，設置工程文件名為sjtl.vbp,設置窗體文件名為sjtl.frm。

(2)【操作步驟】

步驟1：新建窗體，按表3.2建立菜單項并設置其屬性。

表32

標題操作復制a除

名稱MlCopyClear

01!

步驟2：菜單項設置完成后，單擊“確定"按鈕。

步驟3：添加文本框控件，按照表3.3設置文本框的屬性。

表3.3

控件文本框1文本框2

屬性NameName

設置值TextlText2

步驟4：編寫程序代碼。

參考答案

PrivateSubClear_Click()

Text2.Text=""

EndSub

PrivateSubCopy_Click()

Text2.Text=Textl.Text

EndSub

第二題

(1)在考生文件夾下有一個工程文件sjt3.vbp,窗體上已經(jīng)有一個標簽Labell,請?zhí)砑?/p>

一個單選按鈕數(shù)組，名稱為Opl,含三個單選按鈕，它們的Index屬性分別為0、1、2,標題

依次為"飛機"、"火車"、"汽車"，再添加一個名稱為Textl的文本框。窗體文件中已經(jīng)給出了

Opl的Click事件過程，但不完整，要求去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容,

使得在程序運行時單擊"飛機"或"火車"單選按鈕時，在Textl中顯示“我坐飛機去"或"我坐火

車去"，單擊"汽車”單選按鈕時，在Textl中顯示"我開汽車去"。

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

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

F1中添加兩個單選按鈕控件Opl、0p2,標題分別為"男"、"女”；在F2中添加兩個單選按鈕

控件0p3、0p4,標題分別為“學生"、"教師"：再添加一個命令按鈕，名稱為C1,標題為“確

定”。如圖所示。請編寫適當?shù)氖录^程，使得在運行時.，在Fl、F2中各選一個單選按鈕，

然后單擊“確定”按鈕，就可以按照下表把結(jié)果顯示在文本框中。

(1)【操作步驟】

步驟1：打開本題工程文件，在窗體中添加一個單選按鈕數(shù)組，包含3個單選按鈕。再添

加一個文本框。

步驟2：按照題目要求設置控件的屬性，見表3.4。

表3.4

單選單選單選

控件文本框

按鈕1按鈕2按鈕3

屬性(CaptionIndexCaplionIndexCaptionIndexName

設置值飛機0火車1汽車2Textl

步驟3：分析并編寫程序代碼。

PrivateSubOplClick(IndexAsInteger)

DimaAsString,bAsString,cAsString

a=哦坐"

b=哦開”

'SelectCase?

Case0

Textl.Text=a+Me.Op1(0).Caption+”去”

Case1

'Textl.Text=?+Me.Opl(l).Caption+"去"

Case2

Textl.Text=b+Me.Opl(2).Caption+"去”

EndSelect

EndSub

程序結(jié)束

參考答案

第一個?處填入：Index

第二個？處填入：a

(2)

【操作步驟】

步驟1：打開本題工程文件，在窗體中添加兩個框架，一個命令按鈕和4個單選按鈕。

步驟2：為步驟1建立的控件設置相關(guān)屬性，程序中用到的控件及屬性見表3.5和表3.6。

表3.5

控件框架1框架2命令按鈕

屬性Xanx!CufilionNameCaptionNameCapli(in

設置值Fl性別F2身份Cl確定

表3.6

控件單選按鈕1單選登鈕2單選次鈕3單選密鈕4

屬性NarncCaption\HIIX:CaptionCaption\unirCapliciri

設置值Opl男0P2女0P3學生0p4教師

步驟3：分析并編寫程序代碼。

程序提供代碼

PrivateSubFormUnload(CancelAsInteger)

Opennout4.txtnForOutputAs#1

Print#1,Op1.Value,Op2.Value,Op3.Value,Op4.Value,Text1.Text

Close#1

EndSub

程序結(jié)束

參考答案

PrivateSubCl_Click()

Text1.Text="我是〃

IfOpl.ValueThen

Textl.Text=Textl.Text&Opl.Caption

Else

Textl.Text=Textl.Text&0p2.Caption

EndIf

If0p3.ValueThen

Textl.Text=Textl.Text&0p3.Caption

Else

Textl.Text=Textl.Text&0p4.Caption

EndIf

EndSub

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

第三題

以下數(shù)列：1,1,2,3,5,8,13,21,的規(guī)律是從第3個數(shù)開始，每個數(shù)都是其

前面兩個數(shù)之和。

在考生文件夾下有一個工程文件sjt5.vbp。窗體中已經(jīng)給出了所有控件，如圖所示。請

編寫適當?shù)氖录^程完成如下功能：選中一個單選按鈕后，單擊"計算”按鈕，則計算出上述

數(shù)列的第n項的值，并在文本框中顯示，n是選中的單選按鈕后面的數(shù)值。（提示：因計算結(jié)

果較大，應使用長整型變量。）

【操作步驟】

步驟1：打開本題工程文件。

步驟2：編寫程序代碼。

參考答案

PrivateSubCommandl_Click()

Dima()AsLong

DimiAsInteger

DimnAsInteger

Fori=OToOp1.Count-1

IfOpl(i).Value=TrueThen

n=Val(Op1(i).Caption)

ExitFor

EndIf

Next

ReDima(n)

a(l)=l

a⑵=1

Fori=3Ton

a(i)=a(i-1)+a(i-2)

Next

Text1.Text=a(n)

EndSub

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

第二套

一、基本操作

(1)在名稱為Forml的窗體上添加一個名稱為L1的標簽，標簽上標題為"請輸入密碼”,

添加一個名稱為Textl的文本框，其寬、高分別為2000和300,設置適當?shù)膶傩裕沟迷谳斎?/p>

密碼時，文本框中顯示為"*"字符，此外再把窗體的標題設置為“密碼窗口”，以上這些設置

都必須在屬性窗口中進行，程序運行時的窗體如圖所示。

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

為sjtl.frm。

■至碼Un晨間除

iMfiASW口工7

(2)在名稱為Forml的窗體上添加一個名稱為P1的圖片框，請編寫適當?shù)氖录^程，

使得程序在運行時，每單擊一次圖片框，就在圖片框中輸出”單擊圖片框”，每單擊圖片框外

的窗體一次，就在窗體中輸出"單擊窗體”，運行時的窗體如圖所示。要求在程序中不得使用

變量，每個事件過程中只能寫?條語句。

?Focal

(i)【操作步驟】

步驟1：新建一個窗體，在窗體中添加一個標簽，名稱設置為L1,將標簽的Caption屬性

設置為"請輸入密碼”。然后再添加一個文本框，設置其名稱為Textl,然后設置其Height屬性

為300,設置其Width屬性為2000,設置其PasswordChar屬性為"*最后將Forml的Caption

屬性設置為"密碼窗口”。

步驟2：調(diào)試并運行程序。

步驟3：設置工程文件名為sjtl.vbp,設置窗體文件名為sjtl.frm,最后保存工程。

【操作步驟】

步驟1：新建一個窗體，然后在窗體上添加一個圖片框。圖片框的的屬性見表3.7。

表3.7

控件圖片框

屬性Name

設置值PI

步驟2：編寫程序代碼。

參考答案

PrivateSubForm_Click()

Form[.Print"單擊窗體”

EndSub

PrivateSubPl_Click()

Pl.Print”單擊圖片框”

EndSub

步驟3：調(diào)試并運行程序，然后設置工程文件名為s_jt2.vbp,設置窗體文件名為sjt2.frm,

最后保存工程。

二、簡單應用

③去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容，使得在運行時單擊"發(fā)射"按鈕,

則航天飛機每隔0.1秒向上移動一次，當?shù)竭_P2的下方時停止移動，如圖所示。

iOJ

ir”i

(2)在考生文件夾下有一個工程文件sjt4.vbp,運行情況如圖所示。程序的功能是計算

下列表達式的值：

z=(x+2)*2+(x+3)*3+(x+4)*4+???+(x+\廣、

其中的N和x的值通過鍵盤分別輸入到文本框Textl、Text2中。之后如果單擊標題為“計

算”、名稱為Commandl的命令按鈕，則計算表達式的值z,并將計算結(jié)果顯示在名稱為Labell

的標簽中。

在給出的窗體文件中已經(jīng)添加了全部控件和程序，但程序不完整。要求去掉程序中的注

釋符，把程序中的?改為正確的內(nèi)容。

【操作步驟】

步驟1：按題目要求打開工程文件，設置計時器屬性，將Enabled屬性設置為False,并將

Interval屬性設置為100。

步驟2：分析并編寫程序代碼。

程序提供代碼

PrivateSubCl_Click()

'Timerl.Enabled=?

EndSub

PrivateSubTimerl_Timer()

Statica%

a=a=+l

'IfPl.Top>P2.Top+P2.?Then

Pl.MovePl.Left,Pl.Top-5-a,Pl.Width,Pl.Height

Else

'Timerl.Enabled=?

EndIf

EndSub

程序結(jié)束

參考答案

第1個？處填入：True

第2個？處填入：Height

第3個？處填入：False

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

【操作步驟】

步驟1:打開本題工程文件。

步驟2：分析并編寫程序代碼。

程序提供代碼

PrivateFunctionxn(aAsSingle,mAsInteger)

DimiAsInteger

tmp=1

Fori=1Tom

'tmp=?

Next

\n=?

EndFunction

PrivateSubCommandl_Click()

DimnAsInteger

DimiAsInteger

DimtAsSingle

Dims,xAsSingle

n=Val(Text1.Text)

x=Val(Text2.Text)

z=0

Fori=2Ton

t=x+i

'z=z+?

Next

Label1.Caption=?

CallSaveResult

EndSub

PrivateSubSaveResult()

OpenApp.Path&"\out4.datMForOutputAs#1

Print#1,Label1.Caption

Close#1

EndSub

程序結(jié)束

參考答案

第1個？處填入：tmp*a

第2個？處填入：tmp

第3個？處填入：xn(t,i)

第4個？處填入：z

步驟3：按照題目要求調(diào)試并運行程序。

步驟4：關(guān)閉程序后，按照題目要求保存工程和窗體文件。

三、綜合應用

在考生文件夾中有一個工程文件sjt5.vbp。該程序的功能是從in5.txt文件中讀入40個數(shù)

據(jù)，統(tǒng)計這些數(shù)據(jù)中素數(shù)的個數(shù)，并找出所有素數(shù)中最小的素數(shù)(判斷素數(shù)的函數(shù)已給出)。

最后將查找和統(tǒng)計的結(jié)果分別顯示在標簽Label4和Label3中(窗體外觀如圖所示)。程序不完

整，請在指定的位置把程序補充完整。

【操作步驟】

步驟1:打開本題工程文件。

步驟2：分析并編寫程序代碼。

程序提供代碼

Privatearr(100)AsInteger

PublicFunctionprime(xAsInteger)

k=Int(Sqr(x)+5)

Fori=2Tok

IfxModi=OThen

prime=False

ExitFunction

EndIf

Next

prime=True

EndFunction

PrivateSubCommandl_Click()

OpenApp.Path&"\in5.txt"ForInputAs#1

Fori=ITo40

Input#1,arr(i)

Next

Close#1

EndSub

PrivateSubCommand2_Click()

，=====考生編寫程序開始==========

，=====考生編寫程序結(jié)束==========

OpenApp.Path&"\oul5.txt”ForOutputAs#1

Print#1,Label3.Caption,Label4.Caption

Close#1

EndSub

程序結(jié)束

參考答案

DimaAsInteger

DimbAsInteger

a=0

b=arr(l)

Fori=1To40

Ifprime(arr(i))Thena=a+1

Label3.Caption=a

Next

Fori=1To40

Ifprime(arr(i))Andarr(i)<=bThenb=arr(i)

LabeI4.Caption=b

Next

步驟3：按照題目要求調(diào)試并運行程序。

步驟4：關(guān)閉程序后，按題目要求存盤。

第三套

一、基本操作

(1)在名稱為Forml的窗體上添加兩個名稱分別為Textl和Text2的文本框，它們的高、

寬分別為300、2400和1200、2400。窗體的標題為“窗口"。請通過屬性窗口設置適當?shù)膶傩?

滿足如下要求：

①Text2可以顯示多行文本，并且有垂直和水平兩個滾動條；

②程序運行時在Textl中顯示輸入的字符為"*

程序運行后的窗體如圖所示。

(2)在名稱為Forml的窗體上添加一個名稱為Imagel的圖像框，其高、寬分別為1900、

1700,通過屬性窗口把考生文件夾下的圖像文件picl.bmp載入圖像框；再畫兩個命令按鈕控

件，名稱分別為Cl、C2,標題分別為“放大"、"縮小"，如圖所示。

要求：

①請編寫適當?shù)氖录^程，程序運行后，如果單擊“放大”按鈕，則將圖像框的高度、寬

度均增加100；單擊“縮小”按鈕，則將圖像框的高度、寬度均減少100。要求程序中不得使用

任何變量。

②通過屬性窗口設置圖像框的適當屬性，使得在放大、縮小圖像框時，其中的圖像也自

動放大、縮小。

【操作步驟】

步驟1：新建一個窗體，然后在窗體中添加兩個文本框。

步驟2：在屬性窗口中設置各控件的屬性，控件的屬性見表3.8和表3.9。

表3.8

控件窗體文本框1

屬性CaptionNameWidthHeightPasswordChar

設置值窗口Textl2400300*

表3.9

控件文本框2

屬性NameWidthHeightMultiLineScroll-Bars

設置值Text224001200TRUE3

步驟3：調(diào)試并運行程序，然后保存工程，設置工程文件名為sjtl.vbp,設置窗體文件名

為sjtl.frmo

(2)

【操作步驟】

步驟1：新建一個窗體，然后在窗體中添加一個圖像框和兩個命令按鈕。

步驟2：為窗體中的各控件設置屬性，控件的屬性見表3.10和3.11。

表3.10

控件圖像框

屬性NameWidthHeightPictureStretch

設置值Image117001900picl.bmpTrue

表3.11

控件命令按鈕1命令按鈕2

屬性NameCaptionNameCaption

設置值Cl放大C2縮小

步驟3：編寫程序代碼。

參考答案

PrivateSubCl_Click()

Image1.Height=Image1.Height+100

Image1.Width=Image1.Width+100

EndSub

PrivateSubC2_Click()

Image1.Height=Image1.Height-100

Image1.Width=Image1.Width-100

EndSub

步驟4：調(diào)試并運行程序，然后保存工程，設置工程文件名為sjt2.vbp,設置窗體文件名

為sjt2.frmo

二、簡單應用

(1)在考生文件夾下有一個工程文件sjt3.vbp,其功能是：

①單擊“讀數(shù)據(jù)”按鈕，則將考生文件夾下in3.dat文件中的100個0到999之間的整數(shù)讀入

到數(shù)組a中；

②單擊“計算”按鈕，則找出這100個整數(shù)中的所有水仙花數(shù)，并將它們的最大值與最小

值分別顯示在文本框Textl、Text2中。（注：當一個數(shù)的值等于該數(shù)中的各位數(shù)字的立方和時,

此數(shù)被稱為水仙花數(shù)。如：153=『+53+3、所以⑸就是一個水仙花數(shù)）

在窗體文件中已經(jīng)給出了全部控件（如圖所示）和"讀數(shù)據(jù)"命令按鈕的事件過程以及判斷

一個數(shù)是否為水仙花數(shù)的通用過程。要求編寫"計算”命令按鈕的事件過程。

（2）在考生文件夾下有一個工程文件sjt4.vbp。請在窗體上添加一個組合框，名稱為cbl,

并輸入三個列表項："3"、“7"、”11”（列表項的順序不限，但必須是這3個數(shù)字）；添加一個名

為Textl的文本框；再添加?個標題為“計算"、名稱為C1的命令按鈕。如圖所示。請編寫適

當?shù)氖录^程，使得在程序運行時，在組合框中選定一個數(shù)字后，單擊"計算”按鈕，則計算

5000以內(nèi)能夠被該數(shù)整除的所有數(shù)之和，并放入Textl中。最后，按原文件名存盤。

(1)【操作步驟】

步驟1：打開本題工程文件。

步驟2：分析并編寫程序代碼。

程序提供代碼

Dima(100)AsInteger

PrivateSubCommandl_Click()

DimkAsInteger

OpenApp.Path&n\in3.dat"ForInputAs#1

Fork=1To100

Input#1,a(k)

Nextk

Close#1

EndSub

PrivateSubCommand2_Click()

'需考生編寫

EndSub

以下Function過程用于判斷某數(shù)是否為水仙花數(shù)

Functionisnarc(pAsInteger)

x=Fix(p/100)

y=Fix((p-x*100)/10)

z=p-x*100-y*10

Ifp=xA3+yA3+zA3Then

isnarc=True

Else

isnarc-False

EndIf

EndFunction

PrivateSubFormUnload(CancelAsInteger)

OpenApp.Path&"\out3.datnForOutputAs#1

Print#1,Val(Textl.Text)

Print#1,Val(Text2.Text)

Close#1

EndSub

程序結(jié)束

參考答案

DimiAsInteger

DimmaxAsInteger,minAsInteger

max=-1

min=1000

Fori=1To100

Ifisnarc(a(i))Then

Ifmax<=a(i)Thenmax=a(i)

Ifmin>=a(i)Thenmin=a(i)

EndIf

Nexti

Textl=max

Text2=min

步驟3：按照題目要求調(diào)試并運行程序。

步驟4：關(guān)閉程序后，按題目要求存盤。

(2)【解題思路】本題主要考查組合框的屬性及For循環(huán)語句的使用。

Mod取模運算，就是求余數(shù)，比如：10mod3=I因為10除以3等于3余1,結(jié)果就是

余數(shù)。如果amodb=0,則說明a能被b整除,反之a(chǎn)modb<>0,則a不能被b整除。

組合框(ComboBox)將文本框與列表框的特性組合在一起，既可在組合框的文本框部分

輸入信息，也可在列表框部分選擇項目；組合框的列表項可在設計階段通過其List屬性添加，

每輸入完一項后按<Ctrl+Enter>鍵換行再輸入下一項；其Text屬性用于設置或返回其文本框

部分當前的文本。

根據(jù)題意，用For逐一循環(huán)5000內(nèi)的整數(shù)，通過If語句的條件表達式：iModn=0,判斷

各個數(shù)是否能被n整除，把能被整除的數(shù)累加到變量sum。i為循環(huán)變量，n的值為

Val(Cbl.Text)o

【操作步驟】

步驟1：打開本題工程文件，在窗體中添加一個文本框，一個組合框和一個命令按鈕。

步驟2：設置窗體中控件的屬性，控件的屬性見表3.12。

表3.12

控件文本框組合根命令及鈕

國性NameNHHW!Li?Narixi!Captiun

設置值Text!cblH.3.7Cl計算

步驟3：分析并編寫程序代碼。

程序提供代碼

窗體代碼

PrivateSubForm_Unioad(CancelAsInteger)

unloadsub

EndSub

模塊代碼

Subunloadsub()

Opennout4.dat,'ForOutputAs#1

Print#1,VaI(Form1.Cb1.Text),Val(Form1.Text1.Text)

Close#1

EndSub

程序結(jié)束

參考答案

PrivateSubCl_Click()

DimsumAsLong

DimnAsInteger

DimiAsInteger

n=Val(Cbl.Text)

Fori=nTo5000

IfiModn=0Then

sum=sum+i

EndIf

Nexti

Text1.Text=sum

EndSub

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

三、綜合應用

在考生文件夾下有一個工程文件sjt5.vbp,其名稱為Forml的窗體上已有三個文本框

Textl、Text2、Text3,以及部分程序代碼。請完成以下工作：

①在屬性窗口中修改Text3的適當屬性，使其在運行時不顯示，作為模擬的剪貼板使用。

窗體如圖所示；

②建立下拉式菜單，如下表所示：

標題名稱

編輯Edit

剪切Cut

復制Copy

粘貼Paste

③窗體文件中給出了所有事件過程，但不完整，請去掉程序中的注釋符，把程序中的?

改為正確的內(nèi)容。以便實現(xiàn)如下功能：當光標所在的文件框中無內(nèi)容時，“剪切“、“復制”不

可用，否則可以把該文本框中的內(nèi)容剪切或復制到Text3中;若Text3中無內(nèi)容，則“粘貼”不

能用，否則可以把Text3中的內(nèi)容粘貼在光標所在的文本框中的內(nèi)容之后。

【操作步驟】

步驟1：打開本題工程文件，將Text3的Visible屬性設置為False,然后按照題目要求建立

菜單并設置其屬性。

菜單屬性如表3.13所示。

表3.13

控件編輯剪切復制粘貼

名稱EditCutCopyPaste

內(nèi)縮符號0111

步驟2：分析并編寫程序代碼。

程序提供代碼

DimwhichAsInteger

PrivateSubcopy_Click()

Ifwhich=1Then

Text3.Text=Text1.Text

Elselfwhich=2Then

Text3.Text=Text2.Text

EndIf

EndSub

PrivateSubcut_Click()

Ifwhich=1Then

Text3.Text=Text1.Text

Text1.Text”

Elselfwhich=2Then

Text3.Text=Text2.Text

Text2.Text=,,n

EndIf

EndSub

PrivateSubedit_Click()

'Ifwhich=?Then

IfTextl.Text=,H,Then

cut.Enabled=False

Copy.Enabled=False

Else

cut.Enabled=True

Copy.Enabled=True

EndIf

(Elselfwhich=?Then

IfText2.Text=,H,Then

cut.Enabled=False

Copy.Enabled=False

Else

cut.Enabled=True

Copy.Enabled=True

EndIf

EndIf

IfText3.Text=,n,Then

Paste.Enabled=False

Else

Paste.Enabled=True

EndIf

EndSub

PrivateSubpaste_Click()

Ifwhich=1Then

1Text1.Text=?

Elselfwhich=2Then

1Text2.Text=?

EndIf

EndSub

PrivateSubTextl_GotFocus()沐過程的作用是：當焦點在Textl中時、which=1

which=1

EndSub

PrivateSubText2_GotFocus()，本過程的作用是：當焦點在Text2中時，which=2

which=2

EndSub

程序結(jié)束

參考答案

第1個？處填入：1

第2個？處填入：2

第3個？處填入：Text1.Text+Text3.Text

第4個？處填入：Text2.Text+Text3.Text

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

第四套

一、基本操作

(1)在名稱為Forml的窗體上添加一個名稱為Commandl的命令按鈕，標題為"打開文

件"，再添加一個名稱為CD1的通用對話框。程序運行后，如果單擊命令按鈕，則彈出打開

文件對話框，請按下列要求設置屬性和編寫代碼：

①設置適當屬性，使對話框的標題為“打開文件”；

②設置適當屬性，使對話框的"文件類型"下拉式組合框中有兩項可供選擇："文本文件"、

”所有文件"(如圖所示)，默認的類型是"所有文件"；

③編寫命令按鈕的事件過程，使得單擊按鈕可以彈出打開文件對話框。

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

(2)在名稱為Forml的窗體上添加一個名稱為Commandl的命令按鈕，其標題為"移動

本按鈕”，如圖所示。

要求編寫適當?shù)氖录^程，使得程序運行時，每單擊按鈕一次，按鈕向左移動100。

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

(1)

【操作步驟】

步驟1：新建一個窗體，在窗體中設置一個命令按鈕和一個通用對話框。

在屬性窗口中設置控件的屬性，控件的屬性見表3.14和3.15。

表3.14

控件命令按鈕

屬性NameCaption

設置值Commandl打開文件

表3.15

控件通用對話框

屬性NameDialogTitleFilterIndexFilter

文本文件|*txt斷有文件

設置值CD1打開文件2

|*.*|

步驟2：編寫程序代碼。

參考答案

PrivateSubCommandl_Click()

CD1.ShowOpen

EndSub

步驟3：調(diào)試并運行程序，保存工程，設置工程文件名為sjtl.vbp,設置窗體文件名為

sjtl.frmo

(2)【操作步驟】

步驟1：新建一個窗體，在窗體中添加一個命令按鈕。命令按鈕的屬性見表3.16。

表3.16

控件命令按鈕

屬性NameCaption

設置值Command1移動本按鈕

步驟2：編寫程序代碼。

參考答案

PrivateSubCommandl_Click()

Command1.Left=Command1.Left-100

EndSub

步驟3：調(diào)試并運行程序，保存工程，設置工程文件名為sjt2.vbp,設置窗體文件名為

sjt2.frmo

二、簡單應用

(1)在名稱為Forml的窗體上添加一個名稱為Labell、標題為"添加項目:"的標簽;添

加一個名稱為Textl的文本框，初始內(nèi)容為空；添加一個名稱為Combol的下拉式組合框，并

通過屬性窗口輸入若干項目(不少于3個，內(nèi)容任意)；再添加兩個命令按鈕，名稱分別為

Command〕、Command2,其標題分別為"添加"、"統(tǒng)計"。在程序運行時,向Textl中輸入字

符，單擊"添加"按鈕后，則將Textl中的內(nèi)容作為一個列表項被添加到組合框的列表中；單

擊"統(tǒng)計"按鈕，則在窗體空白處顯示組合框中列表項的個數(shù)，如圖所示。請編寫兩個命令按

鈕的Click事件過程。

（2）在考生文件夾下有一個工程文件sjt4.vbp,其窗體如圖所示。該程序用來對在上面

的文本框中輸入的英文字母串（稱為“明文”）加密，加密結(jié)果（稱為"密文"）顯示在下面的文本框

中。加密的方法為：選中一個單選按鈕，單擊“加密”按鈕后，根據(jù)選中的單選按鈕后面的數(shù)

字n,將''明文"中的每個字母改為它后面的第n個字母（"z"后面的字母認為是"a"，"Z“后面的

字母認為是"A"）,如圖所示。窗體中已經(jīng)給出了所有控件和程序，但程序不完整，請去掉

程序中的注釋符，把程序中的?改為正確的內(nèi)容。

（1）【操作步驟】

步驟1：新建一個窗體，按照題目要求建立控件并設置控件屬性。

程序中用到的控件及屬性設置見表3.17和3.18

*3.17

控件標簽文本框下拉式組合框

屬性NameCaptionNameTextNameList

設置值Labdl添加項目TextlCombo1美國

中國

俄國

表3.18,

控件Q命令按鈕命令按鈕2a

屬性。Name^Caption*Name?Caption*3

21

設置值。CommandI4添加*Command2小統(tǒng)計。

步驟2：分析并編寫程序代碼。

參考答案

PrivateSubCommand1_Click()

Combo1.AdditemText!

EndSub

PrivateSubCommand2_Click()

PrintCombo1.ListCount

EndSub

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

(2)【操作步驟】

步驟1：打開本題工程文件。

步驟2：分析并編寫程序代碼。

程序提供代碼

PrivateSubCommandl_Click()

DimnAsInteger,kAsInteger,mAsInteger

DimcAsString,aAsString

Fork=0To2

IfOpl(k).ValueThen

'n=Val(Opl(k).?)

EndIf

Nextk

m=Len(Text1.Text)

a=1M,

'Fork=1To?

'c=Mid$(Textl.Text,?,1)

c=String(l,Asc(c)+n)

IfoOro”Z"Andc<nanThen

c=String(l,Asc(c)-26)

EndIf

'?=a+c

Nextk

Text2.Text=a

EndSub

程序結(jié)束

參考答案

第1個？處填入：Caption

第2個？處填入：m

第3個？處填入：k

第4個？處填入：a

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

三、綜合應用

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

Text2,都可以多行顯示。還有三個命令按鈕，名稱分別為Cl、C2、C3,標題分別為“取數(shù)”、

"排序"、"存盤"。"取數(shù)”按鈕的功能是將考生文件夾下的in5.dat文件中的50個整數(shù)讀到數(shù)組

中，并在Textl中顯示出來：“排序”按鈕的功能是對這50個數(shù)按升序排序，并顯示在Text2中；

“存盤”按鈕的功能是把排好序的50個數(shù)存到考生目錄下的out5.dat文件中。如圖所示。在窗

體中已經(jīng)給出了全部控件和部分程序代碼，要求閱讀程序并去掉程序中的注釋符，把程序中

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

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

【操作步驟】

步驟1:打開本題工程文件。

步驟2：分析并編寫程序代碼。

程序提供代碼

Dima(50)AsInteger

PrivateSubCl_Click()

DimkAsInteger,chAsString

Opennin5.datHForInputAs#1

ch=

Fork=1To50

'Input#l,?

ch=ch+Str(a(k))+”

Nextk

Close#1

'Textl.Text=?

EndSub

PrivateSubC2_Click()

EndSub

PrivateSubC3_Click()

Open"oul5.dat"ForOutputAs#1

Print#1,Text2.Text

Close#1

EndSub

程序結(jié)束

參考答案

第1個？處填入：a(k)

第2個？處填入：ch

“排序”按鈕的代碼

PrivateSubC2_Click()

DimtAsInteger

DimiAsInteger

DimjAsInteger

DimchAsString

ch='H,

Fori=50To2Step-1

Forj=1To49

Ifa(j)>a(j+l)Then

t=a(j+1)

a(j+1)=a(j)

a(j)=t

EndIf

Nextj

Nexti

Forj=!To50

ch=ch+Str(a(j))+,,n

Nextj

Text2.Text=ch

EndSub

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

第五套

-、基本操作

(1)在名稱為Forml的窗體上畫兩個標簽(名稱分別為Labell和Label2,標題分別顯示

為"姓名"和"年齡")、兩個文本框(名稱分別為Textl和Text2,初使內(nèi)容均為空)和一個命令按

鈕(名稱為Command］，標題為"顯示然后編寫命令按鈕的Click事件過程。程序運行后，

在兩個文本框中分別輸入姓名和年齡，然后單擊〃顯示”按鈕，則在窗體上顯示兩個文本框中

的內(nèi)容，如圖所示。要求程序中不得使用任何變量。

(2)在名稱為Forml的窗體上畫一個圖片框，其名稱為Pictured-個水平滾動條，名

稱為HScrolIl,和?個命令按鈕，名稱為Command］，標題為"設置屬性”，通過屬性窗口在

圖片框中裝入一個圖形(文件名為picl.jpg,位于考生目錄下)，圖片框的高度與圖形的高度相

同，圖片框的寬度任意(如圖1所示)。編寫適當?shù)氖录^程，程序運行后，如果單擊命令按

鈕，則設置水平滾動條的如下屬性：

Min100

Max1500

LargeChange100

SmallChange10

之后就可以通過移動滾動條上的滾動塊來放大或縮小圖片框。程序運行后的窗體如圖2

所示。要求程序中不得使用任何變量。

?Feral司SR?Farsiryen

(1)【操作步驟】

步驟1:新建一個窗體，在窗體中添加兩個標簽，兩個文本框和一個命令按鈕。

步驟2：按照步驟1設置其他控件相關(guān)屬性，程序用到的控件及其屬性見表3.19和3.20。

表3.19

控件標簽1標簽2

屬性NameCaptionNameCaption

設置值Label1姓名Label2年齡

表3.20

控件文本框1文本框2命令按鈕

屬性NameTextNameTextCaption

設置值TextlText2顯示

步驟3：編寫程序代碼。

參考答案

PrivateSubCommand1_Click()

Form1.PrintText1.Text&",現(xiàn)年"&Text2.Text&"歲”

EndSub

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

(2)【操作步驟】

步驟1：新建一個窗體，在窗體上添加一個圖片框，一個水平滾動條和一個命令按鈕。

步驟2：設置窗體中控件的屬性，控件的屬性見表3.21。

表3.21

控件圖片框水平滾動條命令按鈕

屬性NameAuloSizePictureNameName(Caption

設置值PicturelTruepicLjpgHScnJ11(^oniniandl設置屬性

步驟3：編寫程序代碼。

參考答案

PrivateSubCommandl_Click()

HScroll1.Max=1500

HScrolll.Min=100

HScroll1.LargeChange=100

HScroll1.SmallChange=10

EndSub

PrivateSubHScrolll_Change（）

Picture1.Width=HScroll1.Value

EndSub

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

二、簡單應用

（1）在考生文件夾下有一個工程文件sjt3.vbp（相應的窗體文件名為sjt3.frm）,在窗體上

添加一個名稱為Listl的列表框和一個名稱為Textl的文本框，如圖1所示。編寫窗體的

MouseDown事件過程。程序運行后，如果用鼠標左鍵單擊窗體，則從鍵盤上輸入要添加到

列表框中的項目（內(nèi)容任意，不少于三個）；如果用鼠標右鍵單擊窗體，則從鍵盤上輸入要刪

除的項目，將其從列表框中刪除。程序的運行情況如圖2所示。這個程序不完整，請把它補

充完整，并能正確運行。

（2）在考生文件夾下有一個工程文件sjt4.vbp（相應的窗體文件名為sjt4.frm）,其功能是

通過調(diào)用過程FindMin求數(shù)組的最小值。程序運行后，在四個文本框中各輸入?個整數(shù)，然

后單擊命令按鈕，即可求出數(shù)組的最小值，并在窗體上顯示出來（如圖所示）。

（1）【操作步驟】

步驟1：打開本題工程文件，在窗體中添加一個列表框和一個文本框，按照表3.22所示

設置控件屬性。

表3.22

控件列表框文本框

屬性NameName

設置值ListlTextl

步驟2：分析并編寫程序代碼。

程序提供代碼

PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAs

Single)

IfButton=1Then

Text1.Text=InputBox("請輸入要添加的項目”)

,List1.Additem?

EndIf

IfButton=2Then

Text1.Text=Inp