【正文】 A） Caption B） Name C） Backcolor D） Borderstyle （ 14）窗體的 Mousedown事件過(guò)程 Form_Mousedown (Button As Integer, Shift As Integer, X As Single, Y As Single) 有 4個(gè)參數(shù)，關(guān)于這些參數(shù)，正確的描述是 A）通過(guò) Button參數(shù)判定當(dāng)前 按下的是哪一個(gè)鼠標(biāo)鍵 B） Shift參數(shù)只能用來(lái)確定是否按下 Shift鍵 C） Shift參數(shù)只能用來(lái)確定是否按下 Alt和 Ctrl鍵 全國(guó)計(jì)算機(jī)等級(jí)考試二級(jí) VB 筆試試卷匯編 第 7 頁(yè) 共 81 頁(yè) D）參數(shù) X,Y用來(lái)設(shè)置鼠標(biāo)當(dāng)前位置的坐標(biāo) （ 15）設(shè)組合框 Combo1中有 3個(gè)項(xiàng)目，則以下能刪除最后一項(xiàng)的語(yǔ)句是 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順序不起作用 D）可以用 Tabindex屬性改變 Tab順序 （ 17）如果要在菜單中添加一個(gè)分隔線，則應(yīng)將其 Caption 屬性設(shè)置為 A） = B） * C） amp。用于標(biāo)識(shí)各個(gè)控件數(shù)組元素的參數(shù)是 A） Tag B） Index C） Listindex D） Name （ 19）在窗體上畫一個(gè)名稱為 Txta 的文本框，然后編寫如下的事件過(guò)程： Private Sub Txta_Keypress(Keyascii As Integer) …… End Sub 若焦點(diǎn)位于文本框中，則能夠觸發(fā) Keypress 事件的操作是 A）單擊鼠標(biāo) B）雙擊文本框 C）鼠標(biāo)滑過(guò)文本框 D）按下鍵盤上的某個(gè)鍵 （ 21）假定有如下事件過(guò)程： Private Sub Form_Mousedown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then Popupmenu Popform End If End Sub 則以下描述中錯(cuò)誤的是 A）該過(guò)程的功能是彈出一個(gè)菜單 B） Popform 是在菜單編輯器中定義的彈出式菜單的名稱 C）參數(shù) X、 Y 指明鼠標(biāo)的當(dāng)前位置 D） Button = 2 表示按下的是鼠標(biāo)左鍵 （ 30）在窗體上畫一個(gè)名稱為 Commondialog1 的通用對(duì)話框，一個(gè)名稱為 Command1 的命令按鈕。為了在運(yùn)行時(shí)隱藏該菜單項(xiàng)，應(yīng)使用 的語(yǔ)句是 A) =True B) =False C) =True D) =False (29) 以下敘述中錯(cuò)誤的是 A) 在程序運(yùn)行時(shí)，通用對(duì)話框控件是不可見(jiàn)的 B) 在同一個(gè)程序中，用不同的方法 (如 Showopen 或 Showsave 等）打開(kāi)的通用對(duì)話框具有不同的作用 C) 調(diào)用通用對(duì)話框控件的 Showopen 方法，可以直接打開(kāi)在該通用對(duì)話框中指定的文件 D) 調(diào)用通用對(duì)話框控件的 Showcolor 方法，可以打開(kāi)顏色對(duì)話框 (30) 在用通用對(duì)話框控件建立 “打開(kāi) ”或 “保存 ”文件對(duì)話框時(shí)，如果需要指定文件列表框所列出的文件類型是文本文件 (即 .Txt 文件 )，則正確的描述格式是 A) “Text (.Txt)|*.Txt)” B)“文本文件 ( .Txt) | (.Txt)” C) “Text(.Txt)||(*.Txt)” D)“Text(.Txt)(*.Txt)” 2022 年 4 月二級(jí) VB （ 9）表示滾動(dòng)條控件取值范圍最大值的屬性是 A） Max B） Largechange C） Value D） MaxMin （ 10）在窗體上畫一個(gè)名稱為 List1 的列表框，一個(gè)名稱為 Label1 的標(biāo)簽。為了保存該應(yīng)用程序，以下正確的操作是 A）只保存窗體模塊文件 B）分別保存窗體模塊、標(biāo)準(zhǔn)模塊和工程文件 C）只保存 窗體模塊和標(biāo)準(zhǔn)模塊文件 D）只保存工程文件 轉(zhuǎn)貼 （ 12）為了清除窗體上的一個(gè)控件，下列正確的操作是 A）按回車鍵 B）按 Esc 鍵 C）選擇（單擊）要清除的控件，然后按 Del 鍵 D）選擇（單擊）要清除的控件，然后按回車鍵 （ 13）以下敘述中錯(cuò)誤的是 A）打開(kāi)一個(gè)工程文件時(shí)，系統(tǒng)自動(dòng)裝入與該工程有關(guān)的窗體、標(biāo)準(zhǔn)模塊等文件 B）當(dāng)程序運(yùn)行時(shí)，雙擊一個(gè)窗體，則觸發(fā)該窗體的 Dblclick 事件 C） Visual Basic 應(yīng)用程序只能以解釋方式執(zhí)行 D）事件可以由用戶引發(fā)，也可以由 系統(tǒng)引發(fā) 全國(guó)計(jì)算機(jī)等級(jí)考試二級(jí) VB 筆試試卷匯編 第 3 頁(yè) 共 81 頁(yè) （ 33）如果一個(gè)工程含有多個(gè)窗體及標(biāo)準(zhǔn)模塊，則以下敘述中錯(cuò)誤的是 A）任何時(shí)刻最多只有一個(gè)窗體是活動(dòng)窗體 B）不能把標(biāo)準(zhǔn)模塊設(shè)置為啟動(dòng)模塊 C）用 Hide 方法只是隱藏一個(gè)窗體，不能從內(nèi)存中清除該窗體 D）如果工程中含有 Sub Main 過(guò)程，則程序一定首先執(zhí)行該過(guò)程 二、常用控件 2022 年 9 月二級(jí) VB (11) 以下能夠觸發(fā)文本框 Change 事件的操作是 A) 文本框失去焦點(diǎn) B) 文本框獲得焦點(diǎn) C) 設(shè)置文本框的焦點(diǎn) D) 改變文本框的內(nèi)容 (12) 在窗體上有一個(gè)文本框控件，名稱為 Txttime：一個(gè)計(jì)時(shí)器控件，名稱為 Timerl，要求每一秒鐘在文本框中顯示一次當(dāng)前的時(shí)間。程序?yàn)椋? Private Sub Timer1_ __() =Time End Sub 在下劃線上應(yīng)填入的內(nèi)容是 A) Enabled B) Visible C) Interval D) Timer (13) 在窗體上畫兩個(gè)單選按鈕，名稱分別為 Option Option2，標(biāo)題分別為 “宋體 ”和 “黑體 ”；一個(gè)復(fù)選框，名稱 為 Check1,標(biāo)題為 “粗體 ”；一個(gè)文本框，名稱為 Text1， Text 屬性為 “改變文字字體 ”。列表框中顯示若干城市的名稱。要求單擊命令按鈕時(shí)，打開(kāi)一個(gè)保存文件的通用對(duì)話框。 D） （ 26）在窗體上畫兩個(gè)滾動(dòng)條，名稱分別為 Hscroll1 、 Hscroll2；六個(gè)標(biāo)簽，名稱分別為 Label LabelLabel Label Label Label6，其中標(biāo)簽 Label 4~ Label6 分別顯示 A、 B、 A*B等文字信息，標(biāo)簽 Label Label2分別顯示其右側(cè)的滾動(dòng)條的數(shù)值， Label3 顯示 A*B的計(jì)算結(jié)果。以下不能實(shí)現(xiàn)上述功能的事件過(guò)程是 A） Private Sub Command1_Click() = Str(Val( )*Val( )) End Sub B） Private Sub Command1_Click() = * End Sub C） Private Sub Command1_Click() = Hscroll1 * Hscroll2 End Sub D） Private Sub Command1_Click() = Hscroll1. Text * End Sub （ 28）在窗體上畫一個(gè)名稱為 Text1的文本框，并編寫如下程序： 全國(guó)計(jì)算機(jī)等級(jí)考試二級(jí) VB 筆試試卷匯編 第 8 頁(yè) 共 81 頁(yè) 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 Text1_Keydown(Keycode As Integer, Shift As Integer) Print Visual Basic。程序運(yùn)行后，如果移動(dòng)滾動(dòng)框，則在文本框中顯示滾動(dòng)條的當(dāng)前值，如圖所示： 以下能實(shí)現(xiàn)上述操作的程序段是 A) Private Sub Hscroll_Change() = End Sub B) Private Sub Hscroll_Click() = End Sub C) Private Sub Hscroll_Change() = End Sub D) Private Sub Hscroll_Click() = End Sub (4) 設(shè)菜單中有一個(gè)菜單項(xiàng)為 Open。Open D) 把 Name屬性設(shè)置為 Oamp。對(duì)于這個(gè)程序，以下敘述中錯(cuò)誤的是 A) 標(biāo)簽的移動(dòng)方向?yàn)樽杂蚁蜃? B）單擊 “ 停止 ” 按鈕后再單擊 “ 開(kāi)始 ” 按鈕，標(biāo)簽從停止的位置繼續(xù)移動(dòng) C) 當(dāng)標(biāo)簽全部移出窗體后，將從窗體的另一端出現(xiàn)并重新移動(dòng) D）標(biāo)簽按指定的時(shí)間時(shí)隔移動(dòng) 2022 年 4 月二級(jí) VB （ 11）在窗體（名稱為 Form1）上畫一個(gè)名稱為 Text1 的文本框和一個(gè)名稱為 Command1 的命令按鈕，然后編寫一個(gè)事件過(guò)程。 End Sub “A”，然后單擊窗體，則在窗體上顯示的內(nèi)容是 A） Visual Basic B）程序設(shè)計(jì) C） Visual Basic 程序設(shè)計(jì) D） A 程序設(shè)計(jì) （ 31）假定有下表所列的菜單結(jié)構(gòu)： ━━━━━━━━━━━━━━━━━━━━ 名稱 層次 Appear 1（主菜單） Bigicon 2（子菜單） Smallicon 2（子菜單） “大圖標(biāo) ”，則在該菜單項(xiàng)前添加一個(gè) “214。請(qǐng)?jiān)? [1] 和 [2] 處填入適當(dāng)?shù)膬?nèi)容，將程序補(bǔ)充完整。 Private Sub Command1_Click() For I=0 To 3 If [3] =True Then Opt=Option1(I).Caption End If Next Select Case [4] Case ”+” Result=Val()+Val() Case ” ” Result=Val()Val() Case ”*” Result=Val()*Val() Case ”/” Result=Val()/Val() End Select [5] =Result End Sub (3) 在窗體上畫一個(gè)名稱為 Command1 的命令按鈕和一個(gè)名稱 為 Text1的文本框。 全國(guó)計(jì)算機(jī)等級(jí)考試二級(jí) VB 筆試試卷匯編 第 19 頁(yè) 共 81 頁(yè) Private Sub Form_Load() =False End Sub Private Sub Text1_ [6] () =True End Sub (4) 在菜單編輯器中建立了一個(gè)菜單，名為 Pmenu，用下面的語(yǔ)句可以把它作為彈出式菜單彈出，請(qǐng)?zhí)羁?。?dāng)雙擊列表框中的某個(gè)項(xiàng)目時(shí)，在標(biāo)簽 Label1 中顯示所選中的項(xiàng)目，如圖所示。 全國(guó)計(jì)算機(jī)等級(jí)考試二級(jí) VB 筆試試卷匯編 第 20 頁(yè) 共 81 頁(yè) 填空題 （ 9）在窗體上畫一個(gè)名稱為 Combo1 的組合框，畫兩個(gè)名稱分別 Label1 和 Label2 及 Caption 屬性分別為城市名稱 和空白的標(biāo)簽 。 （ 3）在窗體上畫一個(gè)標(biāo)簽（名稱為 Label1）和一個(gè)計(jì)時(shí)器（名稱為 Timer1），然后編寫如下幾個(gè)事件過(guò)程： 全國(guó)計(jì)算機(jī)等級(jí)考試二級(jí) VB 筆試試卷匯編 第 21 頁(yè) 共 81 頁(yè) Private Sub Form_Load() = False = 【 5】 End Sub Private Sub Form_Click() = 【 6】 End Sub Private Sub Timer1_Timer() = 【 7】 End Sub 程序運(yùn)行后，單擊窗體，將在標(biāo)簽中顯示當(dāng)前時(shí)間，每隔 1秒鐘變換一次。程序運(yùn)行后，在列表框中選擇一個(gè)項(xiàng)目，然后單擊命令按鈕，即可將所選擇的項(xiàng)目刪除，并在標(biāo)簽中顯示列表框當(dāng)前的項(xiàng)目數(shù)， 運(yùn)行情況如圖所示 (選擇 第三個(gè)項(xiàng)目 的情況 )。以下是實(shí)現(xiàn)上述功能的程序，請(qǐng)?zhí)羁铡? (6) 在窗體上畫一個(gè)名稱為 Text1 的文本框，然后畫三個(gè)單選按鈕，并用這三個(gè)單選按鈕建立一個(gè)控件數(shù)組，名稱為 Option1，程序運(yùn)行后，如果單擊某個(gè)單選按鈕，則文本框中的字體將根據(jù)所選擇的單選按鈕切換，如圖所示，請(qǐng)