VB程序設(shè)計(jì)復(fù)習(xí)資料

本文格式為Word版，下載可任意編輯——VB程序設(shè)計(jì)復(fù)習(xí)資料一、判斷題（每題1分，共10分）

（）1.由VisualBasic語(yǔ)言編寫(xiě)的應(yīng)用程序有解釋和編譯兩種執(zhí)行方式。

（）2.文本框控件的MaxLength屬性值為0時(shí)，在文本框內(nèi)不可以輸入任何字符。（）3.要使輸入文本框的字符始終顯示“#〞，則應(yīng)修改其PasswordChar屬性為“#〞。（）4.在一個(gè)窗體中不能使用Unload來(lái)卸載本窗體，即一個(gè)窗體只能由其它窗體卸載。（）5.VB的Double類型數(shù)據(jù)，可以確切表示其數(shù)值范圍內(nèi)的所有實(shí)數(shù)。

（）6.在圖片框中添加的控件，其Top和Left屬性值是相對(duì)圖片框而言的，與窗體無(wú)關(guān)。（）7.命令按鈕不但能響應(yīng)單擊事件，而且還能響應(yīng)雙擊事件。（）8.在自定義函數(shù)過(guò)程中，函數(shù)名必需被賦值。

（）9.文本框控件只能響應(yīng)KeyPress、KeyDown、KeyUp、Change事件。（）10.假使一個(gè)菜單項(xiàng)的Visible屬性為False，則它的子菜單也會(huì)顯示。

二、單項(xiàng)選擇題（每題2分，共20分）

（）11.要改變控件的高度，應(yīng)修改控件的_______屬性。

A、TopB、LeftC、HeightD、Width（）12.VB算術(shù)運(yùn)算符乘或除、整除、求余的優(yōu)先級(jí)，從高到低依次為_(kāi)______。A、乘或除、求余、整除C、整除、求余、乘或除

B、乘或除、整除、求余D、整除、乘或除、求余

C、LeftD、Name

D、m\\n*n=m

（）13.以下哪個(gè)屬性用來(lái)表示標(biāo)簽（Label）的內(nèi)容和窗體（Form）的標(biāo)題_______。A、CaptionB、Text

（）14.判斷整型變量m能否被n整除的VB表達(dá)式為_(kāi)______。A、nModm=0B、m/n*n=mC、mModn

（）15.選中復(fù)選框控件時(shí)，Value屬性的值為_(kāi)______。

A、TrueB、FalseC、0D、1

（）16.在窗體Form1的一個(gè)事件過(guò)程中，使用_______來(lái)清除窗體上所繪制的圖形的方法是不正確的。A、Form1.ClsB、Form.ClsC、Me.CLSD、Cls（）17.設(shè)計(jì)動(dòng)畫(huà)時(shí)尋常用時(shí)鐘控件_______屬性來(lái)控制動(dòng)畫(huà)速度。

A、IntervalB、TimerC、MoveD、Enabled（）18.使用Circle方法不可以繪制的圖形是_______。

A、圓角矩形

B、橢圓C、圓餅圖

D、扇形

（）19.運(yùn)行時(shí)組合框控件Comb1中所選擇的表項(xiàng)，可以表示為_(kāi)______。

A、Comb1.TextB、Comb1.ListIndexC、Comb1.ListD、Comb1.ListCount（）20.若i的初值為9，則以下循環(huán)語(yǔ)句的循環(huán)次數(shù)為_(kāi)______次。DoWhileia(j)Thenm=a(i)(23)a(j)=m

NextjNexti

Fori=1To30

If(24)Then(25)NextiEndSub

（21）(22)(23)(24)(25)

2．以下程序運(yùn)行時(shí)，單擊Command1(0)后，圖片每秒自動(dòng)左移1毫米，單

擊Command1(1)中止移動(dòng)（當(dāng)圖片尾部移出窗體后，圖片從窗體右端進(jìn)入窗體）。界面設(shè)計(jì)如下圖1所示。

圖1程序2的界面設(shè)計(jì)

PrivateSubCommand1_Click(IndexAsInteger)

IfIndex=0Then(26)ElseTimer1.Enabled=FalseEndSub

PrivateSubForm_Load()

Timer1.Interval=(27)Form1.ScaleMode=6(28)EndSub

PrivateSubTimer1_Timer()Picture1.Left=(29)

IfPicture1.Left+Picture1.Width025.Printa(i);26.Timer1.Enabled=True27.100028.Timer1.Enabled=False29.Picture1.Left-130.Picture1.Left試題四、程序閱讀題(每題5分，共20分)31.a=2b=2a=6b=4a=14b=8

32.M

MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM33.您好

歡迎使用VisualBasic!34.abcdabcab

試題五、程序設(shè)計(jì)題（每題各10分，共30分）

35．編制事件過(guò)程Command1_Click，執(zhí)行該過(guò)程時(shí)輸入n以及n個(gè)數(shù)，計(jì)算這n個(gè)數(shù)的和并在文本框控件Text1中顯示。

PrivateSubCommand1_Click()

DimsAsSingle,nAsInteger,xAsSinglen=InputBox(\輸入n\Fori=1Ton

x=InputBox(\Nexti

Text1.Text=sEndSub

36.編制通用函數(shù)過(guò)程fsum，計(jì)算Single類型一維數(shù)組所有元素的和。

PrivateFunctionfsum(a()AsSingle,nAsSingle)AsSingleDimiAsIntegerFori=1Ton

fsum=fsum+a(i)NextiEndFunction

37.在窗體上建立命令按鈕“Command1〞（顯示）和“Command2〞（退出）。PrivateSubCommand1_Click()

IfCommand1.Caption=\顯示\

Print\歡迎使用VisualBasic！\清除\Else

Form1.Cls:Command1.Caption=\顯示\

4

EndIfEndSub

PrivateSubCommand2_Click()EndEndSub

PrivateSubForm_Load()

Form1.Cls:Command1.Caption=\顯示\EndSub

一、判斷題（每題1分，共10分）

（）1．VB是以結(jié)構(gòu)化的Basic語(yǔ)言為基礎(chǔ)、以事件驅(qū)動(dòng)作為運(yùn)行機(jī)制的可視化程序設(shè)計(jì)語(yǔ)言。（）2．用DIM定義數(shù)值變量時(shí)，該數(shù)值變量自動(dòng)賦初值為0。

（）3．移動(dòng)框架時(shí)框架內(nèi)控件也跟隨移動(dòng)，因此框架內(nèi)控件的Left和Top屬性值也隨之改變。（）4．列表框和文本框一樣均沒(méi)有Caption屬性，但都具有Text屬性。（）5．圖片框可以通過(guò)Print方法來(lái)顯示文本。

（）6．語(yǔ)句“FontName=\宋體\與“Form1.FontName=\宋體\的作用完全一致，無(wú)一例外。（）7．SetFocus方法是把焦點(diǎn)移到指定對(duì)象上，使對(duì)象獲得焦點(diǎn)，該方法適用于所有控件。（）8．由于定時(shí)器控件在運(yùn)行時(shí)是不可見(jiàn)的，因此在設(shè)置時(shí)可任意地將其放在任何位置。（）9．表示各控件對(duì)象的變量名的屬性為Caption。

（）10.決定對(duì)象是否可見(jiàn)的屬性是Visible屬性，決定對(duì)象可用性的屬性是Enabled屬性。

二、單項(xiàng)選擇題（每題2分，共20分）

（）11．以下哪個(gè)屬性用來(lái)表示各對(duì)象（控件）的位置_______。

A、TextB、CaptionC、LeftD、NameA、方法A、Locked

B、對(duì)象B、Enabled

C、屬性C、MultiLine

D、事件

（）12．List1.Clear中的Clear是_______。

（）13．將文本框控件的_______屬性設(shè)置為T(mén)rue，可正常顯示文本但不可編輯。

D、Visible

（）14．取字符串Ax從第1個(gè)非空格符開(kāi)始的連續(xù)5個(gè)字符，寫(xiě)作表達(dá)式_______。

A、Mid(Ax,1,5)C、Left(Ax,5)A、(x+5)^1/3

B、Left(Trim(Ax),5)

D、Mid(Trim(Ax),5)

D、(x+5)^(1/3)

（）15．?dāng)?shù)學(xué)式(x+5)1/3寫(xiě)成VB表達(dá)式是_______。

B、(x+5)^(1\\3)C、(x+5)^1\\3

（）16．要使Shape控件以實(shí)心方式填充，應(yīng)當(dāng)設(shè)置其_______屬性。

A、FillColorB、FillStyleC、BackStyleD、ShapeA、VisibleB、ValueA、a=Ify>xThenyElsexC、a=x:Ify>xThena=y

C、Caption

D、Enabled

（）17．將命令按鈕Command1設(shè)置為不可見(jiàn)，應(yīng)修改該命令按鈕的_______屬性。（）18．將變量x、y中的最大數(shù)賦值給變量a，正確的表示為_(kāi)______。

B、Ify>xThena=y:a=x

D、Ify>xThena=yElsea=xEndIf

（）19．文本框控件Text4的Text屬性默認(rèn)值為_(kāi)______。

A、Text4B、\C、LockedD、Name

（）20．描述以（1000，1000）為圓心、以400為半徑畫(huà)1/4圓弧的語(yǔ)句，正確的是_______。A、Circle(1000,1000),400,0,3.1415926/2B、Circle(1000,1000),,400,0,3.1415926/2

5

A+C的值為_(kāi)_______。

10．在VisualBasic語(yǔ)言中有三種形式的循環(huán)結(jié)構(gòu)。其中，若循環(huán)的次數(shù)可以事先確定，可使用For循環(huán)；若要求先判斷循環(huán)進(jìn)行的條件，可使用________循環(huán)或________循環(huán)。

11．以下語(yǔ)句的輸出結(jié)果是__________。

DimaAsIntegera=3.14159Printa

12．ActiveXEXE文件的后綴是__________。

13．VB中的程序錯(cuò)誤類型主要有編譯錯(cuò)誤__________、__________等三種。

三、閱讀程序，并按要求改寫(xiě)出程序（每題10分，共30分）1．下面程序用于求S=1+4+7+?+304

S=0

Fori=1To304Step3S=S+iNext

MsgBox\

假使要求P=10+15+20+?+600，則可將上面程序改寫(xiě)為：

P=0

Fori=10To600Step5P=P+iNext

MsgBox\

請(qǐng)改寫(xiě)上面程序，用于求F=4+10+16+?+598。

2．某單位規(guī)定職工每月的用電收費(fèi)標(biāo)準(zhǔn)為：沒(méi)有超過(guò)200度的，0.65元/度，超過(guò)200度的，超過(guò)部分0.98元/度。收費(fèi)程序如下：

x=Val(InputBox(\用電量：\Ifx>200Then

y=200*0.65+(x-200)*0.98Else

y=x*0.65EndIf

MsgBox\應(yīng)收電費(fèi)：\元\

現(xiàn)在，收費(fèi)標(biāo)準(zhǔn)調(diào)整為：沒(méi)有超過(guò)300度的，0.72元/度，超過(guò)300度的，超過(guò)部分1.25元/度。請(qǐng)改寫(xiě)收費(fèi)程序。

3．模擬摸球程序。黑箱里有大小一致的小球，編號(hào)分別為1到30，從黑箱里摸出一個(gè)球，若是5號(hào)球，游戲終止，否則放回重摸。程序如下：

Do

'用Int(Rnd*(B-A+1)+A)產(chǎn)生區(qū)間[A,B]上的整數(shù)x=Int(Rnd*30)+1

MsgBox\摸到的球：\LoopUntilx=5

現(xiàn)在，黑箱里小球的數(shù)量和編號(hào)有所變化，編號(hào)分別為21到60，要求摸出50號(hào)球時(shí)游戲終止。請(qǐng)改寫(xiě)程序。

19

四、編程序（10分）

根據(jù)直角三角形的兩條直角邊求直角三角形的面積。

要求：在文本框Text1和Text2中輸入邊長(zhǎng)，然后單擊“計(jì)算〞按鈕（cmd3）計(jì)算出這個(gè)直角三角形的面積，計(jì)算結(jié)果在標(biāo)簽labM中顯示出來(lái)。假使用戶輸入的邊長(zhǎng)不是正數(shù)，則給出相應(yīng)的提醒信息。

五、問(wèn)答題（10分）

1．文件處理有哪些語(yǔ)句和函數(shù)？簡(jiǎn)述文件處理程序的一般開(kāi)發(fā)方法。2．繪制圖形的語(yǔ)句有哪些？如何使用？

3．表達(dá)用VB開(kāi)發(fā)數(shù)據(jù)庫(kù)應(yīng)用程序的步驟和方法。4．如何有效地進(jìn)行VB程序調(diào)試？*實(shí)際考試時(shí)只有1小題

一、單項(xiàng)選擇題

1．D2．B3．C4．C5．B6．B7．C8．D9．B10．B11．B12．B13．A14．B15．C

二、填空題

1．TCP/IP（或者回復(fù)TCP協(xié)議）2．上3．False4．365．5206．Show

7．Sqr(s*(s-a)*(s-b)*(s-c))8．x>=1Andx300Then

y=300*0.72+(x-300)*1.25Else

y=x*0.72EndIf

MsgBox\應(yīng)收電費(fèi)：\元\3．

Do

20

17、除去屬性過(guò)程外，上面的狗類的方法有_____2_______個(gè)。18、語(yǔ)句1執(zhí)行后的效果是______彈出一個(gè)對(duì)話框，對(duì)話框上面寫(xiě)著跑馬溜溜的山_____19、語(yǔ)句2的作用是____調(diào)用狗的方法beat________________________20、語(yǔ)句3能否正確執(zhí)行，請(qǐng)說(shuō)明理由：___不能，dogcolor是只讀屬性_____________________三、程序設(shè)計(jì)題（每題10分，共20分）

1、在窗體中參與一個(gè)列表框List1、一文本框Text1、按鈕Command1和Command2。設(shè)置

List1為多項(xiàng)選擇。界面設(shè)計(jì)如下圖。在代碼中實(shí)現(xiàn)：

1）程序一啟動(dòng)，Command1和Command2標(biāo)題分別為“增加〞和“刪除選中〞，文本框內(nèi)容清空；（3分）

2）實(shí)現(xiàn)點(diǎn)擊增加按鈕，假使文本框內(nèi)容為空，提醒用戶輸入；否則將文本內(nèi)容添加到列表框中；（3分）

3）用戶點(diǎn)“刪除選中〞按鈕，刪除列表框選中的項(xiàng)目。（4分）PrivateSubform_load()

Command1.Caption=\增加\Command2.Caption=\刪除選中\(zhòng)EndSub

PrivateSubcommand1_click()

IfText1.Text=\

MsgBox\文本為空\(chéng)提醒\List1.AddItemText1EndIfEndSub

PrivateSubcommand2_click()

ForI=List1.ListCount-1To0Step1

IfList1.Selected(I)=TrueThen

List1.RemoveItemIEndIfNextEndSub

2、請(qǐng)自定義一個(gè)函數(shù)，該函數(shù)能根據(jù)文件名判斷該文件是否為T(mén)IFF文件。(10分)（提醒：判斷擴(kuò)展名是否為“tif〞,要求后綴名“tif〞3個(gè)字母大小寫(xiě)任意）PrivateSubCommand1_Click()

DimyAsString

26

y=Text1.TextCallhanshu(y)EndSub

PrivateSubhanshu(y)

IfRight(y,4)=\

MsgBoxy+\是tiff格式文件\提醒\MsgBoxy+\不是tiff格式文件\提醒\EndIfEndSub

1、界面設(shè)計(jì)：

2、功能設(shè)計(jì)：1）Text2不可編輯

2）用戶在Text1中輸入字符全用〞*〞號(hào)代替，并及時(shí)在Text2中顯示Text1的文本。．．3）當(dāng)用戶改變窗體大小時(shí)，兩個(gè)文本框始終剛好覆蓋窗體內(nèi)容，并且兩個(gè)文本框的高度相等。

4）當(dāng)用戶在Text1中鍵入ESC鍵時(shí)，卸載窗體退出程序。

PrivateSubForm_Load()Text1.Text=\

Text2.Text=Text1.TextEndSub

PrivateSubText1_Change()

Text2.Text=Text1.TextEndSub

PrivateSubText1_KeyPress(KeyAsciiAsInteger)

IfKeyAscii=27Then

UnloadMeEndIfEndSub

27

如判斷文件擴(kuò)展名是否為doc，大小寫(xiě)不區(qū)分？

FunctioncheckDoc(strFileAsString)AsBooleanIfLCase(Right(strFile,3))=\checkDoc=TrueElse

checkDoc=FalseEndIfEndFunction

PrivateSubCommand1_Click()MsgBoxcheckDoc(\EndSub

28

x=Int(Rnd*40)+1

MsgBox\摸到的球：\LoopUntilx=50

四、編程序（10分）PrivateSubcmd3_Click()x=Val(Text1)y=Val(Text2)

Ifx>0Andy>0ThenlabM=x*y/2Else

MsgBox\邊長(zhǎng)必需是正數(shù)!\EndIfEndSub

一、單項(xiàng)選擇題（每題2分，共40分）

1、在VisualBasic中,主要用來(lái)顯示(輸出)文本信息,但不能作為輸入信息的控件為(A)A、標(biāo)簽B、文本框C、組合框D、單項(xiàng)選擇按鈕

2、在窗體中放入一按鈕Command1，要求該窗體一顯示，該按鈕的標(biāo)題為“確定〞，下述能達(dá)到的要求的是（B）

A、在界面設(shè)計(jì)階段，選中該按鈕，將其Name屬性設(shè)置為\確定\B、在Form_Load事件中添加代碼：Command1.Caption=\確定\C、在Form_Click事件中添加代碼：Command1.Caption=\確定\D、在Form_Load事件中添加代碼：Command1.Name=\確定\

3、下面代碼當(dāng)窗體單擊時(shí)，在窗體上打印幾行（C）PrivateSubForm_Click()Print\

PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Print\

PrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Print\

A、1B、2C、3D、44、在窗體中添加Text1和Text2兩個(gè)文本框，代碼如下。當(dāng)用戶先單擊Text2，然后單擊Text1后（A）PrivateSubText1_Click()