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

1、在“考生”文件夾下有一個(gè)工程文件ITAT21.vbp，窗體上有兩個(gè)列表框，名稱分別為List1、List2，在List2中已經(jīng)預(yù)設(shè)了內(nèi)容；還有兩個(gè)命令按鈕，名稱分別為C1、C2，標(biāo)題分別為“添加”、“清除”，如下圖所示。程序的功能是在運(yùn)行時(shí)，如果選中右邊列表框中的一個(gè)列表項(xiàng)，單擊“添加”按鈕，則把該項(xiàng)移到左邊的列表框中；若選中左邊列表框中的一個(gè)列表項(xiàng)，單擊“清除”按鈕，則把該項(xiàng)移回右邊的列表框中。文件中已經(jīng)給出了所有控件和程序，但程序不完整，請去掉程序中的注釋符，把程序中的“？”改為正確的內(nèi)容，但不能修改程序中的其他部分，也不能修改控件的屬性。最后把修改后的文件按原文件名存盤并提交。

PrivateSubC1_Click()DimkAsIntegerk=0While(k<List2.ListCount)IfList2.Selected(k)=TrueThenList1.AddItemList2.TextList2.RemoveItemkEndIfk=k+1WendEndSubPrivateSubC2_Click()List2.AddItemList1.TextList1.RemoveItemList1.ListIndexEndSub

2在“考生”文件夾中有一個(gè)工程文件ITAT21.vbp。程序的功能是通過鍵盤向文本框中輸入大、小字母及數(shù)字。單擊標(biāo)題為“統(tǒng)計(jì)”的命令按鈕，分別統(tǒng)計(jì)輸入字符串中的大寫、小寫字母及數(shù)字字符的個(gè)數(shù)，并將統(tǒng)計(jì)結(jié)果分別顯示在標(biāo)簽控件數(shù)組x中，如圖所示。不得修改已經(jīng)存在的程序，最后把修改后的文件按原文件名存盤。

PrivateSubCommand1_Click()DimnAsIntegerDimbAsIntegerDima(3)AsIntegers=RTrim(Text1.Text)n=Len(Text1.Text)Fori=1Tonb=Asc(Mid(s,i,1))SelectCasebCase48To57a(0)=a(0)+1Case65To90a(1)=a(1)+1Case97To122a(2)=a(2)+1EndSelectNextFori=0To2x(i)=a(i)NextEndSub3在“考生”文件夾下有一個(gè)工程文件ITAT22.vbp。窗體上的控件已經(jīng)設(shè)計(jì)完畢（不需修改它們的任何屬性），程序運(yùn)行后，如果單擊“變化”命令按鈕，則形狀控件shape1每隔1.5秒在形狀控件的6種形狀間作隨機(jī)變化（提示：使用隨機(jī)整數(shù)生成器），同時(shí)這6種形狀的名稱顯示在列表框中，下圖表示了它的變化。提供的窗體文件可以實(shí)現(xiàn)上述功能，但這個(gè)程序不完整，請補(bǔ)充。要求：把程序中的“？”改為適當(dāng)?shù)膬?nèi)容，使其正確運(yùn)行，注意：不得修改已經(jīng)存在的程序，最后把修改后的文件按原文件名存盤并提交。

PrivateSubCommand1_Click()Timer1.Enabled=TrueEndSubPrivateSubTimer1_Timer()DimnAsIntegern=Int(Rnd*6)List1.Selected(n)=TrueShape1.Shape=nEndSub4編寫程序，完成以下功能：

（1）利用窗體的Load事件，預(yù)先把兩位整數(shù)11、22、33、44、55、66、77、88、99依次存入a數(shù)組中并顯示在文本框Text1中，界面設(shè)計(jì)如圖(a)所示；

（2）運(yùn)行程序，單擊“插入”按鈕，會(huì)彈出一個(gè)輸入框（如圖(b)所示），由用戶輸入一個(gè)兩位整數(shù)并確定后，該整數(shù)被插入到數(shù)組的適當(dāng)位置，數(shù)組依然保持升序（從小到大次序）排列，并顯示在文本框Text2；

（3）窗體文件保存為ITAT31.frm，工程文件保存為ITAT31.vbp，將所有文件壓縮并命名為“SF.rar”后提交。

(a)

(b)Dima(1To10)AsIntegerPrivateSubCommand1_Click()DimiAsIntegerDimposAsIntegerDimxAsIntegerx=InputBox("請輸入一個(gè)兩位整數(shù)：","插入",34)Fori=1To9Ifx<a(i)Thenpos=iExitForEndIfNextiFori=9ToposStep-1a(i+1)=a(i)Nextia(pos)=xFori=1To10Text2.Text=Text2.Text&CStr(a(i))&""NextiEndSubPrivateSubForm_Load()DimiAsIntegerFori=1To9a(i)=i*10+iText1.Text=Text1.Text&CStr(a(i))&""NextiEndSub5新建窗口(窗體名為frm1)并創(chuàng)建一個(gè)文本框和一個(gè)命令按鈕，只要在文本框中輸入一個(gè)圖像文件名(包括路徑)，單擊該命令按鈕后，該圖像就會(huì)成為此窗口的背景圖像，請寫編寫程序代碼。保存所有文件，并將所有文件壓縮后提交。本題PrivateSubCommand1_Click()frm1.Picture=loadpicture(text1.text)EndSub6任務(wù)

（1）在名稱為Form1的窗體上畫兩個(gè)圖片框，名稱分別為P1、P2，初始通過屬性窗口為P1裝載素材文件夾中的圖片index.jpg；通過picture屬性選擇圖片

（2）三個(gè)命令按鈕名稱為Cmdcut、Cmdcopy、Cmdpaste，標(biāo)題如下圖；

（3）請編寫事件過程，使得在運(yùn)行時(shí)，點(diǎn)擊剪切按鈕時(shí)會(huì)剪切P1中圖片，點(diǎn)擊復(fù)制按鈕時(shí)會(huì)復(fù)制P1中圖片，點(diǎn)擊粘帖按鈕時(shí)會(huì)將剪貼或復(fù)制下來的圖片粘帖在P2圖片框中；

（4）程序中不得使用任何變量；

（5）窗體文件保存為ITAT11.frm，工程文件保存為ITAT11.vbp。

PrivateSubCmdcut_Click()Clipboard.ClearClipboard.SetDataPicture1Picture1.Picture=LoadPicture()EndSubPrivateSubCmdpaste_Click()Picture2.Picture=Clipboard.GetDataEndSubPrivateSubCmdcopy_Click()Clipboard.ClearClipboard.SetDataPicture1EndSub

7任務(wù)

（1）在名稱為From1的窗體上畫二個(gè)文本框，名稱分別為Text1、Text2，都包含垂直滾動(dòng)條和水平滾動(dòng)條，都可以顯示多行文本；Multiline屬性設(shè)置為truesrollbars屬性設(shè)為真

（2）再畫一個(gè)命令按鈕，名稱為C1，標(biāo)題為“復(fù)制”（如圖所示）；

（3）請編寫事件過程，使得在運(yùn)行時(shí)，在Text1中輸入文本后，單擊“復(fù)制”按鈕，就把Text1中的文本全部復(fù)制到Text2中；PrivateSubText1_Change()Text2=Text1EndSub

（4）程序中不得使用任何變量；

（5）窗體文件保存為ITAT12.frm，工程文件保存為ITAT12.vbp。

8題干：在VB中用戶自定義構(gòu)造數(shù)據(jù)類型可以使用（B）語句。分?jǐn)?shù)：1分AObjectBTypeCNew

DUse

9題干：在VB中，要定義一個(gè)包含15個(gè)整型元素的數(shù)組，下列語句正確的是（D）。ADimarrMyIntAsInteger(15)BDimarrMyIntAsInteger(14)CDimarrMyInt(15)

AsIntegerDDimarrMyInt(14)

AsInteger10題干：下列不是VB中集合對(duì)象的方法的是（C）。AAddBRemoveCDelDItem4.題干：下列關(guān)于Function過程的說法錯(cuò)誤的是（C）。A聲明一個(gè)Function過程必須說明返回值的類型

B在退出Function過程前必須設(shè)置返回值C因?yàn)镕unction過程有返回值，所以只能在表達(dá)式中調(diào)用，以將返回值賦給一個(gè)變量D可以使用Call語句調(diào)用Function過程11題干：退出For循環(huán)可使用的語句為（EndFor

）。12題干：窗體的標(biāo)題欄顯示內(nèi)容由窗體對(duì)象的（Caption

）屬性決定。

13題干：若要向列表框添加列表項(xiàng)，可使用的方法是（AddItem

）。14題干：關(guān)于過程的參數(shù)下列說法錯(cuò)誤的是（D）。ASub過程和Function過程都可以有參數(shù)B可以使用Optional關(guān)鍵字聲明可選參數(shù)

C如果指定了可選參數(shù)，則參數(shù)表中此參數(shù)后面的其他參數(shù)也必是可選的D如果指定了可選參數(shù)，則參數(shù)表中此參數(shù)后面的其他可選參數(shù)可不用再用Optional聲明15題干：下列關(guān)于VB中的過程控制的說法中錯(cuò)誤的是（C）。A轉(zhuǎn)支結(jié)構(gòu)可以使用Goto語句和Gosub語句BSelectCase是一種條件結(jié)構(gòu)C如同C語言一樣，SelectCase中各case子句都要有break語句D轉(zhuǎn)支結(jié)構(gòu)的一個(gè)重要用途是出錯(cuò)處理，利用OnErrorGoto語句

16題干：在窗體上畫一個(gè)名稱為Command1的命令按鈕，然后編寫如下程序PrivateSubCommand1_Click（）

StaticXAsInteger

StaticYAsInteger

Cls

Y=l

Y=Y+5

X=5+X

PrintX，Y

EndSub

程序運(yùn)行時(shí)，單擊三次命令按鈕Command1后，窗體上顯示的結(jié)果為（B）。A1516B15

6C1515D5

6

17題干：執(zhí)行以下程序后輸出的是（C）。

PrivateSubCommand1_Click()

Ch$=”AABCDEFGH”

PrintMid(Right(ch$,6),Len(left(ch$,4)),2)

EndSubACDEFGH

BABCDCFG

DAB18題干：為達(dá)到把a(bǔ)、b中的值交換后輸出的目的，編程如下：

PrivateSubCommand1_Click()

a%=10:b%=20

Callswap(a,b)

Printa,b

EndSub

PrivateSubswap(ByValaAsInteger,ByValbAsInteger)

c=a:a=b:b=c

EndSub

在運(yùn)行時(shí)發(fā)現(xiàn)輸出結(jié)果錯(cuò)了，需要修改。下面列出的錯(cuò)誤原因和修改方案中正確的是（C）。A調(diào)用swap過程的語句錯(cuò)誤，應(yīng)改為Callswapa,bB輸出語句錯(cuò)誤，應(yīng)改為：Print”a”,”b”C過程的形式參數(shù)有錯(cuò)，應(yīng)改為：swap(ByRefaAsInteger,ByRefbAsInteger)Dswap中3條賦值語句的順序是錯(cuò)誤的，應(yīng)改為a=b:b=c:c=a19.題干：下列可獲得當(dāng)前系統(tǒng)日期的函數(shù)是（Date()

）。20題干：下列程序是用來計(jì)算并輸出7!（7的階乘）的值：

PrivateSubCommand1_Click()

t=0

Fork=7To2Step-1

t=t*k

Next

Printt

EndSub

執(zhí)行程序時(shí)，發(fā)現(xiàn)結(jié)果是錯(cuò)誤的，下面能夠得到正確結(jié)果的修改方案是（把t=0改為t=1）。21題干：VB中可用（MsgBox）語句產(chǎn)生消息框。22題干：下列不屬于VB程序合法的變量名的有（bc）。

A:ab7

B:7ab

c:If

D:abc

23題干：下列有關(guān)VB中的變量命名規(guī)則，說法正確的有（bcd）。

A:一個(gè)變量名的長度沒有限制

B:變量名的第一個(gè)字符必須是字母

C:變量名可以由字母，數(shù)字和下劃線組成

D:VB中的保留字不能用作變量名

24題干：剛建立一個(gè)新的標(biāo)準(zhǔn)EXE工程后，在工具箱中默認(rèn)出現(xiàn)的控件有（ABD）。A單選按鈕

B圖片框

C通用對(duì)話框D文本框

25題干：下列屬于VB程序的界面接口的有（AB）。A窗體

B多文檔窗體C模塊

D類模塊26題干：在VB中，為了定義變量的作用域，可以使用的變量范圍說明符有（AD）。APublicBAbstractCProtected

DPrivate

27題干：在VB中檢查變量類型通常使用的函數(shù)有（BC）。ATypeOfBVarTypeCTypeNameDVarTypeOf

28在“考生”文件夾下有一個(gè)工程文件ITAT21.vbp，在窗體上有一個(gè)命令按鈕（其名稱為Command1，標(biāo)題為“輸出平均值”），如下圖所示。編寫適當(dāng)?shù)氖录^程。程序運(yùn)行后，如果單擊“輸出平均值”命令按鈕，則自動(dòng)產(chǎn)生20個(gè)0～99范圍內(nèi)的隨機(jī)整數(shù)并存放在數(shù)組arrN中；然后求出這20個(gè)隨機(jī)整數(shù)的平均值，并將它輸出在窗體上，下圖窗體上的數(shù)據(jù)是單擊“輸出平均值”按鈕三次，各次輸出的結(jié)果（注意：每次輸出都不一樣）。提供的窗體文件可以實(shí)現(xiàn)上述功能，但這個(gè)程序不完整，請補(bǔ)充。要求：把程序中的“？”改為適當(dāng)?shù)膬?nèi)容，使其正確運(yùn)行，不得修改已經(jīng)存在的程序，最后把修改后的文件按原文件名存盤并提交。

OptionBase1PrivateSubCommand1_Click()

DimarrN(20)AsInteger

DimAverAsSingle

DimSumAsInteger,i

Randomize

Fori=1To20

’

arrN(i)=Int(Rnd*100)（2分）

Nexti

’

Sum=

0

（2分）

Fori=1To20

’

Sum=

sum+

arrN(i)

（2分）

Nexti

’

Aver=

sum/20

（2分）

PrintAver

EndSub

29在“考生”文件夾下有一個(gè)工程文件ITAT22.vbp。窗體上的控件已經(jīng)設(shè)計(jì)完畢（不需修改它們的任何屬性），程序運(yùn)行后，用戶在文本框Text1中輸入至少含有兩個(gè)大寫字母的任意字符串，然后單擊“求解”按鈕，則在文本框Text2中逆序輸出該字符串的大寫字母，其它字符不輸出，如下圖所示。提供的窗體文件可以實(shí)現(xiàn)上述功能，但這個(gè)程序不完整，請補(bǔ)充。要求：把程序中的“？”改為適當(dāng)?shù)膬?nèi)容，使其正確運(yùn)行，注意：不得修改已經(jīng)存在的程序，最后把修改后的文件按原文件名存盤并提交。

OptionExplicitPrivateSubCommand1_Click()

DimsAsString,dAsString

DimiAsInteger

Text1.SetFocus

s=Text1.Text

’Fori=1To

len(s)

’（2分）

’If

Mid(s,i,1)>=”A”

and

Mid(s,i,1)<=”Z”

Then

（2分）

d

=Mid(s,i,1)&d（3分）

EndIf

Nexti

Text2.Text=d

EndSubPrivateSubCommand2_Click()

Text1.Text=""

Text2.Text=""

Text1.SetFocus

EndSubPrivateSubCommand3_Click()

End

EndSub

30題干：求一元二次方程的a*x^2+b*x+c=0的根。新建一個(gè)工程，放置三個(gè)文本框，分別輸入a,b,c的值，再放置一個(gè)文本框，用于顯示方框的根，再放置一個(gè)按鈕，點(diǎn)擊時(shí)，需判定方程是否有實(shí)根，如果沒有需重新輸入a,b,c的值；如果有，需提示是否是兩個(gè)相等的根，并在文本框內(nèi)顯示出方程的兩個(gè)根的值。保存所有文件，并將所有文件壓縮后提交。PrivateSubCommand1_Click()DimaAsSingleDimbAsSingleDimcAsSingleDimtAsSingleDimx1AsSingleDimx2AsSinglea=Val(Text1)b=Val(Text2)c=Val(Text3) t=b*b-4*a*cIft<0ThenMsgBox"沒有可行解"Text1=""Text2=""Text3=""ElseIft=0ThenText4="只有一個(gè)可行解"x1=-b+Sqr(b)Text4=Text4+x1ElseMsgBox"有倆個(gè)可行解"x1=-b+Sqr(b)x2=-b-Sqr(b)Text4=Text4&x1&""&x2EndIfEndSub31題干：在用戶單擊某窗口(窗體名為frm1)時(shí)，會(huì)顯示一行信息：“歡迎光臨!”，應(yīng)在該窗體的哪個(gè)事件過程中，編寫什么樣的程序代碼?請寫出相應(yīng)的事件過程名以及該過程內(nèi)的程序代碼。將文件保存后提交。PrivateSubForm_Click()Print"歡迎光臨!"EndSub32某應(yīng)用程序運(yùn)行時(shí)窗口中有兩個(gè)文本框(txtNumber和txtChinese)和一個(gè)命令按鈕(cmdChange)。當(dāng)單擊cmdChange時(shí)，txtChinese中將顯示txtNumber中數(shù)值的中文大寫格式。例如，若在txtNumber中輸入“12345”，單擊命令按鈕后，txtChinese中將顯示“壹貳叁肆伍”，如下圖所示。注：壹貳叁肆伍陸柒捌玖零。保存所有文件，并將所有文件壓縮后提交。

PrivateSubCommand1_Click()IftxtNumber=""ThenMsgBox"請輸入數(shù)字"txtNumber.SetFocusEndIfFori=1ToLen(txtNumber)c=Mid(txtNumber,i,1)SelectCasecCase"1"txtChinese=txtChinese+"壹"Case"2"txtChinese=txtChinese+"貳"Case"3"txtChinese=txtChinese+"叁"Case"4"txtChinese=txtChinese+"肆"Case"5"txtChinese=txtChinese+"伍"Case"6"txtChinese=txtChinese+"陸"Case"7"txtChinese=txtChinese+"柒"Case"8"txtChinese=txtChinese+"捌"Case""txtChinese=txtChinese+"玖"Case"0"txtChinese=txtChinese+"零"EndSelectNextiEndSub33題干：“完備數(shù)”是指一個(gè)數(shù)恰好等于它的因子之和，如6的因子為1、2、3，而6=1+2+3，因而6就是完備數(shù)。編制程序，找出1~500之間的全部“完備數(shù)”，并將這些數(shù)字添加到一個(gè)下拉框里，當(dāng)從下拉框里選擇某個(gè)數(shù)時(shí)，窗體中某個(gè)區(qū)域顯示該數(shù)的所有因子。保存所有文件，并將所有文件壓縮后提交。PrivateSubCombo1_Click()n=Val(Combo1.Text)Fori=1ToInt(n/2)IfnModi=0ThenPrintiEndIfNextiEndSubPrivateSubCommand1_Click()DimiAsLongDimxAsLongForn=1To500x=0Fori=1ToInt(n/2)IfnModi=0Thenx=x+iEndIfNextiIfx=nThenCombo1.AddItemnNextnEndSub34任務(wù)描述：請編制一個(gè)簡單的通訊簿程序，程序以Access數(shù)據(jù)庫為數(shù)據(jù)源，可以實(shí)現(xiàn)通訊簿中聯(lián)系人的瀏覽功能。窗體文件保存為ITAT41.frm，工程文件保存為ITAT41.vbp，將所有文件壓縮并命名為“SJY.ra