第三階段練習(xí)題

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

2、指定其類型B. 定要有End Function語句D .一定要指明它的存儲(chǔ)類別Sub過程的最主要的特點(diǎn)是。A. StaticB. PublicC. Private D. Sub14. VB的模塊分為三類，它們是 A .子程序模塊、函數(shù)模塊、窗體模塊B .窗體模塊、過程模塊、標(biāo)準(zhǔn)模塊A. 12B.15C.16D.206.按照VB默認(rèn)規(guī)定,數(shù)組聲明Dim(2,2,5)共有兒素。A. 45B.20C.9D.547.如下數(shù)組聲明語句，正確的。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 .提高程序運(yùn)行速度4下面選項(xiàng)中，錯(cuò)誤的是 。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.設(shè)有數(shù)組說明語句：Dim a(-1 to 2,-2 to 2),則數(shù)組a中元素的個(gè)數(shù)是 D .便于系統(tǒng)的編譯9. VB的過程有三種，它們是 A .事件過程、子過程和函數(shù)過程C.事件過程、函數(shù)過程和屬性過程10.

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

5、過程級變量屬于 。A .全局變量B.靜態(tài)變量C.局部變量D .變體變量16關(guān)于過程調(diào)用，正確的是 。A .過程要用Call語句調(diào)用B. Sub過程一定要用 Call語句調(diào)用C.過程都可以用賦值語句的形式調(diào)用D 只要寫上過程名并給出實(shí)參就能調(diào)用過程。17.設(shè)已定義函數(shù)過程f，它有三個(gè)實(shí)型傳值參數(shù)；設(shè) a, b和c為實(shí)型變量，則調(diào)用該函數(shù)的正確語句為。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.若已編寫了一個(gè)Sort子過程，在該工程

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

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

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

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

10、nd!2輸出大小可變的正文形圖案，如圖所示，最外圈是第一層，要求每層上用的數(shù)字與層數(shù) 相同。請?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在一維數(shù)組中利用移位的方法顯示如圖所示

11、的結(jié)果。請?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下面的程序是將輸入的一個(gè)數(shù)插入到按遞減的有序數(shù)列中，插入后使該序列仍有序。請 填寫程序空白處使程序完整。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("輸入欲插入的數(shù)")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下列程序功能：將數(shù)值序列3,6,9,12, ,99存入數(shù)組中，并顯示在窗體上(要求每一行上輸出3個(gè))。請?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以下過程將一個(gè)有序數(shù)組中重復(fù)出現(xiàn)的數(shù)進(jìn)行刪除，刪得只剩下一個(gè)。主調(diào)程序運(yùn)行后 結(jié)果見下圖所示。請?zhí)顚懗绦蚩瞻滋幨钩绦蛲暾?。Sub 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下列程序功能：求任意兩個(gè)正整數(shù)的最大公約數(shù)，并

15、將這兩個(gè)數(shù)和它們的最大公約數(shù)顯 示在窗體上(要求編一個(gè)求最大公約數(shù)的函數(shù)，然后通過兩個(gè)輸入對話框輸入兩個(gè)正整數(shù), 并通過調(diào)用求最大公約數(shù)的函數(shù)來求最大公約數(shù))。請?zhí)顚懗绦蚩瞻滋幨钩绦蛲暾unction 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("請輸入一個(gè)正整數(shù) ")b = Val(InputBox("請輸入另一個(gè)正整數(shù) ")h = 21PrintPrint Tab(5); a;"和"b;"的最大公約數(shù)為：”;hEnd Sub&下面程序是把給定的十六進(jìn)制整數(shù)字符串轉(zhuǎn)換為十進(jìn)制數(shù)。例如：3E8=> (3*16+15)*16+8=1000。請?zhí)顚懗绦蚩瞻滋幨钩绦蛲暾?。Private 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.下列程序運(yùn)行后，輸出結(jié)果為 。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下列程序段運(yùn)行后，輸出結(jié)果為 。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 下列程序段運(yùn)行后，輸出結(jié)果為 。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.下列程序運(yùn)行后，輸出結(jié)果為 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 下列程序段運(yùn)行后，輸出結(jié)果為 。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 下面程序運(yùn)行后輸出的結(jié)果是 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 下面程序運(yùn)行后輸出的結(jié)果是 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 "