第三階段練習題

1、第二階段練習題一、選擇題1若有數組說明語句為：Dim a(-3 to 8)，則數組a包含元素的個數是 A. 5B. 8C. 11D. 122. 若有數組說明語句：Dim a() As Integer，則a被定義為 A.定長數組B.可調數組C.靜態(tài)數組D.可變類型數組3.若有數組說明語句：Dim t(1 to 10) As Variant，貝U a被定義為A.定長數組B.可調數組C.靜態(tài)數組D.可變類型數組one , two , Three )B . Sub 過程、Function 過程和 Property 過程D. Sub過程、函數過程和通用過程B. 定要有End Function語句D.定要

2、指定其類型B. 定要有End Function語句D .一定要指明它的存儲類別Sub過程的最主要的特點是。A. StaticB. PublicC. Private D. Sub14. VB的模塊分為三類，它們是 A .子程序模塊、函數模塊、窗體模塊B .窗體模塊、過程模塊、標準模塊A. 12B.15C.16D.206.按照VB默認規(guī)定,數組聲明Dim(2,2,5)共有兒素。A. 45B.20C.9D.547.如下數組聲明語句，正確的。A. Dim a3,4AsIn tegerB.Dim a(3,4) As In tegerC. Dima(n,n)AsIn tegerD .Dim a(3 4)

3、As In teger&使用過程是為了。A .使程序模塊化B .使程序易于閱讀C .提高程序運行速度4下面選項中，錯誤的是 。A. Dim s As varia nt:s=Array(B. Dim b:b = Arrayt(1,2,3)C. Dim b As In teger:b=Array(1,2,3)D. Dim b As varian:t:b=Array(1,2,3)5.設有數組說明語句：Dim a(-1 to 2,-2 to 2),則數組a中元素的個數是 D .便于系統(tǒng)的編譯9. VB的過程有三種，它們是 A .事件過程、子過程和函數過程C.事件過程、函數過程和屬性過程10.

4、Sub過程的定義。A .一定要有虛參C. 一定要有過程的名稱11. Function過程的定義 。A .一定要有虛參C .一定要有As類型語句12. Function過程有別于A. Function過程一定要有虛參，而Sub過程可以沒有虛參B. Function過程的終端語句是 End Function，而Sub過程的終端語句是 End Sub。C. Function過程用于計算函數值，而Sub過程用于改變屬性值D. Function過程要返回函數值，而Sub過程沒有數值返回C.子程序模塊、標準模塊、類模塊D .窗體模塊、標準模塊、類模塊13. 要定義一個過程為局部變量，應使用關鍵字。15.

5、過程級變量屬于 。A .全局變量B.靜態(tài)變量C.局部變量D .變體變量16關于過程調用，正確的是 。A .過程要用Call語句調用B. Sub過程一定要用 Call語句調用C.過程都可以用賦值語句的形式調用D 只要寫上過程名并給出實參就能調用過程。17.設已定義函數過程f，它有三個實型傳值參數；設 a, b和c為實型變量，則調用該函數的正確語句為。A. f(a,a+b)B.f(a+b,b+c)C. f(a+b,b+c,c+a)D. f a+b,b+c,c+a18.在過程定義中用表示形參的傳值。A. VarB .ByDefC. ByValD.Value19.若已編寫了一個Sort子過程，在該工程

6、中有多個窗體，為了方便地調用Sort子過程,應該將過程放在中。A .窗體模塊B.標準模塊C .類模塊D .工程20.在過程中定義的變量，若希望在離開該工程后，還能保存過程中局部變量的值，則應使 用關鍵字在過程定義局部變量。A . DimB . PrivateC. PublicD. Static二、填空題1. 同一數組中的元素具有相同的1 和 2。2. 用于引用數組特定元素的數字稱為元素的 3。3. 若要定義一個元素為整型數據的二維數組a,且第一維的下標從 0到5,第二維下標從-3到6,則數組說明語句為4。4. 數組元素默認初始值為 5。5. Option Base可以設置下限為 0或1,并將其

7、放置在6 里。6. 使用關鍵字To可以設置數組的上限和下限，使用To設置的界限不受7 影響。7. 數組元素個數可以改變的數組稱為8,數組元素可以存放不同類型數據的數組稱為9。1011屬性指定。12。&控件數組是由一組類型和名字相同的控件組成，共享9. 控件數組中的每個控件都有唯一的下標，下標值由10. 判斷一個變量是否為數組，可以使用函數11 .只在定義它的過程內能夠識別的變量稱為 1312. 從一個 Sub過程將控制返回給調用者的兩種方法是14 和 1513. VB函數用于產生偽隨機數。17關鍵字聲明。19和 2021中都可以調用該過程。14. 要使過程里的一個局部變量在調用之前保持

8、其值，必須使用15. 一個 VB應用程序可以包括的三種模塊是1816. 函數過程定義中至少有一個賦值語句把表達式的值賦給17. 若模塊中以關鍵字Public定義子過程，則在 2218. 每一個用標識符定義的變量、常量、過程都有一個有效范圍，這個范圍稱為標識符 的23。19. 在VB中，過程定義中有兩種傳遞形式的參數：一種是24，稱為傳值調用,另一種是 25，稱為傳址調用。20若窗體模塊或標準模塊中以關鍵字Private定義函數過程，則該函數過程只能在26中 使用。三、程序填空題1隨機產生6位學生的分數(分數范圍1100)，存放在數組a中，以每2分為一個“ * ”顯 示，如圖所示。請?zhí)顚懗绦蚩瞻?/p>

9、處使程序完整。Private Sub Comma nd1_Click()Dim a(1 To 6)Fori = 1 To 6a(i) = 1Print 2Next iEnd SubForal匚|灰"|噸：#：*除草*電章眾就*電*屮球童*電廉眾*耳電丸*獄草林直(1 )- 71*寓覃*璋塔覃和事寓當常耳寓當和事當利耳寓當*耳址(2 )= 54京就*來章*“水盤丸朮術就戀*卅就！術*彈末玳索*色3 )= 58( 4 )= 29獻暮車対沖事電出術卓巾：*術窗:m 5 )- 31*富事當昭常嵐常常常當 ：事*當樓常常當案常常萼電案*耳*器當常當案常常期當當常軽& 二T0Comm a

10、nd!2輸出大小可變的正文形圖案，如圖所示，最外圈是第一層，要求每層上用的數字與層數 相同。請?zhí)顚懗绦蚩瞻滋幨钩绦蛲暾?。Option Base 1Private Sub Form_Click()Dim a()n = InputBox("輸入 n")3For i = 4For j = i To n - i + 1For k = i To n - i + 15Next kNext jNext iFor i = 1 To nForj = 1 To nPrint Tab(j * 3); a(i, j);Next j6Next iEnd Sub3在一維數組中利用移位的方法顯示如圖所示

11、的結果。請?zhí)顚懗绦蚩瞻滋幨钩绦蛲暾?。Private Sub Form_Click()Dim a(1 To 7)For i = 1 To 7a(i) = i: Print a(i);Next iPrintFor i = 1 To 7t =7For j = 6 To 1 Step -18Next j9Forj = 1 To 7Print a(j);Next jPrintNext iEnd Sub4下面的程序是將輸入的一個數插入到按遞減的有序數列中，插入后使該序列仍有序。請 填寫程序空白處使程序完整。Private Sub Form_Click()Dim a, i%, n%, m%a = Array

12、(19, 17, 15, 13, 11, 9, 7, 5, 3, 1)n = UBou nd(a)ReDim 10m = Val(lnputBox("輸入欲插入的數")For i = UBound(a) - 1 To 0 Step -1If m >= a(i) Then11If i = 0 The n a(i) = mElse12Exit ForEnd IfNext iFor i = 0 To UBou nd(a)Print a(i)Next iEnd Sub5下列程序功能：將數值序列3,6,9,12, ,99存入數組中，并顯示在窗體上(要求每一行上輸出3個)。請?zhí)顚?/p>

13、程序空白處使程序完整。Option Base 1Dim m(33) As In tegerPrivate Sub Comma nd1_Click()Dim n As In tegerm=3n = 0For i = 1 To 33m( i)=13If14The nPrintn = 0End Ifn = n + 1Prin t "M(" & i & ")=" & m(i).NextEnd Sub6以下過程將一個有序數組中重復出現(xiàn)的數進行刪除，刪得只剩下一個。主調程序運行后 結果見下圖所示。請?zhí)顚懗绦蚩瞻滋幨钩绦蛲暾ub p(a()

14、Dim n%, m%, k%n = UBou nd(a)m = nDo While (15)If a(m) = a(m - 1) The nFork=16a(k - 1) = a(k)Next k17End If18LoopReDim Preserve a(n)End SubPrivate Sub Comma nd1_Click()Dim b(), i%b = Array(23, 45, 45, 60, 70, 70, 70, 90)Call p(19)For i = 0 To UBou nd(b)Print b(i);Next iEnd Sub7下列程序功能：求任意兩個正整數的最大公約數，并

15、將這兩個數和它們的最大公約數顯 示在窗體上(要求編一個求最大公約數的函數，然后通過兩個輸入對話框輸入兩個正整數, 并通過調用求最大公約數的函數來求最大公約數)。請?zhí)顚懗绦蚩瞻滋幨钩绦蛲暾?。Function com mon _divisor(ByVal x As In teger, ByVal y As In teger) As In tegerDo While y <> 0num = x Mod yx = yy = numLoop20End FunctionPrivate Sub Comma nd1_Click()Dim a As In teger, b As In tegera

16、= Val(InputBox("請輸入一個正整數 ")b = Val(InputBox("請輸入另一個正整數 ")h = 21PrintPrint Tab(5); a;"和"b;"的最大公約數為：”;hEnd Sub&下面程序是把給定的十六進制整數字符串轉換為十進制數。例如：3E8=> (3*16+15)*16+8=1000。請?zhí)顚懗绦蚩瞻滋幨钩绦蛲暾rivate Sub Form_Click()Dim St As String, Dem As LongSt = "3E8"22Print

17、 St; "=>" DemEnd SubPrivate Function Con vert(S As String) As LongDim n %, i%, SubC As Stri ng * 1, p&n = Len(S)p = 0For i = 1 To nSubC =23Select Case UCase(SubC)Case "0" To "9"p = p * 16 + Val(SubC)Case "A" To "Z"p = p * 16 +24End SelectNext

18、i25End Function四、程序閱讀題1.下列程序運行后，輸出結果為 。Private Sub Comma nd1_Click()Dim aa = Array(1,2, 3, 4, 5, 6, 7)For i = LBound(a) To UBound(a)a(i) = a(i) * a(i)Next iPrint a(i - 1)End Sub2下列程序段運行后，輸出結果為 。Option Base 1Private Sub Comma nd1_Click()Dim a%(3, 3)Fori = 1 To 3Forj = 1 To 3If j > 1 And i > 1 T

19、hena(i, j) = a(a(i - 1, j - 1), a(i, j - 1) + 1Elsea(i, j) = i * jEnd IfPrint a(i, j);" ”;Next jPrintNext iEnd Sub3 下列程序段運行后，輸出結果為 。Option Base 1Private Sub Comma nd1_Click()Dim a, b(3, 3)a = Array(1,2, 3, 4, 5, 6, 7, 8, 9)Fori = 1 To 3Forj = 1 To 3b(i, j) = a(i * j) If (j >= i) The nPrint T

20、ab(j * 3); Format(b(i, j), "#");End IfNext jPrintNext iEnd Sub4.下列程序運行后，輸出結果為 Sub p(ByRef x%, ByVal y%)x = x + 1y = y + 1Print x, yEnd SubPrivate Sub Comma nd1_Click()Dim x%, y%x = 1y = 2Call p(x, y): Print x, yCall p(x, x): Print x, yCall p(y, y): Print x, yCall p(y, x): Print x, yEnd Sub

21、5 下列程序段運行后，輸出結果為 。Public Sub F1( n%, ByVal m%)n = n Mod 10m = m 10End SubPrivate Sub Comma nd1_Click()Dim x%, y%x = 12: y = 34Call F1(x, y)Print x, yEnd Sub6 下面程序運行后輸出的結果是 Private Sub Comma nd1_Click()Print p1(3, 7)End SubPublic Fun ction p1!(x!, n%)If n = 0 The npl = 1ElseIf n Mod 2 = 1 The np1 = x

22、 * p1(x, n 2)Elsep1 = p1(x, n 2) xEnd IfEnd IfEnd Function7 下面程序運行后輸出的結果是 Dim a%, b%, c%Public Sub p1(x%, y%)Dim c%x = 2 * x: y = y + 2: c = x + yEnd SubPublic Sub p2(x%, ByVal y%)Dim c%x = 2 * x: y = y + 2: c = x + yEnd SubPrivate Sub Comma nd1_Click()a = 2: b = 4: c = 6Call p1(a, b)Prin t "a=" a; "b=" b; "c=" cCall p2(a, b)Prin t "