2002年9月全國計算機等級考試二級(Visual Basic)筆試真題(含答案)

1、 2002年9月全國計算機等級考試二級（Visual Basic）筆試真題（含答案）（考試時間90分鐘，滿分100分）一、選擇題（135題每題2分，共70分）下列各題A）B）C）D）四個選項中，只有一個是正確的，請將正確選項涂寫在答題卡上，答在試卷上不得分。1、 在設(shè)計階段，當(dāng)雙擊窗體上的某個控件時，所打開的窗口是（ ）。A）工程資源管理器窗口 B）工具箱窗口 C）代碼窗口 D）屬性窗口2、 以下敘述中正確的是（）。A）窗體的Name屬性指定窗體的名稱，用來標(biāo)識一個窗體B）窗體的Name屬性的值是顯示在窗體標(biāo)題欄中的文本C）可以在運行期間改變對象的Name屬性的值D）對象的Name屬性值可以為

2、空3、 剛建立一個新的標(biāo)準(zhǔn)EXE工程后，不在工具箱中出現(xiàn)的控件是（）。A）單選按鈕 B）圖片框 C）通用對話框 D）文本框4、 設(shè)有如如變量聲明：Dim TestDate As Date為變量TestDate正確賦值的表達(dá)方式是（）。A）TestDate=1/1/2002# B）TestDate=#”1/1/2002” # C) TestDate=# date(“1/1/2002”) D) TestDate=format(“m/d/yy”,”1/1/2002”) 5、 設(shè)有如下聲明： Dim X AS Integer 如果Sgn(x)的值為-1，則x的值是（）。A）整數(shù) B）大于0的整數(shù) C）

3、等于0的整數(shù) D）小于0的數(shù)6、 在窗體上畫一個名稱為Commandl的命令按鈕，然后編寫如下程序：Private Sub command1_click() Static x As Integer Static y As Integer Cls y = 1 y = y + 5 x = 5 + x Print x, yEnd Sub程序運行時，三次單擊命令按鈕command1后，窗體上顯示的結(jié)果為（）。A)15 16 B)15 6 C)15 15 D)5 67、 設(shè)a=3,b=5，則以下表達(dá)式值為真的是（）。A)a=b And b10 B) (ab) or (b0) C) (a0) D) (-3

4、=5a) And (b0)8、 設(shè)有語句 x=inputbox (“輸入數(shù)值”，“0”，“示例”)程序運行后，如果從鍵盤上輸入數(shù)值10并按回車鍵，則下列敘述中正確的是（）。A）變量x的值是數(shù)值10 B）在inputbox對話框標(biāo)題欄中顯示的是“示例”C）0是默認(rèn)值D）變量x的值是字符串“10”9、 從鍵盤上輸入兩個字符串，分別保存在變量Str1、Str2中。確定第二個字符串在第一個字符串中起始位置的函數(shù)是（）。 A)Left B)Mid C)String D)Instr 10. 設(shè)a=”Visualo Basic”,下面使b=”Basic”的語句是（）。A）b=left(a,8,12) B)b

5、=mid(a,8,5)C) b=right(a,5,5) D)b=left(a,8,5)11.能夠觸發(fā)文本框Chang事件的操作是（）。A）文本框失去焦點B）文本框獲得焦點C）設(shè)置文本框的焦點D）改變文本框的內(nèi)容12.在窗體上有一個文本框控作，名稱為TxtTime;一個計時器控作，名稱為T imer1,要求每一秒鐘在文本框中顯示一次當(dāng)前的時間。程序為：private sub timer1_ TxtTime.text=TimeEnd sub在下劃線上應(yīng)填入的內(nèi)容是（）。A）Enabled B)VisibleC)Interval D)Timer13、在窗體上劃兩個單選按鈕，名稱分別為Option1

6、、Option2,標(biāo)題分別為 “宋體”和“黑體”；一個復(fù)選框，名稱為Check,標(biāo)題為“粗體“；一個文本框，名稱為Text1,Text屬性為“改變文字字體”。要求程序運行時，“宋體”單選按鈕和“粗體”復(fù)選框被選中（窗體外觀如下圖），則能夠?qū)崿F(xiàn)上述要求的語句序列是（）。A）option1.value=true B)option1.value=true Check1.value=false check1.value=trueC) option2.value=false D)option1.value=true Check1.value=true check1.value=114、 為了在按下ESC

7、鍵時執(zhí)行某個命令按鈕的Click事件過程，需要把該命令按鈕的一個屬性設(shè)置為true,這個屬性是（）。A）Value B）Default C)Cancel D)Enabled15、 在窗體上劃一個命令按鈕，名稱為Command1。然后編寫如下程序：Private Sub command1_click() For I = 1 To 4 For j = 0 To I Print Chr$(65 + I); Next j Print Next IEnd Sub程序運行后，如果單擊命令按鈕，則在窗體上顯示的內(nèi)容（）。A）BB B）A CCC BB DDDD CCC EEEEE DDDDC）B D）AA

8、CC BBB DDD CCCC EEEE DDDDD16、 圖象框有一個屬性，可以自動調(diào)整圖形的大小，以適應(yīng)圖象框的尺寸，這個屬性是（）。A）Autosize B)Stretch C)Autoredraw D)Appearance17、 在窗體上畫兩個名稱分別為Text1、Text2的文本框和一個名稱為Command1的命令按鈕，然后編寫如下事件過程：Private Sub command1_click() Dim x As Integer, n As Integer x = 1 n = 0 Do While x 10 Then Exit For Next Text1.Text = Str(n

9、)End Sub程序運行后，單擊命令按鈕，在文本框中顯示的值是（）。A）2 B）3 C）4 D）519、 在窗體上劃一個名稱為text1的文本框和一個名稱為command1的命令按鈕，然后編寫如下事件過程：Private Sub command1_click()Dim array1(10, 10) As IntegerDim I, j As IntegerFor I = 1 To 3 For j = 2 To 4 array1(I, j) = I + j Next jNext IText1.Text = array1(2, 3) + array1(3, 4)End Sub程序運行后，單擊命令按

10、鈕，在文本框中顯示的值是（）。A）12 B）13 C）14 D）1520、 在窗體上劃一個名稱為command1的命令按鈕，然后編寫如下程序：Private Sub command1_click() Dim i As Integer, j As Integer Dim a(10, 10) As Integer For i = 1 To 3 For j = 1 To 3 a(i, j) = (i - 1) * 3 + j Print a(i, j); Next j Print Next iEnd Sub程序運行后，單擊命令按鈕，窗體顯示的是（）。A）123 B）234 C）147 D）123 2

11、46 345 258 456 369 456 369 78921、 設(shè)有如下程序：Option Base 0Private Sub form_click() Dim a Dim I As Integer a = Array(1, 2, 3, 4, 5, 6, 7, 8, 9) For I = 0 To 3 Print a(5 - I); Next IEnd Sub程序運行后，單擊窗體，則在窗體上顯示的是（）。A）4321 B）5432 C）6543 D）765422、 下列敘述中正確的是（）。A） 在窗體的FORM_LOAD 事件過程中定義的變量是局部變量B） 局部變量的作用域可以超出所定義的

12、過程C） 在某個Sub過程中定義的局部變量可以與其他事件過程中定義的局部變量同名，但其作用域只限于該過程D） 在調(diào)用過程時，所有局部變量被系統(tǒng)初始化為0或空字符串 23、在窗體上畫一個命令按鈕，命名為Command1，程序運行后，如果單擊命令按鈕，則顯示一個輸入框，在該對話框中輸入一個整數(shù)，并用這個整數(shù)作為實參調(diào)用函數(shù)過程F1，在F1中判斷所輸入的整數(shù)是否是奇數(shù)，如果是奇數(shù)，過程F1返回1，否則返回0。能夠正確實現(xiàn)上述功能的代碼是（）。A)Private Sub command1_click() x = InputBox(請輸入整數(shù)) a = F1(Val(x) Print aEnd SubF

13、unction F1(ByRef b As Integer) If b Mod 2 = 0 Then rerurn 0 Else rerurn 1 End IfEnd FunctionB) Private Sub command1_click() x = InputBox(請輸入整數(shù)) a = F1(Val(x) Print aEnd SubFunction F1(ByRef b As Integer) If b Mod 2 = 0 Then F1 = 0 Else F1 = 1 End IfEnd FunctionC)Private Sub command1_click() x = Inpu

14、tBox(請輸入整數(shù)) a = F1(Val(x) Print aEnd SubFunction F1(ByRef b As Integer) If b Mod 2 = 0 Then F1 = 1 Else F1 = 0 End IfEnd FunctionD) Private Sub command1_click() x = InputBox(請輸入整數(shù)) a = F1(Val(x) Print aEnd SubFunction F1(ByRef b As Integer) If b Mod 2 = 0 Then rerurn 0 Else rerurn 1 End IfEnd Functi

15、on24、在窗體上畫一個名稱為command1的命令按鈕和一個名稱為Text1的文本框，然后編寫如果程序。Private Sub command1_click() Dim x, y, z As Integer x = 5 y = 7 z = 0 Text1.Text = Call p1(x, y, z) Text1.Text = Str(z)End SubSub p1(ByVal a As Integer, ByVal b As Integer) C = a + bEnd Sub程序運行后，如果單元擊命令按鈕，則在文本框中顯示的內(nèi)容是（）。 A）0 B)12 C)str(z) D)沒有顯示25

16、、以下敘述中錯誤的是（）。A） 如果過程被定義為Static類型，則該過程中的局部隊變量都是STATIC類型。B） SUB過程中不能嵌套定義Sub過程C） SUB過程中可以嵌套調(diào)用Sub過程D） 事件過程可以像通用過程一樣由用戶定義過程名。26、以下敘述中錯誤的是（）。A） 在Keyup和Keydown事件過程中，從鍵盤上輸入A或a被視作相同的字母B） 在Keyup和Keydown事件過程中，將鍵盤上的“1”和右側(cè)小鍵盤上的“1”視作的數(shù)字（具有不同的Keycode）C） Keypress事件中不能識別鍵盤上某個鍵的按下與釋放D） Keypress事件中能識別鍵盤上某個鍵的按下與釋放27、以下

17、敘述中錯誤的是（）。A） 在同一窗體的菜單中，不允許出現(xiàn)標(biāo)題相同的菜單項B） 在菜單的標(biāo)題中，“&”所引導(dǎo)的字母指明了訪問該菜單項的訪誤碼鍵C） 程序運行過程中，可以重新設(shè)置菜單的Visible屬性D） 彈出式菜單也在菜單編輯器中定義。28、設(shè)在菜單編輯器中定義了一個菜單項，名為Menu1為了在運行時隱藏該菜單項應(yīng)使用的語句是（）。A）Menu1.Enabled=True B）Menu1.Enabled =FalseC）Menu1. Visible= True D）Menu1. Visible= False29、以下敘述中錯誤的是（）。A） 在程序運行時，通用對話框控件是不可見的。B） 在同一

18、個程序中，用不同的方法打開的通用對話框具有不同的作用C） 調(diào)用通用對話框控件的ShowOpen方法，可以直接打開在該通用對話框中指定的文件D） 調(diào)用通用控件時ShowColor方法，可以打開顏色對話框30、在用通用對話框建立“打開”或“保存”文件對話框時，如果需要指定文件列表框所列出的文件類型是文本文件（即*.txt文件），則正確的描述格式是（）。A）”text（.txt）|（*. txt）” B）“文本文件（. txt）|（. txt）”C）“text（. txt）|（*. txt）” D）“文本文件（. txt）|（*. txt）”31、以下敘述中錯誤的是（）。A） 一個工程中只能有一個S

19、UBMAIN過程B） 窗體的Show方法的作用是將指定的窗體裝入內(nèi)存并顯示該窗體C） 窗體的Hide方法和Unload方法的作用完全相同D） 若工程文件中有多個窗體，可以根據(jù)需要指定一個窗體為啟動窗體32、以下敘述中錯誤的是（）。A） 一個工程中可以包含多個窗體文件B） 在一個窗體文件中有Private定義的通用過程能被其他窗體調(diào)用C） 在設(shè)計VB程序時，窗體、標(biāo)準(zhǔn)模塊、類模塊等需要分別保存為不同類型的磁盤文件D） 全局變量必須在標(biāo)準(zhǔn)模塊戶定義33、設(shè)在工程中有一個標(biāo)準(zhǔn)模塊，其中定義了如下記錄類型：Type Books Name As String *10 TelNum As String *

20、20EndTyPe在窗體上畫一個名為Commandl的命令按鈕，要求當(dāng)執(zhí)行事件過程Commandl_click時，在順序文件Person.txt中寫入一條記錄。下列能夠完成該操作的事件過程是（）。A） Private Sub Commandl_Click()Dim B As BooksOpen “c:person.txt” For Output As #1B.Name=InputBox(“輸入姓名“)B.TelNum=InputBox(“輸入電話號碼“)Write #1,B.Name,B.TelNumClose #1End SubB） Private Sub Commandl_Click()D

21、im B As BooksOpen “c:person.txt” For Output As #1B.Name=InputBox(“輸入姓名“)B.TelNum=InputBox(“輸入電話號碼“)Print #1,B.Name,B.TelNumClose #1End SubC） Private Sub Commandl_Click()Dim B As BooksOpen “c:person.txt” For Output As #1B.Name=InputBox(“輸入姓名“)B.TelNum=InputBox(“輸入電話號碼“)Write #1,BClose #1End SubD） Pri

22、vate Sub Commandl_Click()Dim B As BooksOpen “c:person.txt” For Output As #1B.Name=InputBox(“輸入姓名“)B.TelNum=InputBox(“輸入電話號碼“)Print #1,Name,TelNumClose #1End Sub34、以下敘述中正確的是（）。A） 一個記錄中所包含的各個元素的數(shù)據(jù)類型必須相同B） 隨機文件中每個記錄的長度是固定的C） Open命令的作用是打開一個已經(jīng)存在的文件D） 使用Input#語句可以從隨機文件中讀取數(shù)據(jù)35、目錄列表框的Path屬性的作用是（）。A） 顯示當(dāng)前驅(qū)動器

23、上的目錄結(jié)構(gòu)B） 顯示當(dāng)前驅(qū)動器或指定驅(qū)動器上的某目錄下的文件名C） 顯示根目錄下的文件名D） 顯示該路徑下的文件二、填空題（每空2分，共30分）請將每空的正確答案寫在答題卡1-15序號的橫線上，答在試卷上不得分。1 在窗體上畫兩個標(biāo)簽，其名稱分別為Labell1和Labell2,Caption屬性分別為“數(shù)值”及空白；然后畫一個名稱為Hscrokk1的水平滾動條，其Min的值為0，Max的值為100。程序運行后，如果單擊滾動條兩端的箭頭，則在標(biāo)簽Labell2可顯示滾動條的值，如圖所示。請在12處填入適當(dāng)?shù)膬?nèi)容，將程序補充完整。Private Sub Hscroll11 Labe12.Cap

24、tion=Hscroll1.2End Sub2在窗體上畫一個名稱為Command1、標(biāo)題為“計算”的命令按鈕；畫兩個文本框，名稱分別為Text1和Text2:然后畫4個標(biāo)簽，名稱分別為Label1、Label2、Label3和Label4其標(biāo)題分別為“操作數(shù)不清”、“操作數(shù)2”、“運算結(jié)果”和空白；再建立一個含有4個單選按鈕的控件數(shù)組，名稱為Optionl,標(biāo)題分別為“+”、“”、“*”和“/”。程序運行后，在Text1、Text2中輸入兩個數(shù)值，選中一個單選按鈕后單擊命令按鈕，相應(yīng)的計算結(jié)果顯示在Label4中，程序運行情況如圖所示。請在3、4和5處填入適當(dāng)?shù)膬?nèi)容，將程序補充完整。Priva

25、te Sub command_click() For I = 0 To 3 If 3 = True Then Opt = Option1(I).Caption End If Next I Select Case 4 Case + Result = Val(Text1.Text) + Val(Text2.Text) Case - Result = Val(Text1.Text) - Val(Text2.Text) Case * Result = Val(Text1.Text) * Val(Text2.Text) Case / Result = Val(Text1.Text) / Val(Text

26、2.Text) End Select 5=resultEnd Sub3在窗體上畫一個名稱為COMMAND1的命令按鈕和一個名稱為TEXT1的文本框。程序運行后，COMMAND1為禁用（灰色）。當(dāng)向文本框中輸入任何字符時，命令按鈕Command1變?yōu)榭捎?。請?處填入適當(dāng)?shù)膬?nèi)容，將程序補充完整。Private sub form_load()Command1.enabled=falseEnd subPrivate sub text1 6Command1.enabled=trueEnd sub4.在菜單編輯器中建立了一個菜單，名為pemnu，用下面的語句可以把它作為彈出式菜單彈出，請?zhí)羁?。Form1

27、. 7 pemnu5.以下程序的功能是：從鍵盤上輸入若干個學(xué)生的考試分?jǐn)?shù)，當(dāng)輸入負(fù)數(shù)時結(jié)束輸入，然后輸出其中的最高分?jǐn)?shù)和最低分?jǐn)?shù)。請在8和9處填入適當(dāng)?shù)膬?nèi)容，將程序補充完整。Private sub form_click()Dim x as single,amax as single,amin as singleX=inputbox(“enter a score”)Amax=xAmin=xDo while 8If xmax thenAmax=xEndifIf 9 then Amin=xEndifX=inputbox(“enter a score”)LoopPrint “max=”;amax,”min=”;aminEnd sub6.在窗體上畫一個文本框和一個圖片框，然后編寫如下兩個事件過程。Private sub form_load()Text1.text=”計算機”End subPrivate sub text1_change()