2004年9月計算機等級考試二級VB筆試試卷及答案

　　
　　(18) 以下敘述中錯誤的是　　
　　A) 在KeyPress事件過程中不能識別鍵盤的按下與釋放　　
　　B) 在KeyPress事件過程中不能識別回車鍵　　
　　C) 在KeyDown和KeyUp事件過程中,將鍵盤輸入的"A"和"a"視作相同的字母　　
　　D) 在KeyDown和KeyUp事件過程中,從大鍵盤上輸入的"1"和從右側小鍵盤上輸入的"1"被視作不同的字符　　
　　(19) 執(zhí)行如下兩條語句，窗體上顯示的是　　
　　a=9.8596　　
　　Print Format(a,"$00,00.00")　　
　　A) 0,009.86 B) $9.86 C) 9.86 D) $0,009.86　　
　　(20) 在窗體上畫一個名稱為CommandDialog1的通用對話框，一個名稱為Command1的命令按鈕。然后編寫如下事件過程：
　　　　Private Sub Command1_Click()　　
　　CommonDialog1.FileName =""　　
　　CommonDialog1.Filter="All file|*.*|(*.Doc)|*.Doc|(*.Txt)|*.Txt"　　
　　CommonDialog1.FilterIndex=2
　　　　CommonDialog1.DialogTitle="VBTest"　　
　　CommonDialog1.Action=1　　
　　End Sub　　
　　對于這個程序，以下敘述中錯誤的是　　
　　A) 該對話框被設置為“打開”對話框　　
　　B) 在該對話框中指定的默認文件名為空　　
　　C) 該對話框的標題為VBTest　　
　　D) 在該對話框中指定的默認文件類型為文本文件(*.Txt)　　
　　(21) 設一個工程由兩個窗體組成，其名稱分別為Form1和Form2，在Form1上有一個名稱為Command1的命令按鈕。窗體Form1的程序代碼如下：　
　　Private Sub Command1_Click()　
　　Dim a As Integer　
　　a=10　　
　　Call g(Form2,a)　　
　　End Sub　　
　　Private Sub g(f As Form,x As Integer)　　
　　y=IIf(x>10,100,-100)　　
　　f,Show　　
　　f.Caption=y　　
　　End Sub
　　　　運行以上程序，正確的結果是　　
　　A) Form1的Caption屬性值為100　　
　　B) Form2的Caption屬性值為-100　　
　　C) Form1的Caption屬性值為-100　　
　　D) Form2的Caption屬性值為100　　
　　(22) 在窗體上畫一個名稱為Command1的命令按鈕，并編寫如下程序：　　
　　Private Sub Command1_Click()　　
　　Dim x As Integer　
　　Static y As Integer　　
　　x=10　　
　　y=5　　
　　Call f1(x,y)　　
　　Print x,y　　
　　End Sub　　
　　Private Sub f1(ByRef x1 As Integer, y1 As Integer)　　
　　x1=x1+2
　　　　y1=y1+2　　
　　End Sub　　
　　程序運行后，單擊命令按鈕，在窗體上顯示的內(nèi)容是　　
　　A) 10 5 B) 12 5 C) 10 7 D) 12 7　　
　　(23) 設有如下程序　　
　　Option Base 1　　
　　Private Sub Command1_Click()　　
　　Dim a(10) As Integer　　
　　Dim n As Integer　　
　　n=InputBox("輸入數(shù)據(jù)")　　
　　If n<10 Then
　　　　Call GetArray(a,n)　　
　　End If
　　　　End Sub　　
　　Private Sub GetArray(b() As Integer,n As Integer)　　
　　Dim c(10) As Integer　　
　　j=0　　　　For i=1 To n　　
　　b(i)=CInt(Rnd()*100)　　
　　If b(i)/2=b(i)\2 Then　　
　　j=j+1　　
　　c(j)=b(i)　　
　　End If　　
　　Next　　
　　Print j　　
　　End Sub　　
　　以下敘述中錯誤的是　　
　　A) 數(shù)組b中的偶數(shù)被保存在數(shù)組c中　　
　　B) 程序運行結束后,在窗體上顯示的是c數(shù)組中元素的個數(shù)　　
　　C) GetArray過程的參數(shù)n是按值傳送的　　
　　D) 如果輸入的數(shù)據(jù)大于10，則窗體上不顯示任何顯示　　
　　(24) 在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下事件過程：　　
　　Option Base 1　　
　　Private Sub Command1_Click()　　
　　Dim a　　
　　a= Array(1,2,3,4,5)　　
　　For i=1 To UBound(a)　　
　　a(i) = a(i)+i-1　　
　　Next　　
　　Print a(3)　　
　　End Sub　　
　　程序運行后，單擊命令按鈕，則在窗體上顯示的內(nèi)容是　　
　　A) 4 B) 5 C) 6 D) 7