【正文】 筆試試卷匯編 第 15 頁(yè) 共 81 頁(yè) D) Private Sub List1_Click() = End Sub （ 24）在 Visual Basic 工程中，可以作為啟動(dòng)對(duì)象的程序是 A)任何窗體或標(biāo)準(zhǔn)模塊 B)任何窗體或過(guò)程 C)Sub Main 過(guò)程或其他任何模塊 D)Sub Main 過(guò)程或任何窗體 (25)假定建立了一個(gè)名為 Command1 的命令按鈕數(shù)組，則以下說(shuō)法中錯(cuò)誤的是 A)數(shù)組中每個(gè)命令按鈕的名稱(chēng) (名稱(chēng)屬性 )均為 Command1 B)數(shù) 組中每個(gè)命令按鈕的標(biāo)題 (Caption 屬性 )都一樣 C)數(shù)組中所有命令按鈕可以使用同一個(gè)事件過(guò)程 D)用名稱(chēng) Command1(下標(biāo) )可以訪問(wèn)數(shù)組中的每個(gè)命令按鈕 (26)把窗體的 Keypreview 屬性設(shè)置為 True，然后編寫(xiě)如下事件過(guò)程 : Private Sub Form_Keypress(Keyascii As Integer) Dim Ch As String Ch = Chr(Keyascii) Keyascii = Asc(Ucase(Ch)) Print Chr(Keyascii + 2) End Sub 程序運(yùn)行后 ,按鍵盤(pán)上的 ”A”鍵 ,則在窗體上顯示的內(nèi)容是 A)A B)B C)C D)D 2022 年 9 月二級(jí) VB （ 19）在窗體上畫(huà)一個(gè)列表框和一個(gè)命令按鈕，其名稱(chēng)分別為 List1 和 Command1，然后編寫(xiě)如下事件過(guò)程： Private Sub Form_Load() Item 1 Item 2 Item 3 End Sub Private Sub Command1_Click() () = AAAA End Sub A）把字符串 “AAAA”添加到列表框中，但位置不能確定 B）把字符串 “AAAA”添加到列表框的最后（即 “Item 3”的后面） C）把列表框中原有的最后一項(xiàng)改為 “AAAA” 全國(guó)計(jì)算機(jī)等級(jí)考試二級(jí) VB 筆試試卷匯編 第 16 頁(yè) 共 81 頁(yè) D）把字符串 “AAAA”插入到列表框的最前面（即 “Item 1”的前面） （ 29）以下關(guān)于 Keypress 事件過(guò) 程中參數(shù) Keyascii 的敘述中正確的是 A） Keyascii 參數(shù)是所按鍵的 ASCII 碼 B） Keyascii 參數(shù)的數(shù)據(jù)類(lèi)型為字符串 C） Keyascii 參數(shù)可以省略 D） Keyascii 參數(shù)是所按鍵上標(biāo)注的字符 （ 30）設(shè)窗體上有一個(gè)名為 Text1 的文本框，并編寫(xiě)如下程序： 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。Pen C) 把 Name屬性設(shè)置為 amp。當(dāng)單擊命令按鈕 計(jì)算 時(shí)，對(duì)標(biāo)簽 Label Label2中顯示的兩個(gè)值求積，并將結(jié)果顯示在 Label3中。用于標(biāo)識(shí)各個(gè)控件數(shù)組元素的參數(shù)是 A） Tag B） Index C） Listindex D） Name （ 19）在窗體上畫(huà)一個(gè)名稱(chēng)為 Txta 的文本框，然后編寫(xiě)如下的事件過(guò)程 ： Private Sub Txta_Keypress(Keyascii As Integer) …… End Sub 若焦點(diǎn)位于文本框中，則能夠觸發(fā) Keypress 事件的操作是 A）單擊鼠標(biāo) B）雙擊文本框 C）鼠標(biāo)滑過(guò)文本框 D）按下鍵盤(pán)上的某個(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 是在菜單編輯器中定義的彈出式菜單的名稱(chēng) C）參數(shù) X、 Y 指明鼠標(biāo)的當(dāng)前位置 D） Button = 2 表示按下的是鼠標(biāo)左鍵 （ 30）在窗體上畫(huà)一個(gè)名稱(chēng)為 Commondialog1 的通用對(duì)話框，一個(gè)名稱(chēng)為 Command1 的命令按鈕。為了保存該應(yīng)用程序，以下正確的操作是 A）只保存窗體模塊文件 B）分別保存窗體模塊、標(biāo)準(zhǔn)模塊和工程文件 C）只保存 窗體模塊和標(biāo)準(zhǔn)模塊文件 D）只保存工程文件 轉(zhuǎn)貼 （ 12）為了清除窗體上的一個(gè)控件，下列正確的操作是 A）按回車(chē)鍵 B）按 Esc 鍵 C）選擇（單擊）要清除的控件，然后按 Del 鍵 D）選擇（單擊）要清除的控件，然后按回車(chē)鍵 （ 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è)文本框控件，名稱(chēng)為 Txttime：一個(gè)計(jì)時(shí)器控件，名稱(chēng)為 Timerl，要求每一秒鐘在文本框中顯示一次當(dāng)前的時(shí)間。列表框中顯示若干城市的名稱(chēng)。 D） （ 26）在窗體上畫(huà)兩個(gè)滾動(dòng)條，名稱(chēng)分別為 Hscroll1 、 Hscroll2；六個(gè)標(biāo)簽，名稱(chēng)分別為 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é)果。程序運(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。對(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）在窗體（名稱(chēng)為 Form1）上畫(huà)一個(gè)名稱(chēng)為 Text1 的文本框和一個(gè)名 稱(chēng)為 Command1 的命令按鈕，然后編寫(xiě)一個(gè)事件過(guò)程。請(qǐng)?jiān)? [1] 和 [2] 處填入適當(dāng)?shù)膬?nèi)容，將程序補(bǔ)充完整。 全國(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í)羁铡? 全國(guó)計(jì)算機(jī)等級(jí)考試二級(jí) VB 筆試試卷匯編 第 20 頁(yè) 共 81 頁(yè) 填空題 （ 9）在窗體上畫(huà)一個(gè)名稱(chēng)為 Combo1 的組合框，畫(huà)兩個(gè)名稱(chēng)分別 Label1 和 Label2 及 Caption 屬性分別為城市名稱(chēng) 和空白的標(biāo)簽。程序運(yùn)行后，在列表框中選擇一個(gè)項(xiàng) 目，然后單擊命令按鈕，即可將所選擇的項(xiàng)目刪除，并在標(biāo)簽中顯示列表框當(dāng)前的項(xiàng)目數(shù)，運(yùn)行情況如圖所示 (選擇 第三個(gè)項(xiàng)目 的情況 )。 (6) 在窗體上畫(huà)一個(gè)名稱(chēng)為 Text1 的文本框，然后畫(huà)三個(gè)單選按鈕，并用這三個(gè)單選按鈕建立一個(gè)控件數(shù)組，名稱(chēng)為 Option1，程序運(yùn)行后，如果單擊某個(gè)單選按鈕，則文本框中的字體將根據(jù)所選擇的單選按鈕切換，如 圖所示，請(qǐng)?zhí)羁铡?Next J Print Next I End Sub 程序運(yùn)行后，如果單擊命令按鈕，則在窗體上顯示的內(nèi)容是 A) BB B) A C) B D) AA CCC BB CC BBB DDDD CCC DDD CCCC EEEEE DDDD EEEE DDDDD (17) 在窗體上畫(huà)兩個(gè)名稱(chēng)分別為 Text Texte2 的文本框和一個(gè)名稱(chēng)為 Command1 的命令按鈕，然后編寫(xiě)如下事件過(guò)程： Private Sub Command1_Click() Dim X As Integer,N As Integer X=1 N=0 Do While X20 X=X*3 全國(guó)計(jì)算機(jī)等級(jí)考試二級(jí) VB 筆試試卷匯編 第 29 頁(yè) 共 81 頁(yè) N=N+1 Loop =Str(X) =Str(N) End Sub 程序運(yùn)行后，單擊命令按鈕，在兩個(gè)文本框中顯示的值分別是 A) 15 和 1 B) 27 和 3 C) 195 和 3 D) 600 和 4 (18) 在窗體上畫(huà)一個(gè)名稱(chēng)為 Text1 的文本框和一個(gè)名稱(chēng)為 Command1 的命令按鈕，然后編寫(xiě)如下事件過(guò)程： Private Sub Command1_Click() Dim I As Integer,N As Integer For I=0 To 50 I=I+3 N=N+1 If I10 Then Exit For Next =Str(N) End Sub 程序運(yùn)行后，單擊命令按鈕，在文本框中顯示的值是 A) 2 B) 3 D) 4 D) 5 2022 年 4 月二級(jí) VB （ 11）在窗體上畫(huà)一個(gè)名稱(chēng)為 Command1 的命令按鈕，然后編寫(xiě)如下事件過(guò)程： Private Sub Command1_Click() X = 0 N = Inputbox() For I = 1 To N For J = 1 To I X = X + 1 Next J Next I Print X End Sub 程序運(yùn)行后，單擊命令按鈕，如果輸入 3，則在窗體上顯示的內(nèi)容是 A） 3 B） 4 C） 5 D） 6 （ 22）以下能夠正確計(jì)算 N!的程序是 A） Private Sub Command1_Click() N = 5: X = 1 全國(guó)計(jì)算機(jī)等級(jí)考試二級(jí) VB 筆試試卷匯編 第 30 頁(yè) 共 81 頁(yè) Do X = X * I I = I + 1 Loop While I N Print X End Sub 。確定第二個(gè)字 符串在第一個(gè)字符串中起始位置的函數(shù)是 A) Left B) Mid C) String D) Instr (10) 設(shè) A=“Visual Basic”，下面使 B=“Basic”的語(yǔ)句是 A) B=Left(A,8,12) B) B=Mid(A,8,5) C) B=Rigth(A,5,5) D) B=Left(A,8,5) 2022 年 4 月二級(jí) VB （ 3）下列可作為 Visual Basic 變量名的是 A） AA B） 4A C） ?Xy D） Consta （ 4）設(shè)有如下的記錄類(lèi)型