【正文】 的按下與釋放 (27) 以下敘述中錯誤的是 A) 在同一窗體的菜單項中，不允許出現(xiàn)標題相同的菜單項 B) 在菜單的標題欄中，“ amp?！彼龑У淖帜钢该髁嗽L問該菜單項的訪問鍵 C) 程序運行過程中，可以重新設置菜單的 Visible 屬性 D) 彈出式菜單也在菜單編輯器中定義 (28) 設在菜單編輯器中定義了一個菜單項，名為 menu1。為了在運行時隱藏該菜單項，應使用的語句是 A) =True B) =False C) =True D) =False (29) 以下敘述中錯誤的是 A) 在程序運行時，通用對話框控件是不可見的 B) 在同一個程序中，用不同的方法 (如 ShowOpen 或 ShowSave 等）打開的通用對話框具有不同的作用 C) 調用通用對話框控件的 ShowOpen 方法，可以直接打開在該通用對話框中指定的文件 D) 調用通用對話框控件的 ShowColor 方法，可以打開顏色對話框 (30) 在用通用對話框控件建立“打開”或“保存”文件對話框時 ，如果需要指定文件列表框所列出的文件類型是文本文件 (即 .txt 文件 )，則正確的描述格式是 A) “ text (.txt)|(*.txt)” B)“文本文件 ( .txt) | (.txt)” C) “ text(.txt)||(*.txt)” D)“ text(.txt)(*.txt)” (31) 以下敘述中錯誤的是 A) 一個工程中只能有一個 Sub Main 過程 B) 窗體的 Show 方法的作用是將指定的窗體裝入內存并顯示該窗體 C) 窗體的 Hide 方法和 Unload 方法的作用完全相同 D) 若工程文件中有多 個窗體，可以根據(jù)需要指定一個窗體為啟動窗體 (32) 以下敘述中錯誤的是 A) 一個工程中可以包含多個窗體文件 B) 在一個窗體文件中用 Private 定義的通用過程能被其他窗體調用 C) 在設計 VB 程序時，窗體、標準模塊、類模塊等需要分別保存為不同類型的磁盤文件 D) 全局變量必須在標準模塊中定義 (33) 設在工程中有一個標準模塊，其中定義了如下記錄類型 Type Books Name As String *10 TelNum As String *20 End Type 在窗體上畫一個名為 Command1 的命令按鈕。要求當執(zhí)行事件過程 Command1_Click 時，在順序文件 中寫入一條記錄。下列能夠完成該操作的事件過程是 A) Private Sub Command1_Click() Dim B As Books Open “ c:\” For Output As 1 =InputBox(“輸入姓名” ) =InputBox(“輸入電話號碼” ) Write 1, Close 1 End Sub B) Private Sub Command1_Click() Dim B As Books Open “ c:\” For Input As 1 =InputBox(“輸入姓名” ) =InputBox(“輸入電話號碼” ) Print 1, Close 1 End Sub C) Private Sub Command1_Click() Dim B As Books Open “ c:\” For Output As 1 =InputBox(“輸入姓名” ) =InputBox(“輸入電話號碼” ) Write 1,B Close 1 End Sub D) Private Sub Command1_Click() Open “ c:\” For Input As 1 Name=InputBox(“輸入姓名” ) TelNum=InputBox(“輸入電話號碼” ) Print 1,Name,TelNum Close 1 End Sub (34) 以下敘述中正確的是 A) 一個記錄中所 包含的各個元素的數(shù)據(jù)類型必須相同 B) 隨機文件中每個記錄的長度是固定的 C) Open 命令的作用是打開一個已經(jīng)存在的文件 D) 使用 Input 語句可以從隨機文件中讀取數(shù)據(jù) (35) 目錄列表框的 Path 屬性的作用是 A) 顯示當前驅動器或指定驅動器上的目錄結構 B) 顯示當前驅動器或指定驅動器上的某目錄下的文件名 C) 顯示根目錄下的文件名 D) 顯示該路徑下的文件 二、填空題 ( 每空 2 分，共 40 分） 請將每空的正確答案寫在答題卡 ( 1)至 ( 15) 的橫線上，答在試卷上不得分。 (1) 在窗體上 畫兩個標簽，其名稱分別為 Label1 和 Label2,Caption 屬性分別為“數(shù)值”及空白；然后畫一個名稱為 Hscoll1 的水平滾動條，其 Min 的值為 0， Max 的值為 100。程序運行后，如果單擊滾動條兩端的箭頭，則在標簽 Lable2 中顯示滾動條的值，如圖所示。請在 [1] 和 [2] 處填入適當?shù)膬热?，將程序補充完整。 Private Sub HScroll1_ [1] () =HScroll1. [2] End Sub (2) 在窗體上畫一 個名稱為 Command標題為“計算”的命令按鈕；畫兩個文本框，名稱分別為 Text1和 Text2；然后畫 4個標簽，名稱分別為 Label Label Label3和 Label4，標題分別為“操作數(shù) 1”、“操作數(shù) 2”、“運算結果”和空白；再建立一個含有 4 個單選按紐的控件數(shù)組，名稱為 Option1，標題分別為“ +”、“ ”、“ *”和“ /”。程序運行后，在 Text Text2 中輸入兩個數(shù)值，選中一個單選按鈕后單擊命令按鈕，相應的計算結果顯示在 Label4，程序運行情況如圖所示。請在 [3] 、 [4] 和 [5] 處填入適當?shù)膬热荩瑢⒊绦蜓a充完整。 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()Val() Case” *” Result=Val()*Val() Case” /” Result=Val()/Val() End Select [5] =Result End Sub (3) 在窗體上畫一個名稱為 Command1 的命令按鈕和一個名稱為 Text1 的文本框。程序運行后， Command1 為禁用 (灰色 ) 。當向文框中輸入任何字符時，命令按鈕 Command1 變?yōu)榭捎?。請? [6] 處填入適當?shù)膬热?，將程序補充完整。 Private Sub Form_Load() =False End Sub Private Sub Text1_ [6] () =True End Sub (4) 在菜單編輯器中建立了一個菜單，名為 pmenu，用下面的語句可以把它作為彈出式菜單彈出，請?zhí)羁铡? Form1. [7] Pmenu (5) 以下程序的功能是：從鍵盤上輸入若干個學生的考試分數(shù)，當輸入負數(shù)時結束輸入，然后輸出其中的最高分數(shù)和最低分數(shù)。請在 [8] 和 [9] 處填入適當?shù)膬热?，將程序補充完整。 Private Sub Form_Click() Dim x As Single,amax As Single,amin As Single x=InputBox(“ Enter a score” ) amax=x amin=x Do While [8] If xamax Then Amax=x End If If [9]Then Amin=x End If x=InputBox(“ Enter a score” ) Loop Print” Max=” 。amax,” Min=” 。amin End Sub (6) 在窗體上畫一個文本框和一個圖片框， 然后編寫如下兩個事件過程： Private Sub Form_Load() =”計算機” End Sub Private Sub Text1_Change() “等級考試” End Sub 程序運行后，在文本框中顯示的內容是 [10] ，而在圖片框中顯示的內容是 [11] 。 (7) 在窗體上畫一個命令按鈕，其名稱為 Command1，然后編寫如下程序： Function M(x As Integer,y As Integer)As Integer M=IIf(xy,x,y) End Function Private Sub mand1_Click() Dim a As Integer,b As Integer a=100 b=200 Print M(a,b) End Sub 程序運行后，單擊命令按鈕，輸出結果為 [12] 。 (8) 為了改變計時器控件的時間間隔，應該修改該控件的 [13] 屬性。 (9) 在窗體上畫一個名稱為 Lable1 的標簽和一個名稱為 List1 的列表框。程序運行后，在列表框中添加若干列表項。當雙擊列表框中的某個項目時，在標簽 Label1 中顯示所選中的項目，如圖所示。請在 [14] 和 [15] 處填入適當?shù)膬热輰⒊绦蜓a充完整。 Private Sub Form_load() ”北京” ”上?！? ”湖北” End Sub Private Sub [14] () = [15] End Sub 評分標準和參考答案 一、 一、 選擇題（ (1)— (20)每小題 2 分， (21)— (30)每小題 2 分，共 70 分 ） (1) (1) C (2) (2) A (3) (3) C (4) (4) A (5) (5) D (6) (6) B (7) (7) B (8) (8) D (9) (9) D (10) (10) B (11) (11) D (12) (12) D (13) (13) D (14) (14) C (15) (15) A (16) (16) B (17) (17) B (18) (18) C (19) (19) A (20) (20) D (21) (21) C (22) (22) C (23) (23) B (24) (24) B (25) (25) C (26) (26) D (27) (27) A (28) (28) D (29) (29) C (30) (30) A (31) (31) C (32) (32) B (33) (33) A (34) (34) B (35) (35) A 二、填空題 (每空 2 分 ,共 20 分 ) 【 1】 Change 【 2】 Value 【 3】 Option(i).Value 【 4】 opt 【 5】 或 或 或 【 6】 Change 【 7】 PopupMenu 【 8】 x=0 【 9】 xamin 或 x=aminx或 amin=x 【 10】 計算機 【 11】 等級考試 【 12】 200 【 13】 Interval 【 14】 List1_DblClick 或 或 【 15】 或 List1 或 或 或 或 20xx1全國計算機等級考試二級筆試試卷 Visual Basic 語言程序設計 （考試時間 120 分鐘，滿分 100 分） 一、選擇題（ (1)— (20)每小題 2分， (21)— (30)每小題 2 分，共 70分） 下列各題 A) 、 B)、 C)、 D)四個選項中，只有一個選項是正確的，請將正確選項涂寫在答題卡相應位置上，答在試卷上不得分。 (1) (1) 以下不能在“工程資源管理器”窗口中列出的文件類型是 A) .bas B) .res C) .frm D) .ocx (2) (2) 以下關于窗體的描述中，錯誤的 是 A) 執(zhí)行 Unload Form1 語句后，窗體 Form1 消失，但仍在內存中 B) 窗體的 Load 事件在加載窗體時發(fā)生 C) 當窗體的 Enabled 屬性為 False 時，通過鼠標和鍵盤對窗體的操作都被禁止 D) 窗體的 Height、 Width 屬性用于設置窗體的高和寬 (3) (3) 下列可作為 Visual Basic 變量名的是 A） AA B） 4A C） ?xy D) constA (4) (4) 設有如下的記錄類型 T