浙江省計算機等級考試二級vb2008春季真題(編輯修改稿)
2025-02-04 20:46 本頁面
【文章內(nèi)容簡介】 ext1獲得輸入焦點后，依次按 a、 5鍵， Label1顯示： A、空白 B、 12a5 C、 5a21 D、 521 試題 5（每小題 3分，共 12分） 閱讀下列程序并回答問題，在每小題提供的若干可選答案中，挑選一個正確答案。 【程序】 Private Sub Form_Load() = 1000 End Sub Private Sub Timer1_Timer() 4 Create PDF with GO2PDF for free, if you wish to remove this line, click here to buy Virtual PDF Printer Static k As Byte =0: =0 39。窗體的所有其他屬性均取缺省值 If k = 0 Then k = 1 Else k = 0 If k=0 Then = RGB(0, 255, 0) Else _ = RGB(0, 0, 255) Print Time End Sub 【供選擇的答案】 (17)激活 Timer1后，每間隔 1秒顯示一次系統(tǒng)時間，方式是： A、藍、綠色交替顯示 B、藍色顯示 C、綠色顯示 D、紅色顯示 (18)系統(tǒng)時間的顯示位置，是在： A、窗體右上角 B、窗體左上角 C、窗體右下角 D、窗體左下角 (19)如果將 Timer過程中的語句 “StatickAsByte”改為 “DimkAsByte”，激活 Timer1 后，窗體系統(tǒng)時間顯示上的顏 色為： A、藍、綠色交替 B、藍色 C、綠色 D、紅色 (20)如果要同時顯示系統(tǒng)日期、時間，對 Timer過程中 Print語句之輸出列表不可取的是： A、 Date,Time B、 Date。Time C、 DateTime D、 Date+Time 試題 6（每小題 3分，共 12分） 閱讀下列程序并回答問題，在每小題提供的若干可選答案中，挑選一個正確答案。 【程序】 Private Sub f(b() As Integer, ByRef m As Integer) Dim i As Integer, j As Integer, k As Integer i = 1 Do While i = m For j = 1 To m If b(i) Mod b(j) = 0 And i j Then For k = i To m 1: b(k) = b(k + 1): Next k Exit For End If Next j If j m Then i = i + 1 Else m = m 1 Loop End Sub Private Sub Command1_Click() Dim a(6) As Integer, i As Integer, n As Integer n = 6 For i = 1 To 6: a(i) = InputBox(a( amp。 i amp。 )=): Next i 5 Create PDF with GO2PDF for free, if you wish to remove this line, click here to buy Virtual PDF Printer Call f(a, n) For i = 1 To n: Print a(i)。 : Next i End Sub (21)單擊 Command1輸入 3后，相應的顯示結果為： A、 8 9 3 B、 8 9 3 3 3 3 C、 7 5 4 3 3 3 D、 7 5 4 3 (22)如果將過程 f首句中的 “ByRef”改為 “Byval”，輸入
試題試卷相關推薦
鄂ICP備17016276號-1