【導(dǎo)讀】全國(guó)計(jì)算機(jī)等級(jí)考試二級(jí)筆試試卷。下列各題A)、B)、C)、D)四個(gè)選項(xiàng)中，只有一個(gè)選項(xiàng)是正確的，請(qǐng)將正確選項(xiàng)涂。寫在答題卡相應(yīng)位置上，答在試卷上不得分。在設(shè)計(jì)階段，當(dāng)雙擊窗體上的某個(gè)控件時(shí)，所打開的窗口是。A)工程資源管理器窗口B)工具箱窗口。以下敘述中正確的是。B)窗體的Name屬性的值是顯示在窗體標(biāo)題欄中的文本。C)可以在運(yùn)行期間改變對(duì)象的Name屬性的值。剛建立一個(gè)新的標(biāo)準(zhǔn)EXE工程后，不在工具箱中出現(xiàn)的控件是。A)單選按鈕B)圖片框C)通用對(duì)話框D)文本框。設(shè)有如下變量聲明。為變量TestDate正確賦值的表達(dá)方式是。A)整數(shù)B)大于0的整數(shù)C)等于0的整數(shù)D)小于0的數(shù)。程序運(yùn)行時(shí)，三次單擊命令按鈕Commandl后，窗體上顯示的結(jié)果為。程序運(yùn)行后，如果從鍵盤上輸入數(shù)值10并按回車鍵，則下列敘述中正確的是。確定第二個(gè)字符串在第一。以下能夠觸發(fā)文本框Change事件的操作是。A)文本框失去焦點(diǎn)B)文本框獲得焦點(diǎn)。求每一秒鐘在文本框中顯示一次當(dāng)前的時(shí)間。要求程序運(yùn)行時(shí)，“宋體”單選按鈕和“粗體”復(fù)選框被選

　　

【正文】 ar2=‘ ABC’ C) Deflnt az D) Static var3 As Integer (8) 設(shè)窗體上有一個(gè)列表框控件 Listl，且其中含有若干列表項(xiàng)。則以下能表示當(dāng)前被選中的列表項(xiàng)內(nèi)容的是 A) B) C) D) (9) 程序運(yùn)行后，在窗體上單擊鼠標(biāo)，此時(shí)窗體不會(huì)接收到的事件 是 A) MouseDown B) MouseUp C) Load D) Click (10) 設(shè) a=10, b=5, c=1, 執(zhí)行語句 Print abc 后，窗體上顯示的是 A) True B) False C) 1 D) 出錯(cuò)信息 (11) 如果要改變窗體的標(biāo)題，則需要設(shè)置的屬性是 A) Caption B) Name C) BackColor D) BorderStyle (12) 以下能判斷是否到達(dá)文 件尾的函數(shù)是 A) BOF B) LOC C) LOF D) EOF (13) 如果一個(gè)工程含有多個(gè)窗體及標(biāo)準(zhǔn)模塊，則以下敘述中錯(cuò)誤的是 A) 如果工種中含有 Sub Main 過程，則程序一定首先執(zhí)行該過程 B) 不能把標(biāo)準(zhǔn)模塊設(shè)置為啟動(dòng)模塊 C) 用 Hide 方法只是隱藏一個(gè)窗體，不能從內(nèi)存中清除該窗體 D) 任何時(shí)刻最多只有一個(gè)窗體是活動(dòng)窗體 (14) 窗體的 MouseDown 事件過程 Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) 有 4 個(gè)參數(shù)，關(guān)于這些參數(shù)，正確的描述是 A) 通過 Button 參數(shù)判定當(dāng)前按下的是哪一個(gè)鼠標(biāo)鍵 B) Shift 參數(shù)只能用來確定是否按下 Shift 鍵 C) Shift 參數(shù)只能用來確定是否按下 Alt 和 Ctrl 鍵 D) 參數(shù) x， y 用來設(shè)置鼠標(biāo)當(dāng)前位置的坐標(biāo) (15) 設(shè)組合框 Combol 中有 3 個(gè)項(xiàng)目，則以下能刪除最后一項(xiàng)的語句是 A) Text B) 2 C) 3 D) (16) 以下關(guān)于焦點(diǎn)的敘述中，錯(cuò)誤的是 A) 如果文本框的 TabStop 屬性為 False，則不能接收從鍵盤上輸入的數(shù)據(jù) B) 當(dāng)文本框失去焦點(diǎn)時(shí)，觸發(fā) LostFocus 事件 C) 當(dāng)文本框的 Enabled 屬性為 False 時(shí)，其 Tab 順序不起作用 C D) 可以用 TabIndex 屬性改變 Tab 順序 (17) 如果要在菜單中添加一個(gè)分隔線，則應(yīng)將其 Caption 屬性設(shè)置為 A) = B) * C) amp。 D) (18) 執(zhí)行語句 Open“ ” For Random As l Len=50 后，對(duì)文件 中的數(shù)據(jù)能夠執(zhí)行的操作是 A) 只能寫，不能讀 B) 只能讀，不能寫 C) 既可以讀，也可以寫 D) 不能讀，不能寫 (19) 在窗體上畫一個(gè)名稱為 Commandl 的命令按鈕和兩個(gè)名稱分別為 Textl?Text2 的文本框，然后編寫如下事件過程 : Private Sub Command1_Click() n= Select Case n Case 1 To 20 x=10 Case 2, 4, 6 x=20 Case Is 10 x=30 Case 10 x=40 End Select =x End Sub 程序運(yùn)行后，如果在文本框 Text1 中輸入 10，然后單擊命令按鈕，則在 Text2 中顯示的內(nèi)容是 A) 10 B) 20 C) 30 D) 40 (20) 設(shè)有以下循環(huán)結(jié)構(gòu) Do 循環(huán)體 Loop While條件 則以下敘述中錯(cuò)誤的是 A）若“條件”是一個(gè)為 0 的常數(shù)，則一次也不執(zhí)行循環(huán)體 B) “條件“可以是關(guān)系表達(dá)式、邏輯表達(dá)式或常數(shù) C) 循環(huán)體中可以使用 Exit Do 語句 D) 如果“條件”總是為 True，則不停地執(zhí)行循環(huán)體 (21) 在窗體上畫一個(gè)名稱為 Command1 的命令按鈕，然后編寫如下事件過程 : Private Sub Command1_Click() Dim num As Integer num =1 Do Until num6 Print num。 num=num+ Loop End Sub 程序運(yùn)行后，單擊命令按鈕，則窗體上顯示的內(nèi)容是 A) 1 B) 1 3 5 C) 1 4 7 D) 無數(shù)據(jù)輸出 (22) 在窗體上畫一個(gè)名稱為 Command1 的命令按鈕，然后編寫如下事件過程 : Private Sub Command1_ Click() Dim a As Integer, s As Integer a=8 s=1 Do s=s+a a=a1 Loop While a =0 Print s。 a End Sub 程序運(yùn)行后，單擊命令按，則窗體上顯示的內(nèi)容是 A) 7 9 B) 34 0 C) 9 7 D) 死循環(huán) (23) 設(shè)有如下通用過程 : Public Function f(x As Integer) Dim y As Integer x=20 y=2 f=x*y End Function 在窗體上畫一個(gè)名稱為 Command1 的命令按鈕，然后編寫如下事件過程 : Private Sub Command1_Click() Static x As Integer x=10 y=5 y=f(x) Print x。y End Sub 程序運(yùn)行后，如果單擊命令按鈕，則在窗體上顯示的內(nèi)容是 A) 10 5 B) 20 5 C) 20 40 D) 10 40 (24) 設(shè)有如下通用過程 : Public Sub Fun (a(),ByVal x As Integer) For i =1 To 5 x=x+a(i) Next End Sub 在窗體上畫一個(gè)名稱為 Text1 的文本框和一個(gè)名稱為 Command1 的命令按鈕，然后編寫如下的事件過程： Private Sub Command1_ Click() Dim arr(5) As Variant For i=1 To 5 arr(i)=i Next n=10 Call Fun(arr(),n) =n End Sub 程序運(yùn)行后，單擊命令按鈕，則在文本框中顯示的內(nèi)容是 A) 10 B) 15 C) 25 D) 24 (25) 在窗體上畫一個(gè)名稱為 Command1 的命令按鈕，然后編寫如下代碼 : Option Base 1 Private Sub Command1_Click() d=0 c=10 x=Array(10, 12, 21, 32, 24) For i= 1 To 5 If x(i) c Then d=d+x(i) c=x(i) Else d=dc End If Next i Print d End Sub 程序運(yùn)行后，如果單擊命令按鈕，則在窗體上輸出的內(nèi)容為 A) 89 B) 99 C) 23 D) 77 (26) 在窗體上畫兩個(gè)滾動(dòng)條，名稱分別為 Hscroll Hscroll2；六個(gè)標(biāo)簽，名稱分別為 Labe11?Labe1 Labe1 Labe1 Labe1 Labe1其中標(biāo)簽 Labe14~Labe16 分別顯示“ A”、“ B”、“ A*B”等文字信息，標(biāo)簽 Labe1 Labe12 分別顯示其右側(cè)的滾動(dòng)條的數(shù)值，Labe13 顯示 A*B 的計(jì)算結(jié)果。如圖所示 ?當(dāng)移動(dòng)滾動(dòng)框時(shí)，在相應(yīng)的標(biāo)簽中顯示滾動(dòng)條的值。當(dāng)單擊命令按鈕“計(jì)算”時(shí) ，對(duì)標(biāo)簽 Labe1 Labe12 中顯示的兩個(gè)值求積，并將結(jié)果顯示在 Labe13 中。以下不能實(shí)現(xiàn)上述功能的事件過程是 A) Private Sub Command1_Click() =Str(Val()*Val()) End Sub B) private Sub Command1_Click() = * End Sub C) Private Sub Commandl_Click() =Hscroll1*Hscroll2 End Sub D) Private Sub Command1_ Click() =* End Sub (27) 在窗體上畫一個(gè)名稱為 Commandl 的命令按鈕，然后編寫如下事件過程 : Private Sub Commandl_Click() For n=1 To 20 If n Mod 3 0 Then m=m+n\3 Next n Print n End Sub 程序運(yùn)行后，如果單擊命令按鈕，則窗體上顯示的內(nèi)容是 A) 15 B) 18 C) 21 D) 24 (28) 在窗體上畫一個(gè)名稱為 Textl 的文本框，并編寫如下程序 : Private Sub Form_Load() Show = End Sub Private Sub Form_MouseUP(Button As Integer,Shift As Integer, X As Single, Y As Single) Print 程序設(shè)計(jì) End Sub Private Sub Textl_KeyDown(KeyCode As Integer,Shift As Integer) Print“ Visual Basic” End Sub 程序運(yùn)行后，如果按“ A”鍵，然后單擊窗體，則在窗體上顯示的內(nèi)容是 A) Visual Basic B) 程序設(shè)計(jì) C) A 程序設(shè)計(jì) D) Visual Basic 程序設(shè)計(jì) (29) 設(shè)有如下程序 : Private Sub Comandl_Click() Dim sum As Double,x As Double sum=0 n=0 For i= 1 To 5 x=n/i n=n+1 sum=sum+x Next End Sub 該程序通過 For 循環(huán)計(jì)算一個(gè)表達(dá)式的值，這個(gè)表達(dá)式是 A) 1+1/2+2/3+3/4+4/5 B) 1+1/2+2/3+3/4 C) 1/2+2/3+3/4+4/5 D) 1+1/2+1/3+1/4+1/5 (30) 以下有關(guān)數(shù)組定義的語句序列中，錯(cuò)誤的是 A) Static arrl(3) B) Dim arr2() As Integer arrl(1)=100 Dim size As Integer arrl(2)=Hello Private Sub Command2_Click() arrl(3)= size=Input Box(輸入 :) ReDim arr2(size) ?? End Sub C) Option Base 1 D) Dim n As Integer Private Sub Command3_Click() Private Sub Command4_Click() Dim arr3(3) As Integer Dim arr4(n) As Integer ?? ?? End Sub End Sub 二、填空題 (每空 2 分，共 30 分 ) 請(qǐng)將每空的正確答案寫在答題卡上【 1】 — 【 15】序號(hào)的橫線上，答在試卷上不得分。 (1) 執(zhí)行下面的程序段后， i 的值為 【 1】 ， s 的值為 【 2】 。 s=2 For i= To Step s=s+1 Next i (2) 把窗體的 KeyPreview 屬性設(shè)置為 True，然后編寫如下兩個(gè)事件過程： Private Sub Form _KeyDown (KeyCode As Integer, Shift As Integer) Print Chr(KeyCode) End Sub Private Sub For