[計算機]2004年9月全國計算機等級考試二級vb語言筆試試題及答案(編輯修改稿)
2025-02-05 01:07 本頁面
【文章內容簡介】 5 （ 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 程序運行后，單擊命令按鈕，在窗體上顯示的內容是 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ù)據 ） If n10 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ù)據大于 10，則窗體上不顯示任何 信息 6 （ 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（ ,1） B） 雙擊文件列表框中的文件，將觸發(fā)該事件過程 C） 要執(zhí)行的文件的名字通過 指定 D） File1 中顯示的是當前驅動器、當前目錄下的文件 （ 27） 在窗體上畫一個名稱為 Label標題為“ VisualBasic 考試”的標簽，兩個名稱分別為Command1 和 Command標題分別為“開始”和“停止”的命令按鈕，然后畫一個名稱為Timer1 的計時器控件，并把其 Interval 屬性設置為 500,如圖所示。 7 編寫如下程序： Private Sub Form_Load（） =False End Sub Private Sub Command1_Click（） =True End Sub Private Sub Timer1_Timer（） If Width Then = + 2
試題試卷相關推薦
鄂ICP備17016276號-1