【正文】 n(Button As Integer, Shift As Integer, X As Single, Y As Single) If Asc() 65 Or Asc() 90 Then Msgbox 請(qǐng)輸入大寫(xiě)字母 End If End Sub D) Private Sub Text1_Change() If Asc() 64 And Asc() 91 Then Msgbox 請(qǐng)輸入大寫(xiě)字母 End If End Sub 2022 年 9 月二級(jí) VB (1) 設(shè)窗體上有一個(gè)文本框，名稱為 Text1,程序運(yùn)行后，要求該文本框不能接受鍵盤(pán)輸入，但能輸出信息，以下屬性設(shè)置正確的是： A)=0 B)=False C)= False D)=0 (2) 以下能在窗體 Form1的標(biāo)題欄中顯示 “Visualbasic 窗體 的語(yǔ)句是 全國(guó)計(jì)算機(jī)等級(jí)考試二級(jí) VB 筆試試卷匯編 第 11 頁(yè) 共 81 頁(yè) A) =Visualbasic 窗體 B) =Visualbasic窗體 C) =Visualbasic窗體 D) =Visualbasic 窗體 ” (3) 在窗體上畫(huà)一個(gè)名稱為 Text1 的文本框，然后畫(huà)一個(gè)名稱為 Hscroll1的滾動(dòng)條，其 Min和 Max屬性分別為 0和 100。若要為該菜單命令設(shè)計(jì)訪問(wèn)鍵，即按下 Alt及字母 O時(shí)，能夠執(zhí)行Open命令，則在菜單編輯器中設(shè)置 “Open 命令的方式是 A) 把 Caption屬性設(shè)置為 amp。Pen C) 把 Name屬性設(shè)置為 amp。Pen (7)在窗體上畫(huà)一個(gè)名稱為 Timer1的計(jì)時(shí)器控件，要求每隔 ，則以下正確的屬性設(shè)置語(yǔ)句是 A） = B) =5 C) =50 D) =500 (9) 以下關(guān)于多重窗體程序的敘述中，錯(cuò)誤的是 A)用 Hide方法不但可以隱藏窗體，而且能清除內(nèi)存中的窗體 全國(guó)計(jì)算機(jī)等級(jí)考試二級(jí) VB 筆試試卷匯編 第 12 頁(yè) 共 81 頁(yè) B）在多重窗體程序中，各窗體的菜單是彼此獨(dú)立的 C）在多重窗體程序中，可以根據(jù)需要指定啟動(dòng)窗體 D） 在 多重窗體程序中，需要單獨(dú)保存每個(gè)窗體 (11) 以下敘述中錯(cuò)誤的是 A）事件過(guò)程是響應(yīng)特定事件的一段程序 B）不同的對(duì)象可以具有相同名稱的方法 C）對(duì)象 的方法是執(zhí)行指定操作的過(guò)程 D）對(duì)象事件的名稱可以由編程者指定 (13) 當(dāng)一個(gè)復(fù)選框被選中時(shí)，它的 Value屬性的值是 A) 3 B) 2 C) 1 D) 0 (18) 以下敘述中錯(cuò)誤的是 A) 在 Keypress事件過(guò)程中不能識(shí)別鍵盤(pán)的按下與釋放 B) 在 Keypress 事件過(guò)程中不能識(shí)別回車鍵 C) 在 Keydown和 Keyup事件過(guò)程中，將鍵盤(pán)輸入的 A和 A視作相同的字母 D) 在 Keydown和 Keyup事件過(guò)程中，從大鍵盤(pán)上輸入的 1和從右側(cè)小鍵盤(pán)上輸入的 1被視作不同的字符 (20)在窗體上畫(huà)一個(gè)名稱為 Commanddialog1的通用對(duì)話框，一個(gè)名稱為 Command1的命令按鈕。 編寫(xiě)如下程序： 全國(guó)計(jì)算機(jī)等級(jí)考試二級(jí) VB 筆試試卷匯編 第 13 頁(yè) 共 81 頁(yè) Private Sub Form_Load() =False End Sub Private Sub Command1_Click() =True End Sub Private Sub Timer1_Timer() If Width Then = + 20 Else =0 End If End Sub 程序運(yùn)行后，單擊 “ 開(kāi)始 ” 按鈕，標(biāo)簽在窗體中移動(dòng)。程序運(yùn)行以后，如果在文本框中輸入一個(gè)字符，則把命令按鈕的標(biāo)題設(shè)置為“計(jì)算機(jī)等級(jí)考試”。以下是實(shí)現(xiàn)上述操作的程序： Private Sub Command1_Click() End Sub Private Sub Timer1_Timer() = Time End Sub 在 ______處應(yīng)填入的內(nèi)容是 A)Enabled=True B)Enabled=False C)Visible=True D)Visible=False (19)假定在圖片框 Picture1 中裝入了一個(gè)圖形，為了清除該圖形（不刪除圖片框），應(yīng)采用的正確方法是： A)選擇圖片框，然后按 Del 鍵 B)執(zhí)行語(yǔ)句 =Loadpicture(“”) C)執(zhí)行語(yǔ)句 =”” D)選擇圖片框，在屬性窗口中選擇 Picture 屬性，然后按回車鍵 （ 20） 在窗體上畫(huà)一個(gè) List1 的列表框，一個(gè)名稱為 Label1 的標(biāo)簽，列表框中顯示若干個(gè)項(xiàng)目，當(dāng)單擊列表框中的某個(gè)項(xiàng)目時(shí)，在標(biāo)簽中顯示被選中的項(xiàng)目的名稱，下列能正確實(shí)現(xiàn)上述操作的程序是 A) Private Sub List1_Click() = End Sub B) Private Sub List1_Click() = End Sub C) Private Sub List1_Click() = End Sub 全國(guó)計(jì)算機(jī)等級(jí)考試二級(jí) VB 筆試試卷匯編 第 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è)命令按鈕的名稱 (名稱屬性 )均為 Command1 B)數(shù)組中每個(gè)命令按鈕的標(biāo)題 (Caption 屬性 )都一樣 C)數(shù)組中所有命令按鈕可以使用同一個(gè)事件過(guò)程 D)用名稱 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è)命令按鈕，其名稱分別為 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ù)類型為字符串 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。”。程序運(yùn)行后，如果單擊滾動(dòng)條兩端的箭頭，則在標(biāo)簽 Lable2 中顯示滾動(dòng)條的值，如圖所示。 全國(guó)計(jì)算機(jī)等級(jí)考試二級(jí) VB 筆試試卷匯編 第 18 頁(yè) 共 81 頁(yè) Private Sub Hscroll1_ [1] () =Hscroll1. [2] End Sub (2) 在窗體上畫(huà)一個(gè)名稱為 Command標(biāo)題為 “ 計(jì)算 ” 的命令按 鈕；畫(huà)兩個(gè)文本框，名稱分別為 Text1和Text2；然后畫(huà) 4個(gè)標(biāo)簽，名稱分別為 Label Label Label3和 Label4，標(biāo)題分別為 “ 操作數(shù) 1” 、“ 操作數(shù) 2” 、 “ 運(yùn)算結(jié)果 ” 和空白；再建立一個(gè)含有 4個(gè)單選按紐的控件數(shù)組，名稱為 Option1，標(biāo)題分別為 “+” 、 “ ” 、 “*” 和 “/” 。請(qǐng)?jiān)? [3] 、 [4] 和 [5] 處填入適當(dāng)?shù)膬?nèi)容，將程序補(bǔ)充完整。程序運(yùn)行后， Command1為禁用 (灰色 ) 。請(qǐng)?jiān)? [6] 處填入適當(dāng)?shù)膬?nèi)容，將程序補(bǔ)充完整。 Form1. [7] Pmenu (6) 在窗體上畫(huà)一個(gè)文本框和一個(gè)圖片框，然后編寫(xiě)如下兩個(gè)事件過(guò)程： Private Sub Form_Load( ) =”計(jì)算機(jī) ” End Sub Private Sub Text1_Change( ) “等級(jí)考試 ” End Sub 程序運(yùn)行后，在文本框中顯示的內(nèi)容是 [10] ，而在圖片框中顯示的內(nèi)容是 [11] 。程序運(yùn)行后，在列表框中添 加若干列表項(xiàng)。請(qǐng)?jiān)? [14] 和 [15] 處填入適當(dāng)?shù)膬?nèi)容將程序補(bǔ)充完整。 （ 5）計(jì)時(shí)器控件能有規(guī)律的以一定時(shí)間間隔觸發(fā) 【 5】 事件，并執(zhí)行該事件過(guò)程中的程序代碼。程序運(yùn)行后，當(dāng)在組合框中輸入一個(gè)新項(xiàng)后按回車鍵（ ASCII 碼為 13）時(shí)，如果輸入的項(xiàng)在組合框的列表中不存在，則自動(dòng)添加到組合框的列表中，并在 Label2 中給出提示 已成功添加輸入項(xiàng) 如圖所示；如果存在，則在 Label2 中給出提示 輸入項(xiàng)已在組合框中 。 Private Sub Combo1_ 【 12】 (Keyascii As Integer) If Keyascii = 13 Then For I = 0 To If = 【 13】 Then = 輸入項(xiàng)已在組合框中 Exit Sub End If Next I = 已成功添加輸入項(xiàng) Combo1. 【 14】 End If End Sub 2022 年 9 月二級(jí) VB （ 2）把窗體的 Keypreview屬性設(shè)置為 True，然后編寫(xiě)如下兩個(gè)事件過(guò)程： Private Sub Form_Keydown(Keycode As Integer, Shift As Integer) Print Chr(Keycode) End Sub Private Sub Form_Keypress(Keyascii As Integer) Print Chr(Keyascii) End Sub 程序運(yùn)行后，如果直接按鍵盤(pán)上的 A鍵（即不按住 Shift 鍵），則 在窗體上輸出的字符分別是 【 3】 和 【 4】 。請(qǐng)?zhí)羁铡? （ 5）在窗體上畫(huà)一個(gè)列表框、一個(gè)命令按鈕和一個(gè)標(biāo)簽，其名稱分別為 List Command1 和 Label1，通過(guò)屬性窗口把列表框中的項(xiàng)目設(shè)置為： 第一個(gè)項(xiàng)目 、 第二個(gè)項(xiàng)目 、 第三個(gè)項(xiàng)目 、 第四個(gè)項(xiàng)目 。下面是實(shí)現(xiàn)上述功能的程序，請(qǐng)?zhí)羁铡? (2) 在菜單編輯器中建立一個(gè)菜單 ，其主菜單項(xiàng)的名稱為 Mnuedit， Visible 屬性為 False，程序運(yùn)行后，如全國(guó)計(jì)算機(jī)等級(jí)考試二級(jí) VB 筆試試卷匯編 第 22 頁(yè) 共 81 頁(yè) 果用鼠標(biāo)右鍵單擊窗體，則彈出與 Mnuedit 相應(yīng)的菜單。 Private Sub Form 【 2】 (Button As Integer, Shift As Integer, X As Single, Y As Single) If Button=2 Then 【 3】 Mnuedit End If End Sub (3) 為了使計(jì)時(shí)器控件 Timer1 每隔 秒觸發(fā)一次 Timer 事件，應(yīng)將 Timer1 控件的【 4】屬性設(shè)置為【 5】 。 (5) 將 C 盤(pán)根目錄下的圖形文件 裝入圖片框 Picture1 的語(yǔ)句是【 7】 。 Private Sub Option1_Clic