【正文】 (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_Cli