vb第一章練習題

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

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

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

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

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

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

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

8、0全部保存16要同時保存解決方案中的每個文件，最方便的方法是單擊工具欄的 按鈕。第二章 語言基礎和順序結構一. 選擇題1在一個語句內寫多條語句時，每個語句之間用（B）符號分隔。A，B.C.D. ;2. 一語句要在下一行繼續(xù)寫，用（C）符號作為續(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表達式16/4-2人5 * 8/4 Mod 52 的值為（B）。A . 14 B . 49 .數(shù)學關系表達式3W x 10表示成正確的表達式為（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. 表達式 UCase（Mid（“abcdefgh ”， 3， 4）的值是7. 在直角坐標系中， x、 y 是坐標系中任意點的位置，用 x 和

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

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

12、 , ?x=1”a / ”x=1”和“ y=1” 均為賦值語句和“ y=1” 均為關系表達式為關系表達式“ y=1” 為賦值語句為賦值語句“ y=1” 為關系表達式面程序段顯示的結果是（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 語句統(tǒng)計滿足性別（ 歲條件的人數(shù)，正確的語句是（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. 下面三個程序設計段計算學生外語附加分：外語 6級（ lang6 ）為“優(yōu)秀”加 15 分，“通 過”加10分；

14、外語4級（la ng4 ）為“優(yōu)秀”力P 8分，“通過”加4分。外語附加分只能計 一次最高的分數(shù)。（A）能正確計算。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. 下面語句執(zhí)行后，變量優(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當C字符串變量中第三個字符是“IfC”時，利用 MsgBox顯示“ Yes”，否則顯示“ NO。Then MsgBox( “yas” ) Else MsgBox(“No” ) Mid(c ， 3， 1) =“C”2程序運行后輸出的結果是 x=Int(Rnd)+3If x28 Then y=x2+1If x2=9 The n y=x2-2If x20 ThenMsgBox(ElseMsgBox(右括號多于左括號” &count1& “個” )Dim CountY% , CountC%Dim c As CharEnd IfExit SubEnd IfE

17、nd Sub 該題中統(tǒng)計括號個數(shù)的變量 count1 若在過程內聲明，程序會產生什么結果5輸入若干個字符，統(tǒng)計有多少個元音字母，有多少個其他字母，直到按Enter 鍵結束，顯示結果，大、小寫不區(qū)分。其中Count Y 中放元音字母個數(shù)， Count C 中放其他字符數(shù)。Sub TextBox1_KeyPress () Handlesc=If “ A” =c And c20y= sqrt(3x)-2當 10=x=201/2+|x|當 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ù)值，判斷能否構成三角形。若能，還要顯示 三角形的性質：等邊三角形、等腰三角形、直角三角形、任意三角形。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（ “能構成三角形” ）IfThenMsg(是等邊三角形”ThenElseIfMsg（ “是等腰三角形”）ElseIf (x*x+y*y)=z Or (y*y+z*z)=x Or (x*x+z*z)=y ThenMsg(是直角三角形” ）ElseEnd IfElseMsgBox （ “不能構成三角形” ）End IfEnd Sub8輸入一個年份，判斷它是否為閏年，并顯示是否是閏年的有關信息。判斷閏年的條件是：年份能被 4 整除但不能被 100 整除，或能被 400 整除。同時請用日

20、期型變量的 IsLeepYear 成員來驗證。Sub Button1_Click() HandlesDim d As Dated=NowIfOrMod 400=0 ThenMsgBox &是閏年” )ElseMsgBox &是平年” )End IfIf () ThenMsgBox &是閏年” )ElseMsgBox &是平年” )End IfEnd Sub第四章循環(huán)結構 一. 選擇題1以下()是正確的 For.Next 結構。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)體能正常結束的是（C）。A. i=5Doi=i+1Loop Until i0D. i=6Doi=i-2Loop Until i=13. 下面程序段的運行結果為（）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. 當在文本框輸入ABCD四個字符時，窗體上顯示是（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 語句循環(huán)執(zhí)行 20 次，循環(huán)變量的初值應當是：For k=33 To -5 Step -22. 下面程序段顯示個“ * ”。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. 輸入任意長度的字符串，要求將字符順序倒置。例如，將輸入的“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個正整數(shù)。Sub Button1_Click() HandlesDim CountN% , n%CountN=0n=1Don=n+1IfThenEnd IfLoopMsgBox(n)countN=CountN+1End Sub6.有個長階梯，如果每步跨 2 階最后剩 1 階，如果每步跨 階最后剩 3 階,如果每步跨 5 階最后剩 4 階,如果每步跨 階時恰好走完,顯示這個階梯至少要有多少階。3 階最后剩 2 階，如果每步跨 46 階最后剩 5 階，只有當每步跨 7利用其

25、肯定是 7 的倍數(shù)這個條件，然后根據(jù)同時滿足除 2，3，4，5)的邏輯關系即可。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 天內考三門分別為 x、 y、z 的考試課程，x，后考y,最后考Z最后一門最早周五考。用計算機排考試，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 & “位評委的打分” )&=x & space(9) & y & Space(9) & z & vbCrlfEnd IfNextNextNext滿足條件的方案為； ” & nEnd Sub9某次大獎賽， 有 7個評委打分，以下程序是針對一名參賽者，輸入7 個評委的打分分數(shù)，去掉一個最高分、一個最低分，求出平均分，為該參賽者的得分。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ù)組聲明語句中正確的是（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ù)組聲明語句中正確的是（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ù)組聲明語句中，數(shù)組a包含元素的個數(shù)有（CoDim a(3,0,5)4. 如下程序輸出的結果是（） 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. 程序出錯For i=1 To 3For j=i To35如下程序輸出的結果是（） 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ù)組中利用移位的方法顯示如圖所有的結果。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. 下面程序對已知數(shù)組 a (),刪除數(shù)組中某個元素。Sub Button1_Click(. .) HandlesDim a() As Integer=1,6,8,3,5,9,10,2,7,4 ,Key%, i%, j%Key=Val(InputBox( “輸入要刪除的值” )For i=0 To UBound(a)IfThenFor j=i+1 To UBound(a

31、)Next jReDimEnd IfMsgBox(刪除完成” )Exit SubNext iMsgBox（ “找到不要刪除的元素”）End Sub3. 矩陣相乘AX B的結果C矩陣為n X m,即:B為k X m的矩陣,兩個矩陣能相乘的必要條件是:前一個矩陣的列數(shù)等于后一個矩陣的行數(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. 下面的程序是將輸入的一個數(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. 改進的冒泡法排序。在教材中已介紹選擇法、冒泡法。上例使用了插入法排序。本例使用改進的冒泡法排序， 冒泡法排序在每一輪排序時將相鄰的兩個數(shù)比較， 當次序不對就交換位置， 出了內循環(huán)，最 大數(shù)已沉底，小數(shù)上??；每一輪僅使沉底的數(shù)確定了位置，有個n個數(shù)，外循環(huán)要進行 n-1輪排序。為了提高效率， 若在某一輪排序時，未發(fā)生排序位置交換，說明欲排序的序列已有 序，排序就可以結束。在程序中增加一個邏輯變量來進行判斷即可

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. 隨機產生 15 個不重復的 A-Z 之間的字母（包括 A，Z 的大寫字

35、母） ，存放在字符數(shù)組中。實現(xiàn)的思想是， 每產生一個字母， 在數(shù)組中查找已產生的字母。 若找到， 剛產生的字母作廢， 重新產生；如果找不到，則產生字母放入數(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若找到有重復字母 , 重新產生If s(j)=c ThenNext js(n)=沒有重復的加入數(shù)組中Next nFor j=0 To 14&=s(j) & “ ”Next jEnd Sub7. 隨機產生1

36、5個A-J的大寫字母，按字母降序排序后，將連續(xù)出現(xiàn)的字母用壓縮的形式顯 示。例如，連續(xù)5個H字母顯示為5*H，如圖所示。數(shù)組 a ()用于存儲隨機產生字母。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輸出排序的結果&=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設有如下說明：Public Sub F1(ByRef n%)n=3 * n+4End SubSub Button1_Click () HandlesDim n%, m% n=3 m=4調用 F1 語句End Sub則在 Button1_

38、Click 事件中有效的調用語句是（） 。A. F1(n + m) (m) (5) (m,n) 2. 下面子過程語句說明最合理的是（） 。A. Sub f1(ByVal n%()B. Sub f1(ByRef n%) As IntegerC. Function f1% (ByRef f1%) C. Function f1(ByVal n%)3. 要想從子過程調用后返回兩個結果，下面子過程語句說明合法的是（）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%)則應使用4. 在過程中定義的變量， 若希望在離開該過程后還能保存過程中的局部變量的值， （）關鍵字在過程中定義過程級變量。5. 下面過程運行后顯示的結果是（） 。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. 如下程序，運行的結果是（） 。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如下程序，運行后各變量的值依次為（）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