【正文】 Print Visual Basic。要求單擊命令按鈕時，打開一個保存文件的通用對話框。程序為： Private Sub Timer1_ __() =Time End Sub 在下劃線上應(yīng)填入的內(nèi)容是 A) Enabled B) Visible C) Interval D) Timer (13) 在窗體上畫兩個單選按鈕，名稱分別為 Option Option2，標(biāo)題分別為 “宋體 ”和 “黑體 ”；一個復(fù)選框，名稱 為 Check1,標(biāo)題為 “粗體 ”；一個文本框，名稱為 Text1， Text 屬性為 “改變文字字體 ”。為了在運行時隱藏該菜單項，應(yīng)使用 的語句是 A) =True B) =False C) =True D) =False (29) 以下敘述中錯誤的是 A) 在程序運行時，通用對話框控件是不可見的 B) 在同一個程序中，用不同的方法 (如 Showopen 或 Showsave 等）打開的通用對話框具有不同的作用 C) 調(diào)用通用對話框控件的 Showopen 方法，可以直接打開在該通用對話框中指定的文件 D) 調(diào)用通用對話框控件的 Showcolor 方法，可以打開顏色對話框 (30) 在用通用對話框控件建立 “打開 ”或 “保存 ”文件對話框時，如果需要指定文件列表框所列出的文件類型是文本文件 (即 .Txt 文件 )，則正確的描述格式是 A) “Text (.Txt)|*.Txt)” B)“文本文件 ( .Txt) | (.Txt)” C) “Text(.Txt)||(*.Txt)” D)“Text(.Txt)(*.Txt)” 2022 年 4 月二級 VB （ 9）表示滾動條控件取值范圍最大值的屬性是 A） Max B） Largechange C） Value D） MaxMin （ 10）在窗體上畫一個名稱為 List1 的列表框，一個名稱為 Label1 的標(biāo)簽。則以下能表示當(dāng)前被選中的列表項內(nèi)容的是 A） B） C） D） List1. Text （ 9）程序運行后，在窗體上單擊鼠標(biāo)，此時窗體不會接收到的事件是 A） Mousedown B） Mouseup C） Load D） Click （ 11）如果要改變窗體的標(biāo)題，則需要設(shè)置的屬性是 A） Caption B） Name C） Backcolor D） Borderstyle （ 14）窗體的 Mousedown事件過程 Form_Mousedown (Button As Integer, Shift As Integer, X As Single, Y As Single) 有 4個參數(shù)，關(guān)于這些參數(shù)，正確的描述是 A）通過 Button參數(shù)判定當(dāng)前 按下的是哪一個鼠標(biāo)鍵 B） Shift參數(shù)只能用來確定是否按下 Shift鍵 C） Shift參數(shù)只能用來確定是否按下 Alt和 Ctrl鍵 全國計算機等級考試二級 VB 筆試試卷匯編 第 7 頁 共 81 頁 D）參數(shù) X,Y用來設(shè)置鼠標(biāo)當(dāng)前位置的坐標(biāo) （ 15）設(shè)組合框 Combo1中有 3個項目，則以下能刪除最后一項的語句是 A） Text B） 2 C） 3 D） （ 16）以下關(guān)于焦點的敘述中，錯誤的是 A） 如果文本框的 Tabstop屬性為 False，則不能接收從鍵盤上輸入的數(shù)據(jù) B）當(dāng)文本框失去焦點時，觸發(fā) Lostfocus事件 C）當(dāng)文本框的 Enabled屬性為 False時，其 Tab順序不起作用 D）可以用 Tabindex屬性改變 Tab順序 （ 17）如果要在菜單中添加一個分隔線，則應(yīng)將其 Caption 屬性設(shè)置為 A） = B） * C） amp。以下能實現(xiàn)該操作的事件過程是 A) Private Sub Text1_Keypress(Keyascii As Integer) If Keyascii 65 Or Keyascii 90 Then Msgbox 請輸入大寫字母 Keyascii = 0 End If End Sub B) Private Sub Text1_Keydown(Keycode As Integer, Shift As Integer) If Keycode 65 Or Keycode 90 Then Msgbox 請輸入大寫字母 Keycode = 0 End If End Sub C) Private Sub Text1_Mousedown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Asc() 65 Or Asc() 90 Then Msgbox 請輸入大寫字母 End If End Sub D) Private Sub Text1_Change() If Asc() 64 And Asc() 91 Then Msgbox 請輸入大寫字母 End If End Sub 2022 年 9 月二級 VB (1) 設(shè)窗體上有一個文本框，名稱為 Text1,程序運行后，要求該文本框不能接受鍵盤輸入，但能輸出信息，以下屬性設(shè)置正確的是： A)=0 B)=False C)= False D)=0 (2) 以下能在窗體 Form1的標(biāo)題欄中顯示 “Visualbasic 窗體 的語句是 全國計算機等級考試二級 VB 筆試試卷匯編 第 11 頁 共 81 頁 A) =Visualbasic 窗體 B) =Visualbasic窗體 C) =Visualbasic窗體 D) =Visualbasic 窗體 ” (3) 在窗體上畫一個名稱為 Text1 的文本框，然后畫一個名稱為 Hscroll1的滾動條，其 Min和 Max屬性分別為 0和 100。 編寫如下程序： 全國計算機等級考試二級 VB 筆試試卷匯編 第 13 頁 共 81 頁 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 程序運行后，單擊 “ 開始 ” 按鈕，標(biāo)簽在窗體中移動。程序運行后，如果單擊滾動條兩端的箭頭，則在標(biāo)簽 Lable2 中顯示滾動條的值，如圖所示。請在 [6] 處填入適當(dāng)?shù)膬?nèi)容，將程序補充完整。 （ 5）計時器控件能有規(guī)律的以一定時間間隔觸發(fā) 【 5】 事件，并執(zhí)行該事件過程中的程序代碼。 （ 5）在窗體上畫一個列表框、一個命令按鈕和一個標(biāo)簽，其名稱分別為 List Command1 和 Label1，通過屬性窗口把列表框中的項目設(shè)置為： 第一個項目 、 第二個項目 、 第三個項目 、 第四個項目 。 (5) 將 C 盤根目錄下的圖形文件 裝入圖片框 Picture1 的語句是【 7】 。然后編寫如下 程序： Private Sub Command1_Click() For I=1 To 4 For J=0 To I Print Chr$(65+I)。單擊命令按鈕時，執(zhí)行如下事件過程： Private Sub Command1_Click() A$ = Software And Hardware B$ = Right(A$, 8) C$ = Mid(A$, 1, 8) Msgbox A$, , B$, C$, 1 End Sub 則在彈出的信息框的標(biāo)題欄中顯示的信息是 A） Software And Hardware B） Software C） Hardware D） 1 （ 8）執(zhí)行語句： A = Inputbox(Today, Tomorrow, Yesterday, , , Day Before Yesterday, 5) 將顯示一個輸入對話框，在對話框的輸入?yún)^(qū)中顯示的信息是 A） Today B） Tomorrow C） Yesterday D） Day Before Yesterday （ 17）以下敘述中錯誤的是 A）用 Shell 函數(shù)可以調(diào)用能夠在 Windows 下運行的應(yīng)用程序 B）用 Shell 函數(shù)可以調(diào)用可執(zhí)行文件，也可以調(diào)用 Visual Basic 的內(nèi)部函數(shù) C）調(diào)用 Shell 函數(shù)的格式應(yīng)為： 變量名 =Shell (……) D）用 Shell 函數(shù)不能執(zhí)行 DOS 命令 2022 年 9 月二級 VB （ 6）以下能正確定義數(shù)據(jù)類型 Telbook的代碼是 A） Type Telbook B） Type Telbook Name As String*10 Name As String*10 Telnum As Integer Telnum As Integer End Type End Telbook C） Type Telbook D） Typedef Telbook Name String*10 Name String*10 Telnum Integer Telnum Integer End Type Telbook End Type （ 7）以下聲明語句中錯誤的是 A） Const Var1=123 B） Dim Var2 = 39。 (2) 在菜單編輯器中建立一個菜單 ，其主菜單項的名稱為 Mnuedit， Visible 屬性為 False，程序運行后，如全國計算機等級考試二級 VB 筆試試卷匯編 第 22 頁 共 81 頁 果用鼠標(biāo)右鍵單擊窗體，則彈出與 Mnuedit 相應(yīng)的菜單。 Private Sub Combo1_ 【 12】 (Keyascii As Integer) If Keyascii = 13 Then For I = 0 To If = 【 13】 Then = 輸入項已在組合框中 Exit Sub End If Next I = 已成功添加輸入項 Combo1. 【 14】 End If End Sub 2022 年 9 月二級 VB （ 2）把窗體的 Keypreview屬性設(shè)置為 True，然后編寫如下兩個事件過程： 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 程序運行后，如果直接按鍵盤上的 A鍵（即不按住 Shift 鍵），則 在窗體上輸出的字符分別是 【 3】 和 【 4】 。程序運行后，在列表框中添 加若干列表項。請在 [3] 、 [4] 和 [5] 處填入適當(dāng)?shù)膬?nèi)容，將程序補充完整。以下是實現(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 中裝入了一個圖形，為了清除該圖形（不刪除圖片框），應(yīng)采用的正確方法是： A)選擇圖片框，然后按 Del 鍵 B)執(zhí)行語句 =Loadpicture(“”) C)執(zhí)行語句 =”” D)選擇圖片框，在屬性窗口中選擇 Picture 屬性，然后按回車鍵 （ 20） 在窗體上畫一個 List1 的列表框，一個名稱為 Label1 的標(biāo)簽，列表框中顯示若干個項目，當(dāng)單擊列表框中的某個項目時，在標(biāo)簽中顯示被選中的項目的名稱，下列能正確實現(xiàn)上述操作的程序是 A) Private Sub List1_Click() = End Sub B) Private Sub List1_Click() = End Sub C) Private Sub List1_Click() = End Sub 全國計算機等級考試二級 V