vb第一章練習(xí)題

1、第一章 環(huán)境和程序設(shè)計(jì)初步一. 選擇題1. 在 Visual 的集成開發(fā)的環(huán)境中，下面不屬于該環(huán)境編程語(yǔ)言的是（+ C. Pascal D. J#2. 在集成開發(fā)環(huán)境中有兩類窗口，浮動(dòng)窗口和固定窗口，下面不屬于浮動(dòng)窗口的是（A. 工具箱窗口 B. 屬性窗口 C. 立即窗口 D. 窗體窗口3. 在中，在窗體上顯示控件的文本，用（ A ）屬性設(shè)置。A. Text B. Name C. Caption D. Image4. 不論何種控件，共同具有的是什么屬性（ D ）A. Text B. Name C. ForeColor D5. 對(duì)于窗體，可改變窗體的邊框性質(zhì)的屬性是（B. FormBorderS

2、tyle C. Name D. Left6. 若要使標(biāo)簽控件顯示時(shí)不要覆蓋窗體的背景圖案，. TextB）。要對(duì)（C）。D）。A）屬性進(jìn)行設(shè)置。A. BackColor B. BorderStyle C. ForeColor7. 若要使命令按鈕不可操作，要對(duì)（A）屬性進(jìn)行設(shè)置。A. EnabledC. BackColor D. Text8. 要使文本框中的文字不能被修改，應(yīng)對(duì)（D）屬性進(jìn)行設(shè)置。A. Locked B. Visible C. Enabled D. ReadOnly9. 要使當(dāng)前Formi窗體的標(biāo)題欄顯示“歡迎使用”，以下（B）語(yǔ)句是正確的。 歡迎使用”. Text= “歡迎使用

3、” 歡迎使用”.Name= “歡迎使用”10. 當(dāng)運(yùn)行程序時(shí)，系統(tǒng)自動(dòng)執(zhí)行啟動(dòng)窗體的（A）事件過程。A. Load B. Click C. UnLoad D. GotFocusB）。11. 當(dāng)文本框的ScrollBars 屬性設(shè)置了非 None值，卻沒有效果，原因是（A. 文本框沒有內(nèi)容MulitLine 屬性為FalseB. 文本框的C.文本框的MulitLine 屬性為TrueD. 文本框的Locked 屬性 True12要判斷在文本框中是否按了Enter鍵，應(yīng)在文本框的（D）事件中判斷。A. Change B. KeyDown C. Click D. KeyPress13. 在集成環(huán)境中

4、創(chuàng)建應(yīng)用程序時(shí)，除了工具箱窗口、窗體窗口和屬性窗口外，必不可少的 窗口是（ C）。A. 窗體布局窗口B 立即窗口C 代碼窗口D.監(jiān)視窗口C)文件夾14. 當(dāng)創(chuàng)建一個(gè)項(xiàng)目名為“引例”的項(xiàng)目時(shí)，該項(xiàng)目的所有代碼文件將保存在( 下。A . My Documents B . C . 引例 D . WindowsA)。15. 將調(diào)試通過后生成的 .exe 可執(zhí)行文件放到其他機(jī)器上不能運(yùn)行的主要原因是(運(yùn)行的機(jī)器上面無(wú)系統(tǒng)缺少. frm 窗體文件C.該可執(zhí)行文件有病毒D.以上原因都不對(duì)16. 對(duì)初學(xué)者而言 , 調(diào)試程序方便 , 有效的手段是 ( A) 。B.C.D.A.查看資料在可疑的代碼處設(shè)置斷點(diǎn)，逐語(yǔ)

5、句跟蹤通過”立即”窗口顯示變量的值找老師問原因MSDN窗 口17. 當(dāng)需要上下文幫助時(shí) ,選擇要幫助的 “難題” ,然后按住 ( D ) 鍵,就可出現(xiàn) 及顯示所需 “難題”的幫助信息。A .Help B .F10 C .Esc D. F118. 在代碼窗口 , 代碼下方有藍(lán)色波浪線表示 ( B) 。A . 對(duì)代碼設(shè)置了格式B. 編譯錯(cuò)誤C. 邏輯錯(cuò)誤D. 運(yùn)行時(shí)錯(cuò)誤二. 填空題是完全面向?qū)ο蟮某绦蛟O(shè)計(jì)語(yǔ)言，其最大的特點(diǎn)是。引入了框架技術(shù)能讓編程人員不必編寫代碼就可以創(chuàng)建GUI （圖形用戶界面）?？梢暬幊碳夹g(shù)是由一個(gè)或幾個(gè)項(xiàng)目組成程序。解決方案4.當(dāng)特性設(shè)置后，浮動(dòng)窗口將自動(dòng)隱藏。自動(dòng)隱藏5.

6、 當(dāng)進(jìn)入集成環(huán)境， 發(fā)現(xiàn)沒有顯示 “ 工具箱”窗口，應(yīng)選擇 _ 選項(xiàng)，使 “工具箱”窗口顯示，并最好將其窗口的屬性設(shè)置為 箱、可?？坎藛蔚?。 視圖、工具6. 新建項(xiàng)目時(shí)， 要改變默認(rèn) Option 設(shè)置， 應(yīng)對(duì) 文件夾進(jìn)行相應(yīng)選項(xiàng)的選擇。菜單的7對(duì)象屬性是指。對(duì)象的性質(zhì)來(lái)描述和反應(yīng)對(duì)象特征的參數(shù)8對(duì)象的方法是指。對(duì)象的動(dòng)作行為。9在剛建立項(xiàng)目時(shí)，使窗體上的所有控件具有相同的字體格式，應(yīng)對(duì) 屬性進(jìn)行設(shè)置。 Form font10屬性窗口的屬性可以按照順序排列。分類順序、字母順序11.當(dāng)對(duì)命令按鈕的Image屬性裝入.bmp圖形文件后，按鈕上并沒有顯示所需的圖形，原Formi。通過因是對(duì) 屬性設(shè)

7、置為 。 FlatStyle 、 system12 .若已建立了Formi, Form2兩個(gè)窗體，默認(rèn)啟動(dòng)窗體為Formi。通過菜單的的選項(xiàng)卡，可將啟動(dòng)對(duì)象設(shè)置為Form2。項(xiàng)目菜單、屬性、常規(guī)13在文本框中，通過屬性能獲得當(dāng)前插入點(diǎn)所在的位置。SelectionStart14要對(duì)文本框中已有的內(nèi)容進(jìn)行編輯，按下鍵盤上的按鈕， 就是不起作用，原因是設(shè)置了的屬性為 True 。 readlony15在窗體上已建立多個(gè)控件，如 TextBox1 ，Label1 ，Button1 ，若要使程序一運(yùn)行焦點(diǎn)就 定位在 Button1 控件上，應(yīng)對(duì) Button1 控件設(shè)置 tabindex 屬性的值為

8、0全部保存16要同時(shí)保存解決方案中的每個(gè)文件，最方便的方法是單擊工具欄的 按鈕。第二章 語(yǔ)言基礎(chǔ)和順序結(jié)構(gòu)一. 選擇題1在一個(gè)語(yǔ)句內(nèi)寫多條語(yǔ)句時(shí)，每個(gè)語(yǔ)句之間用（B）符號(hào)分隔。A，B.C.D. ;2. 一語(yǔ)句要在下一行繼續(xù)寫，用（C）符號(hào)作為續(xù)行符。C. _3. 下面屬于合法的變量名的是（A ）。A .X_yz B. 123abc C .Integer4. 下面屬于不合法的整常數(shù)的是A .100 B. &O100 C. &H100 D. %1005. 下面屬于合法的字符常數(shù)的是 （ B ）。A .ABC$ B.“ABC” C. ABC6. 下面屬于合法的單精度型變量的是（A）。A. mun ！

9、 B. sum% D. xinte$ D. mm#7. 下面屬于不合法的雙精度常數(shù)的是（D）。A .100#+2表達(dá)式16/4-2人5 * 8/4 Mod 52 的值為（B）。A . 14 B . 49 .數(shù)學(xué)關(guān)系表達(dá)式3W x 10表示成正確的表達(dá)式為（B ） OA 3=x10 B. 3=x AND x=3 OR x10 =x AND =0 AND a+cb+3 OR NOT d 的值是5. I nt、Int、Fix、Fix、Rou nd 的值分別是6. 表達(dá)式 UCase（Mid（“abcdefgh ”， 3， 4）的值是7. 在直角坐標(biāo)系中， x、 y 是坐標(biāo)系中任意點(diǎn)的位置，用 x 和

10、 y 表示在第一象限或第三象限 的表達(dá)是10. 要顯示當(dāng)前機(jī)器內(nèi)日期，函數(shù)為11. 計(jì)算離你畢業(yè)（假定 2008 年 6 月 30 日畢業(yè)）還有多少個(gè)星期的函數(shù)表達(dá)式是12. 表示 s 字符變量是字母字符（大小寫字母不區(qū)分）的邏輯表達(dá)式為1 3.下面程序隨機(jī)產(chǎn)生一個(gè)三位正整數(shù)， 然后逆序輸出， 產(chǎn)生的數(shù)與逆序數(shù)同時(shí)顯示。 例如， 產(chǎn)生 246，輸出是 642。Sub Button1_Click() HandlesDim x, y As Integerx=Int (y=(x Mod 10)*100+x100MsgBox(“ x=” & x & x“ y=” &y)End Sub第三章 選擇結(jié)構(gòu).

11、 選擇題1提供了結(jié)構(gòu)化程序設(shè)計(jì)的三種基本結(jié)構(gòu)，三種基本結(jié)構(gòu)是（D）。A遞歸結(jié)構(gòu)，選擇結(jié)構(gòu)，循環(huán)結(jié)構(gòu)B選擇結(jié)構(gòu)，過程結(jié)構(gòu)，順序結(jié)構(gòu)C過程結(jié)構(gòu)，輸入輸出結(jié)構(gòu)，轉(zhuǎn)向結(jié)構(gòu)D選擇結(jié)構(gòu)，循環(huán)結(jié)構(gòu)，順序結(jié)構(gòu)2按照結(jié)構(gòu)化程序設(shè)計(jì)的要求，下面（C）語(yǔ)句是非結(jié)構(gòu)化程序設(shè)計(jì)語(yǔ)句。Aif 語(yǔ)句 B. For語(yǔ)句C. GoTo語(yǔ)句 D. Select Case語(yǔ)句3.面程序段運(yùn)行后，顯示的結(jié)果是（A)。4A.BCD5Dim x%If x Then MsgBox(x) Else MsgBox(x+1)D.顯示出錯(cuò)信息語(yǔ)句“ If x=1 Then y=1” 下列說法正確的是（ C）。a / ”x=1”a , ?x=1”a

12、 , ?x=1”a / ”x=1”和“ y=1” 均為賦值語(yǔ)句和“ y=1” 均為關(guān)系表達(dá)式為關(guān)系表達(dá)式“ y=1” 為賦值語(yǔ)句為賦值語(yǔ)句“ y=1” 為關(guān)系表達(dá)式面程序段顯示的結(jié)果是（A)。Dim x%x=Int(Rnd)+5Select Case xCase 5MsgBox(優(yōu)秀”If lang4=優(yōu)秀”Then langf=8Case 4MsgBox(良好”Case 3MsgBox(通過”Case ElseMsgBox(不通過”End SelectA. 優(yōu)秀B.良好C.通過D.不通過6. 下面 If 語(yǔ)句統(tǒng)計(jì)滿足性別（ 歲條件的人數(shù)，正確的語(yǔ)句是（sex ）男、職稱D）。duty )為副

13、教授以上、年齡（ age ）小于 40sex=男”And age0 Then n=n+1sex=男”And age40 And duty= “教授”or duty= “副教授” Then n=n+1sex=男”And age40 And Right(duty,2)=教授 Then n=n+1sex=男”And agey, x, y) B. If xy Then Max1=x Else Max1=yC. Max1=(x, y) C. If y=x Then Max1=y Max=x8. 下面三個(gè)程序設(shè)計(jì)段計(jì)算學(xué)生外語(yǔ)附加分：外語(yǔ) 6級(jí)（ lang6 ）為“優(yōu)秀”加 15 分，“通 過”加10分；

14、外語(yǔ)4級(jí)（la ng4 ）為“優(yōu)秀”力P 8分，“通過”加4分。外語(yǔ)附加分只能計(jì) 一次最高的分?jǐn)?shù)。（A）能正確計(jì)算。A. If lang6=優(yōu)秀”Thenlangf=15ElseIf lang6=合格”Thenlangf=10ElseIf lang4= “優(yōu)秀”Thenlangf=8ElseIf lang4=合格”Thenlangf=4End ifB If lang4=合格”Thenlangf=4ElseIf lang4=優(yōu)秀”Thenlangf=8ElseIf lang6=合格”Thenlangf=10ElseIf lang6=優(yōu)秀”Thenlangf=15End ifC. If lang6

15、= “優(yōu)秀”Then langf=15If lang6=合格”Then langf=10If lang4=合格”Then langf=4langf=0D. If lang4=合格”Then langf=4If lang6=Elselangf=0End ifIf lang4=If lang6=優(yōu)秀”Thenlangf=159. 下面語(yǔ)句執(zhí)行后，變量?jī)?yōu)秀”合格”w中的值是Then langf=8Then langf=10B）。w= Choose (Weekday(“2005,5,1 ”),Red” ,“Green” ,“Blue” , “Yellow ” )A. NothingB.Red”C.Gr

16、een”D.“ Yellow ”二. 填空題1當(dāng)C字符串變量中第三個(gè)字符是“IfC”時(shí)，利用 MsgBox顯示“ Yes”，否則顯示“ NO。Then MsgBox( “yas” ) Else MsgBox(“No” ) Mid(c ， 3， 1) =“C”2程序運(yùn)行后輸出的結(jié)果是 x=Int(Rnd)+3If x28 Then y=x2+1If x2=9 The n y=x2-2If x20 ThenMsgBox(ElseMsgBox(右括號(hào)多于左括號(hào)” &count1& “個(gè)” )Dim CountY% , CountC%Dim c As CharEnd IfExit SubEnd IfE

17、nd Sub 該題中統(tǒng)計(jì)括號(hào)個(gè)數(shù)的變量 count1 若在過程內(nèi)聲明，程序會(huì)產(chǎn)生什么結(jié)果5輸入若干個(gè)字符，統(tǒng)計(jì)有多少個(gè)元音字母，有多少個(gè)其他字母，直到按Enter 鍵結(jié)束，顯示結(jié)果，大、小寫不區(qū)分。其中Count Y 中放元音字母?jìng)€(gè)數(shù)， Count C 中放其他字符數(shù)。Sub TextBox1_KeyPress () Handlesc=If “ A” =c And c20y= sqrt(3x)-2當(dāng) 10=x=201/2+|x|當(dāng) x10Sub Button1_Click() Handlesx=Valy=x*x+3*x+2ElseIfTheny=1/2+(x)Elsey=(3*x)-2End

18、IfMsgBox(“ y=” & y)End SubSub Button1_Click() Handlesx=ValSelect Case xCasey=x*x+3*x+2Casey=1/2+(x)Case Elsey=(3*x)-2End SelectMsgBox(“ y=” & y)End Sub 7輸入三角形的三邊 a、b、c 的值，根據(jù)其數(shù)值，判斷能否構(gòu)成三角形。若能，還要顯示 三角形的性質(zhì)：等邊三角形、等腰三角形、直角三角形、任意三角形。Sub Button1_Click() HandlesDim x%, y%, z%x= Val(InputBox(input x” )y= Val(

19、InputBox(input x” )z= Val(InputBox(“t”input x ”)IfThenMsg（ “能構(gòu)成三角形” ）IfThenMsg(是等邊三角形”ThenElseIfMsg（ “是等腰三角形”）ElseIf (x*x+y*y)=z Or (y*y+z*z)=x Or (x*x+z*z)=y ThenMsg(是直角三角形” ）ElseEnd IfElseMsgBox （ “不能構(gòu)成三角形” ）End IfEnd Sub8輸入一個(gè)年份，判斷它是否為閏年，并顯示是否是閏年的有關(guān)信息。判斷閏年的條件是：年份能被 4 整除但不能被 100 整除，或能被 400 整除。同時(shí)請(qǐng)用日

20、期型變量的 IsLeepYear 成員來(lái)驗(yàn)證。Sub Button1_Click() HandlesDim d As Dated=NowIfOrMod 400=0 ThenMsgBox &是閏年” )ElseMsgBox &是平年” )End IfIf () ThenMsgBox &是閏年” )ElseMsgBox &是平年” )End IfEnd Sub第四章循環(huán)結(jié)構(gòu) 一. 選擇題1以下()是正確的 For.Next 結(jié)構(gòu)。x=1 To Step 10Next xx=3 To -3 Step -3Next xx=1 To 10re:.Next xIf i=10 Then GoTo rex=3

21、 To 10 Step 3Next y2. 下列循環(huán)體能正常結(jié)束的是（C）。A. i=5Doi=i+1Loop Until i0D. i=6Doi=i-2Loop Until i=13. 下面程序段的運(yùn)行結(jié)果為（）a ?For i=3 To 1 Step -1&=Space(5-i)For j=1 To 2*i-1Next j&=vbCrLfNext iA. *B. *C.*D. *a*4. 當(dāng)在文本框輸入ABCD四個(gè)字符時(shí)，窗體上顯示是（Sub TextBox1_TextChanged() Handles&=End SubA. ABCD B. AABABCABCD5. 下列程序段不能分別正確

22、顯示1 ！、 2！、 3！、 4！的值的是（） 。A.For i=1 To 4n=1For j=1 To in=n*jNext jMsgBox(n)Next iB.For i=1 To 4For j=1 To in=1n=n*jNext jMsgBox(n)Next iC.n=1For j=1 To 4n=n*jD. n=1j=1MsgBox(n)Next jDo While j=4n=n*jMsgBox(n)j=j+1Loop二. 填空題1要使下列 For 語(yǔ)句循環(huán)執(zhí)行 20 次，循環(huán)變量的初值應(yīng)當(dāng)是：For k=33 To -5 Step -22. 下面程序段顯示個(gè)“ * ”。For i=

23、1 To 5For j=2 To iMsgBox(“* ”)Next jNext i3.下列第 40 句共執(zhí)行了4 次，第 41 句共執(zhí)行了 _12_次。30For j=1 To 12 Step 340For k=6 To 2 Step -241MsgBox(j &” & k)42 Next kABCDEFG變換成43 Next j 4. 輸入任意長(zhǎng)度的字符串，要求將字符順序倒置。例如，將輸入的“GFEDCB”A。Sub Button1_Click() HandlesDim a$, I%, c$, d$, n%a=InputBox$( “輸入字符串” )n=d=”For I=1 Toc=Mid

24、(a,I,1)d=d & cNext IMsgBox(d)End Sub 5找出被 3、 5、 7除，余數(shù)為 1 的最小的 5個(gè)正整數(shù)。Sub Button1_Click() HandlesDim CountN% , n%CountN=0n=1Don=n+1IfThenEnd IfLoopMsgBox(n)countN=CountN+1End Sub6.有個(gè)長(zhǎng)階梯，如果每步跨 2 階最后剩 1 階，如果每步跨 階最后剩 3 階,如果每步跨 5 階最后剩 4 階,如果每步跨 階時(shí)恰好走完,顯示這個(gè)階梯至少要有多少階。3 階最后剩 2 階，如果每步跨 46 階最后剩 5 階，只有當(dāng)每步跨 7利用其

25、肯定是 7 的倍數(shù)這個(gè)條件，然后根據(jù)同時(shí)滿足除 2，3，4，5)的邏輯關(guān)系即可。n 余 m(n=2，3，4， 5，6；m=1，Sub Button1_Click() HandlesDim n%, m%For n=7 To 10000 Step 7If n Mod 2=1 AndThenMsgBox(n)End IfNextEnd Sub8規(guī)定一天只能考一門，先考 列出滿足條件的方案數(shù)。某班在一周中 6 天內(nèi)考三門分別為 x、 y、z 的考試課程，x，后考y,最后考Z最后一門最早周五考。用計(jì)算機(jī)排考試，Sub Button1_Click() HandlesDim x%, y%, z%, n%n=

26、0a ?For x=1 To 4For y=To 5For z=5 To 6IfAnd yz ThenFor i=1 To 7mark=InputBox(輸入第” & i & “位評(píng)委的打分” )&=x & space(9) & y & Space(9) & z & vbCrlfEnd IfNextNextNext滿足條件的方案為； ” & nEnd Sub9某次大獎(jiǎng)賽， 有 7個(gè)評(píng)委打分，以下程序是針對(duì)一名參賽者，輸入7 個(gè)評(píng)委的打分分?jǐn)?shù)，去掉一個(gè)最高分、一個(gè)最低分，求出平均分，為該參賽者的得分。Sub Button1_Click() HandlesDim mark!,aver!,max1!

27、,min1!aver=0If i=1 Thenmax1=mark:ElseIf markmax1 ThenEnd IfEnd IfNext iaver=MsgBox(aver)End Sub第五章 數(shù)組. 選擇題1如下數(shù)組聲明語(yǔ)句中正確的是（B。A. Dim a3,4 As IntegerB. Dim a(3,4) As IntegerC. Dim a3,4 As IntegerC. Dim a(3 4) As Integer2. 如下數(shù)組聲明語(yǔ)句中正確的是（B。A. Dim (9) As Single=1,2,3,4,5,6,7,8,9,10B. Dim a( ) As Single=1,2

28、,3,4,5,6,7,8,9,10C. Dim a( ) As Single=1,a”, “bc”2. ,4,5,6,7,8,9,10D. Dim a(,) As Integer=1,2,3,4,5,6,7,8,9,103.如下數(shù)組聲明語(yǔ)句中，數(shù)組a包含元素的個(gè)數(shù)有（CoDim a(3,0,5)4. 如下程序輸出的結(jié)果是（） oDim a() As Integer=1,2,3,4,5,6,7For i=0 To UBound(a) a(i)a=(i)*a(i)Next iMsgBox(a(i)C.不確定 D. 程序出錯(cuò)For i=1 To 3For j=i To35如下程序輸出的結(jié)果是（） o

29、Sub Button1_Click(. .) HandlesDim i%, j%Dim a( ) As Integer=0,1,2,3,4,5,6,7,8,9,b(3,3) As Integera ?&=Space(i*3)b(i,j)=a(i*j)&=Space(6-Len(b(i,j) & b(i,j)Next j&=vbCrLfNext iEnd SubD. 1 2 3二. 填空題1在一維數(shù)組中利用移位的方法顯示如圖所有的結(jié)果。Sub Button1_Click() HandlesDim a(7) As Integer, i%, t%, j%a ?For i=1 To 7a(i)=i&=

30、a(i) & “ ”Next i &=vbCrLft=For i=1 To 7For j=6 To 1 Step -1Next ja(1)=For j=1 To 7=a(j) &“ ”Next j&=Next iEnd Sub2. 下面程序?qū)σ阎獢?shù)組 a (),刪除數(shù)組中某個(gè)元素。Sub Button1_Click(. .) HandlesDim a() As Integer=1,6,8,3,5,9,10,2,7,4 ,Key%, i%, j%Key=Val(InputBox( “輸入要?jiǎng)h除的值” )For i=0 To UBound(a)IfThenFor j=i+1 To UBound(a

31、)Next jReDimEnd IfMsgBox(刪除完成” )Exit SubNext iMsgBox（ “找到不要?jiǎng)h除的元素”）End Sub3. 矩陣相乘AX B的結(jié)果C矩陣為n X m,即:B為k X m的矩陣,兩個(gè)矩陣能相乘的必要條件是:前一個(gè)矩陣的列數(shù)等于后一個(gè)矩陣的行數(shù)。例如，已知 為 nX k 的矩陣，5 10 155 20350800A=B=10 25C=20 25 3015 308001925Sub Button1_Click() HandlesDim a%(2,3),b%(3,2),c%(2,2),i%, j%, n%, k%n=5For i=1 To 2For j=1

32、To 3a(i,j)=nn=Next jNext ic(i,j)=0For k=1 To 3c(i,j)=c(i,j)+Next k&=c(i,j) & “ ”Next j&=vbCrLfNext iEnd Sub4. 下面的程序是將輸入的一個(gè)數(shù)插入到遞減的有序數(shù)列中，插入后使該序列仍有序。Sub Button1_Click() HandlesDim i% , n% ,m%Dim a() As Integer=9,17,15,13,11,9,7,5,3,1n=UBound(a)ReDimEnd Ifm= Val(InputBox(輸出欲插入的數(shù)” )For i=UBound(a) -1 To

33、Step -1If m=a(i) ThenIf i=0 Then a(i)=mElseExit ForNext iFor i=0 To&=a(i) & “ ”Next iEnd Sub5. 改進(jìn)的冒泡法排序。在教材中已介紹選擇法、冒泡法。上例使用了插入法排序。本例使用改進(jìn)的冒泡法排序， 冒泡法排序在每一輪排序時(shí)將相鄰的兩個(gè)數(shù)比較， 當(dāng)次序不對(duì)就交換位置， 出了內(nèi)循環(huán)，最 大數(shù)已沉底，小數(shù)上??；每一輪僅使沉底的數(shù)確定了位置，有個(gè)n個(gè)數(shù)，外循環(huán)要進(jìn)行 n-1輪排序。為了提高效率， 若在某一輪排序時(shí)，未發(fā)生排序位置交換，說明欲排序的序列已有 序，排序就可以結(jié)束。在程序中增加一個(gè)邏輯變量來(lái)進(jìn)行判斷即可

34、。程序如下：Sub Button1_Click(. .) HandlesDim Tag As Boolean ,n%, j%, i%, t%Dim a( ) As Integer=1,5,6,7,4,13,23,26,31,51n=UBound(a)For i=0 To n-1Tag=FalseFor j=0 To n-1-iIf a(j)a(j+1) Thena(j+1)=tNext jIf Not Tag ThenNext iFor i=0 To UBound(a)&=a(i) & “ ”Next iEnd Sub6. 隨機(jī)產(chǎn)生 15 個(gè)不重復(fù)的 A-Z 之間的字母（包括 A，Z 的大寫字

35、母） ，存放在字符數(shù)組中。實(shí)現(xiàn)的思想是， 每產(chǎn)生一個(gè)字母， 在數(shù)組中查找已產(chǎn)生的字母。 若找到， 剛產(chǎn)生的字母作廢， 重新產(chǎn)生；如果找不到，則產(chǎn)生字母放入數(shù)組中。Sub Button1_Click() HandlesDim s(14) As Char ,c As Char, n%, j%s(0)=Chr(Int(Rnd()*26+65)For n=1 To 14re: c=For j=0 To若找到有重復(fù)字母 , 重新產(chǎn)生If s(j)=c ThenNext js(n)=沒有重復(fù)的加入數(shù)組中Next nFor j=0 To 14&=s(j) & “ ”Next jEnd Sub7. 隨機(jī)產(chǎn)生1

36、5個(gè)A-J的大寫字母，按字母降序排序后，將連續(xù)出現(xiàn)的字母用壓縮的形式顯 示。例如，連續(xù)5個(gè)H字母顯示為5*H，如圖所示。數(shù)組 a ()用于存儲(chǔ)隨機(jī)產(chǎn)生字母。Sub Button1_Click()Const N=14Dim a(N) As Char ,c As CharDim count%, i%, k%For i=0 To Na(i)=&=a(i) & “ ”Next i&=vbCrLfFor i=0 To N-1k=iFor j=i+1 To NIf a(j)a(k) ThenNext j:a(k)=cc=a(i) :Next iFor i=0 To N輸出排序的結(jié)果&=a (i) &a ?

37、Next i&=vbCrLfi=0Do While i=N壓縮顯示相同元素count=1If iN Then j=i+1Do While a(i)=a(j)count=If jN Then j=j+1 Else Exit DoLoopIf count=1 Then&=a(i) & “ ”Else&=End Ifi=LoopEnd Sub第六章 過 程 一選擇題1設(shè)有如下說明：Public Sub F1(ByRef n%)n=3 * n+4End SubSub Button1_Click () HandlesDim n%, m% n=3 m=4調(diào)用 F1 語(yǔ)句End Sub則在 Button1_

38、Click 事件中有效的調(diào)用語(yǔ)句是（） 。A. F1(n + m) (m) (5) (m,n) 2. 下面子過程語(yǔ)句說明最合理的是（） 。A. Sub f1(ByVal n%()B. Sub f1(ByRef n%) As IntegerC. Function f1% (ByRef f1%) C. Function f1(ByVal n%)3. 要想從子過程調(diào)用后返回兩個(gè)結(jié)果，下面子過程語(yǔ)句說明合法的是（）A. Sub f2(ByVal n%, ByVal m%) B. Sub f1(ByRef n%, ByVal m%)B. Sub f1(ByRef n%, ByRef m%) D. Sub

39、 f1(ByVal n%, ByRef m%)則應(yīng)使用4. 在過程中定義的變量， 若希望在離開該過程后還能保存過程中的局部變量的值， （）關(guān)鍵字在過程中定義過程級(jí)變量。5. 下面過程運(yùn)行后顯示的結(jié)果是（） 。Public Sub F1(ByRef n%, ByVal m%)n=n Mod 10m=m10End SubSub Button1_Click(. .) Handles Button1_ClickDim x%, y%x=12: y=34Call F1(x, y)MsgBox(x & “ ” & y)End SubA. 2 34B. 12 34 3 36. 如下程序，運(yùn)行的結(jié)果是（） 。S

40、ub Button1_Click() HandlesMsgBox(p1,7)End SubPublic Function p1!(ByVal x!, ByVal n%)If n=0 Thenp1=1E_se_fMod 2巴 ThenPHX*P(X 22)E_sepl HP 1(X7 n一2)xEnd FunctionDim a%y b%c%() opub=c Sub p二ByRefx%&yRefy%)Dim cfxh2*x- yHy+2 - CHX+yEnd Subpub=c Sub p2(ByRef x%&yva一 y%)Dim cfxh2*x- yHy+26HX+yEnd SubSub B

41、u存ordlc-ick() Hand-esca=PHP b)MsgBox (aa=& a & “ b=” & b &c=”& c)Call p2(a, b)MsgBox (aa=& a & “ b=” & b &c=”& c)End SubA. a=2 b=4 c=6B. a=4 b=6 c=10a=4 b=6 c=10a=8 b=8 c=16C. a=4 b=6 c=6D. a=4 b=6 c=14a=8 b=6 c=6a=8 b=8 c=68如下程序，運(yùn)行后各變量的值依次為（）Public Sub Proc (ByRef a%()Static i%Doa(i)=a(i)+a(i+1) i=i+1Loop While i2End SubSub Button1_Click() HandlesDim m%, i%, x%(10)For i=0 To 4x(i)=i+1Next iFor i=1 To 2Call Proc(x)Next iFor i=0 To 4MsgBox(x(i)Nex