全國計算機等級考試二級vb筆試試卷2004年9月-在線瀏覽
2025-03-03 01:31本頁面
【正文】 a= Print Format(a,$00,) A．0, B．$ C． D．$0, (20)在窗體上畫一個名稱為CommandDialog1的通用對話框，一個名稱為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%26gt。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)+i1 Next Print a(3) End Sub 程序運行后，單擊命令按鈕，則在窗體上顯示的內容是 A．4 B．5 C．6 D．7 (25)閱讀程序 Option Base 1 Private Sub Form_Click() Dim arr,Sum Sum = 0 arr = Array(1,3,5,7,9,11,13,15,17,19) For i=1 To 10 If arr(i)/3 = arr(i)\3 Then Sum = Sum + arr(i) End If Next i Print Sum End Sub 程序運行后，單擊窗體，輸出結果為 A．13 B．14 C．27 D．15 (26)在窗體上畫一個名稱為File1的文件列表框，并編寫如下程序： Private Sub File1_DblClick() x=Shell(,1) End Sub 以下關于該程序的敘述中，錯誤的是 A．x沒有實際作用，因此可以將該語句寫為：Call Shell(File1,FileName,1) B．雙擊文件列表框中的文件，將觸發(fā)該事件過程 C． D．File1中顯示的是當前 驅動 器、當前目錄下的文件 (27)在窗體上畫一個名稱為Label標題為“VisualBasic考試”的標簽，兩個名稱分別為Command1和Command標題分別為“開始”和“停止”的命令按鈕，然后畫一個名稱為Timer1的計時器控件，并把其Interval屬性設置為500，如圖所示。 對于這個程序，以下敘述中錯誤的是 A．標簽的移動方向為自右向左 B．單擊“停止”按鈕后再單擊“開始”按鈕，標簽從停止的位置繼續(xù)移動 C．當標簽全部移出窗體后，將從窗體的另一端出現(xiàn)并重新移動 D．標簽按指定的時間間隔移動 (28)執(zhí)行以下程序段 a$=abbacddcba For i=6 To 2 Step 2 X=Mid(a,i,i) Y=Left(a,i) z=Right(a,i) z=UCase(X %26amp。 z) Next i Print z 輸出結果為 A．ABA B．BBABBA
試題試卷相關推薦
鄂ICP備17016276號-1