【文章內(nèi)容簡(jiǎn)介】 在多重窗體程序中，各窗體的菜單是彼此獨(dú)立的 C）在多重窗體程序中，可以根據(jù)需要指定啟動(dòng)窗體 D） 在 多重窗體程序中，需要單獨(dú)保存每個(gè)窗體 (11) 以下敘述中錯(cuò)誤的是 A）事件過程是響應(yīng)特定事件的一段程序 B）不同的對(duì)象可以具有相同名稱的方法 C）對(duì)象的方法是執(zhí)行指定操作的過程 D）對(duì)象事件的名稱可以由編程者指定 (13) 當(dāng)一個(gè)復(fù)選框被選中時(shí)，它的 Value屬性的值是 A) 3 B) 2 C) 1 D) 0 (18) 以下敘述中錯(cuò)誤的是 A) 在 Keypress事件過程中不能識(shí)別鍵盤的按下與釋放 B) 在 Keypress 事件過程中不能識(shí)別回車鍵 C) 在 Keydown和 Keyup事件過程中，將鍵盤輸入的 A和 A視作相同的字母 D) 在 Keydown和 Keyup事件過程中，從大鍵盤上輸入的 1和從右側(cè)小鍵盤上輸入的 1被視作不同的字符 (20)在 窗體上畫一個(gè)名稱為 Commanddialog1的通用對(duì)話框，一個(gè)名稱為 Command1的命令按鈕。然后編寫如下事件過程： Private Sub Command1_Click() = =All File|*.*|(*.Doc)|*.Doc|(*.Txt)|*.Txt =2 =Vbtest =1 End Sub 對(duì)于這個(gè)程序，以下敘述中錯(cuò)誤的是 A） 該對(duì)話框被設(shè)置為 “ 打開 ” 對(duì)話框 B） 在該對(duì)話框中指定的默認(rèn)文件名為空 C） 該對(duì)話框的標(biāo)題為 Vbtest D） 在該對(duì)話框中指定的默認(rèn)文件類型為文本文件 (*.Txt) (27) 在窗體上畫一個(gè)名稱為 Label標(biāo)題為 “Visual Basic考試 ” 的標(biāo)簽，兩個(gè)名稱分別為 Command1和 Command標(biāo)題分別為 “ 開始 ” 和 “ 停止 ” 的命令按鈕，然后畫一個(gè)名稱為 Timer1的計(jì)時(shí)器控件，并把其 Interval屬性設(shè)置為 500,如 圖所示。 編寫如下程序： 全國(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)行后，單擊 “ 開始 ” 按鈕，標(biāo)簽在窗體中移動(dòng)。對(duì)于這個(gè)程序，以下敘述中錯(cuò)誤的是 A) 標(biāo)簽的移動(dòng)方向?yàn)樽杂蚁蜃? B）單擊 “ 停止 ” 按鈕后再單擊 “ 開始 ” 按鈕，標(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è)事件過程。程序運(yùn)行以后，如果在文本框中輸入一個(gè)字符，則把命令按鈕的標(biāo)題設(shè)置為“計(jì)算機(jī)等級(jí)考試”。以下能實(shí)現(xiàn)上述操作的事件過程是： A)Private Sub Text1_Change() =”計(jì)算機(jī)等級(jí)考試 ” End Sub B) Private Sub Command1_Click() Caption=”計(jì)算機(jī)等級(jí)考試 ” End Sub C) Private Sub Form1_Click() =”計(jì)算機(jī)等級(jí)考試 ” 全國(guó)計(jì)算機(jī)等級(jí)考試二級(jí) VB 筆試試卷匯編 第 14 頁(yè) 共 81 頁(yè) End Sub D) Private Sub Command1_Click() =”計(jì)算機(jī)等級(jí)考試 ” End Sub (16)為了使命令按鈕 (名稱為 Command1)右移 200，應(yīng)使用的語(yǔ)句是 A) 200 B) 200 C) = +200 D) = （ 18）在 窗體上畫一個(gè)文本框和一個(gè)計(jì)時(shí)器控件，名稱分別為 Text1 和 Timer1,在屬性窗口中把計(jì)時(shí)器的Interval 屬性設(shè)置為 1000， Enabled 屬性設(shè)置為 False,程序運(yùn)行后，如果單擊命令按鈕，則每隔一秒鐘在文本框中顯示一次當(dāng)前的時(shí)間。以下是實(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）在窗體上畫一個(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)任何窗體或過程 C)Sub Main 過程或其他任何模塊 D)Sub Main 過程或任何窗體 (25)假定建立了一個(gè)名為 Command1 的命令按鈕數(shù)組，則以下說(shuō)法中錯(cuò)誤的是 A)數(shù)組中每個(gè)命令按鈕的名稱 (名稱屬性 )均為 Command1 B)數(shù) 組中每個(gè)命令按鈕的標(biāo)題 (Caption 屬性 )都一樣 C)數(shù)組中所有命令按鈕可以使用同一個(gè)事件過程 D)用名稱 Command1(下標(biāo) )可以訪問數(shù)組中的每個(gè)命令按鈕 (26)把窗體的 Keypreview 屬性設(shè)置為 True，然后編寫如下事件過程 : 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)行后 ,按鍵盤上的 ”A”鍵 ,則在窗體上顯示的內(nèi)容是 A)A B)B C)C D)D 2022 年 9 月二級(jí) VB （ 19）在窗體上畫一個(gè)列表框和一個(gè)命令按鈕，其名稱分別為 List1 和 Command1，然后編寫如下事件過程： 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 事件過 程中參數(shù) Keyascii 的敘述中正確的是 A） Keyascii 參數(shù)是所按鍵的 ASCII 碼 B） Keyascii 參數(shù)的數(shù)據(jù)類型為字符串 C） Keyascii 參數(shù)可以省略 D） Keyascii 參數(shù)是所按鍵上標(biāo)注的字符 （ 30）設(shè)窗體上有一個(gè)名為 Text1 的文本框，并編寫如下程序： 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。 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?！?。以下正確的事件過程是 A） Private Sub Bigicon_Click() = False End Sub B） Private Sub Bigicon_Click() Me. = True 全國(guó)計(jì)算機(jī)等級(jí)考試二級(jí) VB 筆試試卷匯編 第 17 頁(yè) 共 81 頁(yè) End Sub C） Private Sub Bigicon_Click() = True End Sub D） Private Sub Bigicon_Click() = True End Sub （ 32）假定通用對(duì)話框的名稱為 Commondialog1，命令按鈕的名稱為 Command1，則單擊命令按鈕后，能使打開的對(duì)話框的標(biāo)題為 “New Title”的事件過程是 A） Private Sub Command1_Click() = New Title End Sub B） Private Sub Command1_Click() = New Title End Sub C） Private Sub Command1_Click() = New Title End Sub D） Private Sub Command1_Click() = New Title End Sub 填空題 2022 年 9 月二級(jí) VB (1) 在窗體上畫兩個(gè)標(biāo)簽，其名稱分別為 Label1和 Label2,Caption屬性分別為 “ 數(shù)值 ” 及空白；然后畫一個(gè)名稱為 Hscoll1的水平滾動(dòng)條，其 Min的值為 0， Max 的值為 100。程序運(yùn)行后，如果單擊滾動(dòng)條兩端的箭頭，則在標(biāo)簽 Lable2 中顯示滾動(dòng)條的值 ，如圖所示。請(qǐng)?jiān)? [1] 和 [2] 處填入適當(dāng)?shù)膬?nèi)容，將程序補(bǔ)充完整。 全國(guó)計(jì)算機(jī)等級(jí)考試二級(jí) VB 筆試試卷匯編 第 18 頁(yè) 共 81 頁(yè) Private Sub Hscroll1_ [1] () =Hscroll1. [2] End Sub (2) 在窗體上畫一個(gè)名稱為 Command標(biāo)題為 “ 計(jì)算 ” 的命令按鈕；畫兩個(gè)文 本框，名稱分別為 Text1和Text2；然后畫 4個(gè)標(biāo)簽，名稱分別為 Label Label Label3和 Label4，標(biāo)題分別為 “ 操作數(shù) 1” 、“ 操作數(shù) 2” 、 “ 運(yùn)算結(jié)果 ” 和空白；再建立一個(gè)含有 4個(gè)單選按紐的控件數(shù)組，名稱為 Option1，標(biāo)題分別為 “+” 、 “ ” 、 “*” 和 “/” 。程序運(yùn)行后，在 Text Text2中輸入兩個(gè)數(shù)值，選中一個(gè)單選按鈕后單擊命令按鈕，相應(yīng)的計(jì)算結(jié)果顯示在 Label4，程序運(yùn)行情況如圖所示。請(qǐng)?jiān)? [3] 、 [4] 和 [5] 處填入適當(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