VB期末考試卷(2009-2010-1)a

江南大學(xué)考 程序設(shè)計基礎(chǔ)VB期末試卷 （A） 使用專業(yè)、班級 學(xué)號 姓名 題數(shù)一二三總分得分本題得分一、選擇題每題1分，共計35分；1. 下列有關(guān)對象的敘述中，正確的是（）。A. 對象由屬性、事件和方法構(gòu)成B. 對象的所有屬性既可以在屬性窗口設(shè)置，又可以在程序運行時用賦值語句設(shè)置C. 對象的事件一定就是由VB預(yù)先設(shè)置好的人工干預(yù)的動作D. 對象的方法是對象響應(yīng)某個事件后所執(zhí)行的一段程序代碼2. 在一個多窗體程序中，可以僅將窗體Form2從內(nèi)存中卸載的語句是（）。A. Form2.UnloadB. Unload Form2C. Form2.EndD. Form2.Hide3. 應(yīng)用程序窗體的名稱屬性為Frm1，窗體上有一個命令按鈕，其名稱屬性為Cmd1，窗體和命令按鈕的Click事件過程名分別為（）。A. Form_Click() Command1_Click()B. Frm1_Click() Command1_Click()C. Form_Click() Cmd1_Click()D. Frm1_Click() Cmd1_Click()4. 運行狀態(tài)，在文本框Txtinput中輸入“ABC”時，窗體上顯示（）。Private Sub Txtinput_Change() Print Txtinput.Text;End SubA. AABABCB. ABCC. AD. A AB B ABCC5. 若需要在同一窗體內(nèi)安排兩組相互獨立的單選按鈕（OptionButton），可使用（）控件作容器將它們分開。TextBoxPictureBoxImageFrameA. 或B. 或C. 或D. 或6. 要使一個文本框能顯示多行信息，并具有水平和垂直滾動條，應(yīng)先設(shè)置（）。A. MultiLine屬性置為True， ScrollBar屬性設(shè)置為3B. AutoSize屬性置為True， ScrollBar屬性設(shè)置為TrueC. Alignment屬性置為True， Style屬性設(shè)置為2D. MultiLine屬性置為True， ScrollBar屬性設(shè)置為True7. 設(shè)窗體上有一個標(biāo)簽Label1和一個計時器Timer1，Timer1的Interval屬性被設(shè)置為1000，Enabled屬性被設(shè)置為True，要求程序運行時每秒在標(biāo)簽中顯示一次系統(tǒng)當(dāng)前時間。以下可以實現(xiàn)上述要求的事件過程是（）。A. Private Sub Timer1_Timer() Label1.Caption = True End SubC. Private Sub Timer1_Timer() Label1.Interval = 1 End SubB. Private Sub Timer1_Timer() Label1.Caption = Time$ End Sub D. Private Sub Timer1_Timer() Label1.Text = Time End Sub8. 若看到程序中有以下事件過程，則可以肯定的是，當(dāng)程序運行時（）。Private Sub Click_MouseDown(Button As Integer, Shift As Integer, X As Single, _ Y As Single) If Button = 2 Then Print “VB Program”End SubA. 鼠標(biāo)右鍵按下Command1對象，執(zhí)行此過程B. 鼠標(biāo)右鍵單擊Click對象，執(zhí)行此過程C. 鼠標(biāo)左鍵單擊Click對象，執(zhí)行此過程D. 鼠標(biāo)左鍵按下MouseDown對象，執(zhí)行此過程9. 窗體上有名為Option1的單選按鈕，則以下語句中與If Option1.Value = True Then不等價的是（）。A. If Option1.Value ThenB. If Option1 = True ThenC. If Value = True ThenD. If Option1 Then10. 文本框Text1的KeyDown事件過程如下：Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)End Sub其中參數(shù)KeyCode的值表示的是發(fā)生此事件時（）。A. 是否按下了Shift鍵B. 按下的是哪個數(shù)字鍵C. 所按的鍵盤鍵的鍵碼（掃描碼）D. 所按的鍵盤鍵的Ascii碼11. 窗體上有一個用菜單編輯器設(shè)計的菜單。運行程序，并在窗體上單擊鼠標(biāo)右鍵，則彈出快捷菜單。如圖所示。以下敘述中錯誤的是（）。A. 在設(shè)計“粘貼”菜單項時，在菜單編輯器窗口中設(shè)置“有效”屬性（有“”）B. 菜單中的橫線是在該菜單項的標(biāo)題輸入框中輸入了一個“-”（減號）字符C. 在設(shè)計“選中”菜單項時，在菜單編輯器窗口中設(shè)置“復(fù)選”屬性（有“”）D. 在設(shè)計該彈出菜單的主菜單項時，在菜單編輯器窗口中去掉了“可見”前面的“”12. 執(zhí)行以下語句時，會出現(xiàn)錯誤提示的是（）。A. Print “2b3” + 12.5B. Print “12.5” + 12C. Print “12.5” & 12.5D. Print “2e3” + 12 13. 設(shè)變量D為Date型、A為Integer型、S為String型、L為Long型，下面賦值語句中不能執(zhí)行的是（）。 A. D = #12:30:00 PM# B. A = “3277e1”C. S = Now D. L = “4276D3”14. 數(shù)學(xué)表達(dá)式對應(yīng)的Visual Basic表達(dá)式是（）。A. Sin(30 * 3.14159 / 180) + Sqr(Log(x) + y) / 2 * 3.14159 + Exp(x + y)B. (Sin(30 * / 180) + Sqr(Ln(x) + y) / (2 *+ Exp(x + y)C. Sin(30 * 180 / 3.14159) + Sqr(Log(x) + y) / (2 * 3.14159 + e(x + y)D. (Sin(30 * 3.14159 / 180) + Sqr(Log(x) + y) / (2 * 3.14159 + Exp(x + y)15. 窗體上有一個名稱為Command1的命令按鈕，其事件過程如下：Private Sub Command1_Click() x = VisualBasicProgramming a = Right(x, 11) b = Mid(x, 7, 5) c = MsgBox(a, , b)End Sub運行程序后單擊命令按鈕，以下敘述中錯誤的是（）。A. 信息框的標(biāo)題是BasicB. 信息框中提示信息是programmingC. c的值是函數(shù)的返回值D. MsgBox的使用格式有錯16. 下面的關(guān)系表達(dá)式中，運算結(jié)果為True的是（）。A. Cint(1.5) = Int(1.5)B. Fix(1.5) = Int(1.5)C. Fix(-1.5) = CInt(-1.5)D. Fix(-1.5) = Int(-1.5)17. 運行下面程序，單擊命令按鈕Command1則立即窗口上顯示的結(jié)果是（）。Private Sub Command1_Click()Dim A As Integer, B As Boolean, C As Integer, D As Integer A = 20 / 3 : B = True C = B : D = A + C Debug.Print A, D, A = A+CEnd SubA. 7611B. 6511C. 76FalseD. 運行出錯- -18. 以下Case語句中，能正確描述Y的絕對值大于6的是（）。A. Case Abs(Y)6B. Case -6 To 6C. Case Not(-6 To 6)D. Case Is 619. 可以把變長字符串S中的第一個“ABC”子串，替換成“1234”的語句是（）。A. S=Left(S,InStr(S,ABC)& 1234 & Right(S,Len(S)-InStr(S,ABC)-2)B. Mid(S,InStr(S,ABC),3)=1234C. Mid(S,InStr(S,ABC),4)=1234D. S=Left(S,InStr(S,ABC)-1)& 1234& Right(S,Len(S)-InStr(S,ABC)-2)20. 運行程序產(chǎn)生死循環(huán)時，按（）可以中斷程序運行。A. Ctrl+CB. EscC. Ctrl+BreakD. “停止運行”按鈕21. 閱讀程序：Private Sub Form_Click() a = 0 For j = 1 To 15 a = a + j Mod 3 Next j Print aEnd Sub程序運行后，單擊窗體，輸出的結(jié)果是（）。A. 105B. 1C. 120D. 1522. 以下能夠正確計算n!的程序是（）。A. Private Sub Command1_Click() n = 5: x = 1 Do x = x * i : i = i + 1 Loop While i n Print x End SubC. Private Sub Command1_Click() n = 5: x = 1: i = 1 Do x = x * i : i = i + 1 Loop While i = n Print x End Sub B. Private Sub Command1_Click() n = 5: x = 1: i = 1 Do x = x * i : i = i + 1 Loop While i n Print x End Sub23. 運行程序，單擊Command1，顯示的結(jié)果為（）。Private Sub Command1_Click() Dim a As Integer, b As Integer, c As Integer, i As Integer a = 2: b = 10: c = 1 For i = c To 2 * b Step a a = a + 2 i = i + 1 c = 2 * c If a = 10 Then Exit For b = b - 3 Next i Print i, a, b, cEnd SubA. 11 10 1 16B. 16 14 4 4C. 20 10 -4 6D. 10 8 6 824. 在窗體上畫一個命令按鈕，然后編寫如下事件過程： Private Sub Command1_Click() Dim i, num Randomize Do For i = 1 To 1000 num = Int(Rnd * 100) Print num; Select Case num Case 12 : Exit For Case 58 : Exit Do Case 65, 68, 92 : End End Select Next i Loop End Sub上述事件過程執(zhí)行后，下列描述中正確的是（）。A. Do循環(huán)執(zhí)行的次數(shù)為1000次B. 在For循環(huán)中產(chǎn)生的隨機(jī)數(shù)小于或等于100C. 當(dāng)所產(chǎn)生的隨機(jī)數(shù)為12時結(jié)束所有循環(huán)D. 當(dāng)所產(chǎn)生的隨機(jī)數(shù)為65、68或92時窗體關(guān)閉、程序結(jié)束25. 以下程序功能是根據(jù)用戶輸入的n，求任意n位數(shù)的Armstrong數(shù)(一個n位數(shù)等于其各位數(shù)的n次方之和)。Private Sub command1_click() Dim n As Integer, i As Double, j As Integer, sum As Double, x As String n = Val(InputBox(請輸入數(shù)據(jù)的任意位數(shù)) sum = 0 For i = 10 (n - 1) To 10 n - 1 x = i For j = 1 To Len(x) sum = sum + Val(Mid(x, j, 1) Len(x) Next j If sum = i Then Print i Next iEnd Sub執(zhí)行此事件過程后發(fā)現(xiàn)結(jié)果是錯誤的，為能夠得到正確結(jié)果，應(yīng)做的修改是（）。A. 把sum=0移動到For i循環(huán)內(nèi)，F(xiàn)or j循環(huán)前B. 把x= i改為x= Str(i)C. 把x= i改為x= CStr(i) D. 同時進(jìn)行選項A和C的修改26. 下面有關(guān)數(shù)組的敘述中，不正確的是（）。在過程中用ReDim語句定義的動態(tài)數(shù)組，其下標(biāo)的上下界可以是變量數(shù)組作為形式參數(shù)時，傳遞的是每個數(shù)組元素的值在窗體模塊的通用聲明處可以用Public說明一個全局?jǐn)?shù)組數(shù)組定義語句中可以用負(fù)數(shù)或小數(shù)來指定某一維的維下界或維上界的值A(chǔ). B. C. D. 27. 下列有關(guān)控件數(shù)組的說法中，錯誤的是（）。A. 控件數(shù)組由一組具有相同名稱和相同類型的控件組成，不同類型的控件無法組成控件數(shù)組B. 控件數(shù)組中的所有控件不得具有各自不同的屬性設(shè)置值C. 控件數(shù)組中的所有控件共享同一個事件過程D. 控件數(shù)組中每個元素的下標(biāo)由控件的Index屬性指定28. 在窗體上畫一個命令按鈕，其名稱為Command1，然后編寫如下代碼：Private Sub Form_Click() Dim a , S As Integer, i S = 0 a=Array(1,3,5,7,9,11,13,15,17,19,21,23) For Each i In a If i / 3 i 3 Then S = S + i Next Print S; a(2)End Sub程序運行后，單擊命令按鈕，其輸出結(jié)果是（）。A. 3 3B. 24 5C. 48 3D. 96 529. 在窗體上畫一個名稱為Text1的文本框和一個名稱為Command1的命令按鈕，然后編寫如下事件過程：Private Sub Command1_Click() Dim array1(10, 10) As Integer Dim i As Integer, j As Integer For i = 2 To 3 For j = 1 To 2 array1(i, j) = InputBox(請輸入數(shù)據(jù)) Next j Next i Text1.Text =array1(3, 1) + array1(3, 4) End Sub程序運行后，單擊命令按鈕，在輸入對話框中依次輸入2、4、6、8，則在文本框中顯示的值是（）。A. 2 B. 4C. 6 D. 830. 以下關(guān)于過程及過程參數(shù)的描述中，錯誤的是（）。A. 過程的參數(shù)可以是控件名稱B. 調(diào)用過程時使用的實參的個數(shù)應(yīng)與過程形參的個數(shù)相同C. 只有函數(shù)過程能夠?qū)⑦^程中處理的信息返回到調(diào)用程序中D. 窗體可以作為過程的參數(shù)31. 以下關(guān)于變量作用域的敘述中，正確的是（）。A. 過程運行結(jié)束后，過程的靜態(tài)變量的值仍然保留，所以靜態(tài)變量生命周期是整個模塊B. 模塊級變量只能用Dim語句聲明C. 窗體中凡用Private聲明的變量只能在某個指定的過程中使用D. 當(dāng)不同作用域的同名變量發(fā)生沖突時，優(yōu)先訪問局限性小的變量32. 在窗體模塊代碼窗口的通用聲明處，可以使用（）語句說明數(shù)組。 Public A(10) As Integer Dim A(10) As Integer Private A(10) As Integer Static A(10) As IntegerA. B. C. D. 33. 若在模塊中用Private Function Fun(A As Single, B As Integer) As Integer定義了函數(shù)Fun。調(diào)用函數(shù)Fun的過程中定義了i、j和k三個Integer型變量，則下列語句中不能正確調(diào)用函數(shù)Fun的語句是（）。A. Fun 3.14, jB. K = Fun(“24”, “35”)C. Call Fun(i, 365)D. Fun (i), (j)34. 設(shè)有如下通用過程：Public Function Fun(xStr As String) As String Dim tStr As String, strL As Integer tStr = strL = Len(xStr) i = strL / 2 Do While i Val(D(j) Then temp = D(i) : D(i) = D(j) : D(j) = temp End If Next NextEnd SubPrivate Sub Insert(ByVal e As Integer, C) Dim j As Integer, k As Integer For j = LBound(C) To UBound(C) If C(j) e Then （23） Next j （24） For k = UBound(C) To j + 1 Step -1 （25） Next k C(k) = eEnd Sub本題得分三、改錯題每個出錯點3分，共計15分；說明：不能增刪語句行和調(diào)整語句位置；寫出出錯點所在的行號得1分，修改正確得2分本程序的功能是生成一個n行3列的數(shù)組，并在多行文本框中輸出。n通過InputBox函數(shù)輸入，數(shù)組第一列元素為隨機(jī)生成的1099之間的整數(shù)，第二列元素是第一列相應(yīng)元素的逆序數(shù)，第三列是第一、二列對應(yīng)元素的最大公約數(shù)。行號程序代碼1.Option Explicit2.Dim n As Integer, a() As Integer3.Private Sub Command1_Click()4. Dim i As Integer, n As Integer5. n = InputBox(輸入n:, , 3)6. Dim a(1 To n, 1 To 3)7. For i = 1 To n8. a(i, 1) = Int(Rnd * 90) + 109. a(i, 2) = nx(a(i, 1)10. a(i, 3) = gcd(a(i, 1), a(i, 2)11. Next i12.End Sub13.Private Sub Command2_Click()14. Dim i As Integer, j As Integer15. Text1 = 運行結(jié)果是: & vbCrLf16. For i = 1 To n17. For j = 1 To 318. Text1 = Text1 & Right( & Str(a(i, j), 3)19. Next j20. Text1 = Text1 & vbCrLf21. Next i22.End Sub23.Function nx(x As Integer) As Integer24. nx = (x Mod 10) * 10 + x / 1025.End Function26.Function gcd(a As Integer, b As Integer) As Integer27. Dim r As Integer28. Do29. r = a Mod b30. a = b31. b = r32. Loop Until r = 033. gcd(a,b) = b34.End Function程序設(shè)計基礎(chǔ)VB期末試卷（答卷紙） 使用專業(yè)、班級 學(xué)號 姓名 題數(shù)一二三總分得分本題得分一、選擇題每題1分，共計35分；..3.34.35.本題得分二、填空題每空2分，共計50分；(1).(2).(3).(4).(5).(6).(7).(8).(9).(10).(11).(12).(13).(14).(15).(16).(17).(18).(19).(20).(21).(22).(23).(24).(25).本題得分三、改錯題每個出錯點3分，共計15分；說明：寫出出錯點所在的行號得1分，修改正確得2分行號該行修改正確后的完整代碼程序設(shè)計基礎(chǔ)VB期末試卷（A答案） 一、選擇題每題1分，共計35分；1. A2. B3. C4. A5. C6. A7. B8. B9. C10. C11. A12. A13. B14. D15. D16. B17. C18. D19. D20. C21. D22. C23. A24. D25. D26. A27.