《二級VB筆試試卷 全國計算機等級考試》由會員分享，可在線閱讀，更多相關(guān)《二級VB筆試試卷 全國計算機等級考試（102頁珍藏版）》請在裝配圖網(wǎng)上搜索。

1、2003年9月全國計算機等級考試二級VB語言筆試試卷（含答案） 一、 選擇題（（1）~（20）每小題2分，（21）~（30）每小題3分，共70分） 　　 　?。?）以下敘述中錯誤的是 　　 　　A）Visual Basic 是事件驅(qū)動型可視化編程工具 　　 　　B）Visual Basic應用程序不具有明顯的開始和結(jié)束語句 　　 　　C）Visual Basic工具箱中的所有控件都具有寬度（Width）和高度（Height）屬性 　　 　　D）Visual Basic中控件的某些屬性只能在運行時設(shè)置 　　 　　（2）以下敘述中錯誤的是 　　 　　A）在工程資源管理

2、器窗口中只能包含一個工程文件及屬于該工程的其他文件 　　 　　B）以.BAS為擴展名的文件是標準模塊文件 　　 　　C）窗體文件包含該窗體及其控件的屬性 　　 　　D）一個工程中可以含有多個標準模塊文件 　　 　　（3）以下敘述中錯誤的是 　　 　　A）雙擊鼠標可以觸發(fā)DblClick事件 　　 　　B）窗體或控件的事件的名稱可以由編程人員確定 　　 　　C）移動鼠標時，會觸發(fā)MouseMove事件 　　 　　D）控件的名稱可以由編程人員設(shè)定 　　 　　（4）以下不屬于Visual Basic系統(tǒng)的文件類型是 　　 　　A）.frm B）.bat C）.

3、vbg D）.vbp 　　 　　（5）以下敘述中錯誤的是 　　 　　A）打開一個工程文件時，系統(tǒng)自動裝入與該工程有關(guān)的窗體、標準模塊等文件 　　 　　B）保存Visual Basic程序時，應分別保存窗體文件及工程文件 　　 　　C）Visual Basic應用程序只能以解釋方式執(zhí)行 　　 　　D）事件可以由用戶引發(fā)，也可以由系統(tǒng)引發(fā) 　　 　?。?）以下能正確定義數(shù)據(jù)類型TelBook的代碼是 　　 　　（資料來源：東方教育網(wǎng) ) 　　 　　A）Type TelBook B）Type TelBook 　　 　　Name As String*10 Name

4、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 EndType 　　 　　（7）以下聲明語句中錯誤的是 　　 　　A）Const var1=123 B）Dim var2 = 'ABC' 　　

5、　　C）DefInt a-z D）Static var3 As Integer 　　 　　（8）設(shè)窗體上有一個列表框控件Lis選中的列表項內(nèi)容的是t1，且其中含有若干列表項。則以下能表示當前被 　　 　　A）List1.List B）List1.ListIndex C）List1.Index D）List1. Text 　　 　?。?）程序運行后，在窗體上單擊鼠標，此時窗體不會接收到的事件是 　　 　　A）MouseDown B）MouseUp C）Load D）Click 　　 　?。?0）設(shè)a=10，b=5，c =1，執(zhí)行語句Print a > b > c后，窗體上顯示

6、的是 　　 　　A）True B）False C）1 D）出錯信息 　　 　?。?1）如果要改變窗體的標題，則需要設(shè)置的屬性是 　　 　　A）Caption B）Name C）BackColor D）BorderStyle 　　 　?。?2）以下能判斷是否到達文件尾的函數(shù)是 　　 　　A）BOF B）LOC C）LOFD）EOF 　　 　　（13）如果一個工程含有多個窗體及標準模塊，則以下敘述中錯誤的是 　　 　　A）如果工程中含有Sub Main過程，則程序一定首先執(zhí)行該過程 　　 　　B）不能把標準模塊設(shè)置為啟動模塊 　　 　　C）用Hide方法只是隱藏

7、一個窗體，不能從內(nèi)存中清除該窗體 　　 　　D）任何時刻最多只有一個窗體是活動窗體 　　 　?。?4）窗體的MouseDown事件過程 　　 　　Form_MouseDown (ButtSingle) 　　 　　on As Integer, Shift As Integer, X As Single, Y As 　　 　　有4個參數(shù)，關(guān)于這些參數(shù)，正確的描述是 　　 　　A）通過Button參數(shù)判定當前按下的是哪一個鼠標鍵 　　 　　B）Shift參數(shù)只能用來確定是否按下Shift鍵 　　 　　C）Shift參數(shù)只能用來確定是否按下Alt和Ctrl鍵 　　

8、 　　D）參數(shù)x,y用來設(shè)置鼠標當前位置的坐標 　　 　?。?5）設(shè)組合框Combo1中有3個項目，則以下能刪除最后一項的語句是 　　 　　A）Combo1.RemoveItem Text 　　 　　B）Combo1.RemoveItem2 　　 　　C）Combo1.RemoveItem 3 　　 　　D）Combo1.RemoveItemCombo1.Listcount 　　 　?。?6）以下關(guān)于焦點的敘述中，錯誤的是 　　 　　A）如果文本框的TabStop屬性為False，則不能接收從鍵盤上輸入的數(shù)據(jù) 　　 　　B）當文本框失去焦點時，觸發(fā)LostFoc

9、us事件 　　 　　C）當文本框的Enabled屬性為False時，其Tab順序不起作用 　　 　　D）可以用TabIndex屬性改變Tab順序 　　 　　（17）如果要在菜單中添加一個分隔線，則應將其Caption屬性設(shè)置為 　　 　　A）= B）* C）& D）- 　　 　　（18）執(zhí)行語句Open "數(shù)據(jù)能夠執(zhí)行的操作是Tel.dat" For Random As #1 Le 　　 　　n = 50后，對文件Tel.dat中的 　　 　　A）只能寫，不能讀 B）只能讀，不能寫 　　 　　C）既可以讀，也可以寫 D）不能讀，不能寫 　　 　?。?9）在窗

10、體上畫一個本框，然后編寫如下事件過 　　 　　名稱為Command1的命令按鈕和兩程：個名稱分別為Text1、Text2的文 　　 　　Private Sub Command1_Click() 　　 　　n = Text1.Text 　　 　　Select Case n 　　 　　Case 1 To 20 　　 　　x = 10 　　 　　Case 2, 4, 6 　　 　　x = 20 　　 　　Case Is < 10 　　 　　x = 30 　　 　　Case 10 　　 　　x = 40 　　 　　End Select 　　 　　

11、Text2.Text = x 　　 　　End Sub 　　 　　程序運行后，如果在文內(nèi)容是本框Text1中輸入10，然后單擊命令按鈕，則在Text2中顯示的 　　 　　A）10 B）20 C）30 D）40 　　 　　（20）設(shè)有以下循環(huán)結(jié)構(gòu) 　　 　　Do 　　 　　循環(huán)體 　　 　　Loop While <條件> 　　 　　則以下敘述中錯誤的是 　　 　　A）若"條件"是一個為0的常數(shù)，則一次也不執(zhí)行循環(huán)體 　　 　　B）"條件"可以是關(guān)系表達式、邏輯表達式或常數(shù) 　　 　　C）循環(huán)體中可以使用Exit Do語句 　　 　　D）如果"條件"

12、總是為True，則不停地執(zhí)行循環(huán)體 　　 　?。?1）在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下事件過程： 　　 　　Private Sub Command1_Click() 　　 　　Dim num As Integer 　　 　　num = 1 　　 　　Do Until num > 6 　　 　　Print num; 　　 　　num = num + 2.4 　　 　　Loop 　　 　　End Sub 　　 　　程序運行后，單擊命令按鈕，則窗體上顯示的內(nèi)容是 　　 　　A）1 3.4 5.8 B）1 3 5 　　 　　C

13、）1 4 7 D）無數(shù)據(jù)輸出 　　 　?。?2）在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下事件過程： 　　 　　Private Sub Command1_Click() 　　 　　Dim a As Integer, sAs Integer 　　 　　a = 8 　　 　　s = 1 　　 　　Do 　　 　　s = s + a 　　 　　a = a－1 　　 　　Loop While a <= 0 　　 　　Print s; a 　　 　　End Sub 　　 　　程序運行后，單擊命令按鈕，則窗體上顯示的內(nèi)容是 　　 　　A

14、） 7 9 B） 34 0 　　 　　C） 9 7 D）死循環(huán) 　　 　?。?3）設(shè)有如下通用過程： 　　 　　Public Function f(x As Integer) 　　 　　Dim y As Integer 　　 　　x = 20 　　 　　y = 2 　　 　　f = x * y 　　 　　End Function 　　 　　在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下事件過程： 　　 　　Private Sub Command1_Click() 　　 　　Static x As Integer 　　 　　x = 1

15、0 　　 　　y=5 　　 　　y = f(x) 　　 　　Print x; y 　　 　　End Sub 　　 　　程序運行后，如果單擊命令按鈕，則在窗體上顯示的內(nèi)容是 　　 　　A）10 5 B）20 5 　　 　　C）20 40 D）10 40 　　 　?。?4）設(shè)有如下通用過程： 　　 　　Public Sub Fun(a(), ByVal x As Integer) 　　 　　For i = 1 To 5 　　 　　x = x + a(i) 　　 　　Next 　　 　　End Sub 　　 　　在窗體上畫一個名稱為Text1的

16、文本下的事件過程：框和一個名稱為Command1的命令按鈕，然后編寫如 　　 　　Private Sub Command1_Click() 　　 　　Dim arr(5) As Variant 　　 　　For i = 1 To 5 　　 　　arr(i) = i 　　 　　Next 　　 　　n = 10 　　 　　Call Fun(arr(), n) 　　 　　Text1.Text = n 　　 　　End Sub 　　 　　程序運行后，單擊命令按鈕，則在文本框中顯示的內(nèi)容是 　　 　　A）10 B）15 C）25 D）24 　　 　?。?5

17、）在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下代碼： 　　 　　Option Base 1 　　 　　Private Sub Command1_Click() 　　 　　d = 0 　　 　　c = 10 　　 　　x = Array(10, 12, 21, 32, 24) 　　 　　For i = 1 To 5 　　 　　If x(i) > c Then 　　 　　d = d + x(i) 　　 　　c = x(i) 　　 　　Else 　　 　　d = d－c 　　 　　End If 　　 　　Next i 　　 　　

18、Print d 　　 　　End Sub 　　 　　程序運行后，如果單擊命令按鈕，則在窗體上輸出的內(nèi)容為 　　 　　A）89 B）99 C）23 D）77 　　 　?。?6）在窗體上畫兩個別為Label1、Label2、Labe顯示"A"、"B"、"A*B"等文Label3 　　 　　顯示A*B的計算結(jié)果。當單擊命令按鈕"計算"時Label3中。以下不能實現(xiàn)上滾動條，名稱分別為Hscroll1l3、Label4、Label5、Label6，字信息，標簽Label1、Label2分。如圖所示。當移動滾動框時，，對標簽Label1、Label2中顯示述功能的事件過程是、Hsc

19、roll2；六個標簽，名稱分其中標簽Label 　　 　　4~ Label6分別別顯示其右側(cè)的滾動條的數(shù)值，在相應的標簽中顯示滾動條的值的兩個值求積，并將結(jié)果顯示在 　　 　　A）Private Sub Command1_Click() 　　 　　Label3.Caption = Str(Val(Label1.Caption )*Val( Label2.Caption)) 　　 　　End Sub 　　 　　B）Private Sub Command1_Click() 　　 　　Label3.Caption = HScroll1.Value * HScroll2.Va

20、lue 　　 　　End Sub 　　 　　C）Private Sub Command1_Click() 　　 　　Label3.Caption = HScroll1 * HScroll2 　　 　　End Sub 　　 　　D）Private Sub Command1_Click() 　　 　　Label3.Caption = HScroll1. Text * HScroll2.Text 　　 　　End Sub 　　 　?。?7）在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下事件過程： 　　 　　Private Sub Command1_C

21、lick() 　　 　　For n = 1 To 20 　　 　　If n Mod 3 <> 0 Thenm = m + n \ 3 　　 　　Next n 　　 　　Print n 　　 　　End Sub 　　 　　程序運行后，如果單擊命令按鈕，則窗體上顯示的內(nèi)容是 　　 　　A）15 B）18 C）21 D）24 　　 　　（28）在窗體上畫一個名稱為Text1的文本框，并編寫如下程序： 　　 　　Private Sub Form_Load() 　　 　　Show 　　 　　Text1.Text = "" 　　 　　Text1.SetFoc

22、us 　　 　　End Sub 　　 　　Private Sub Form_MouY As Single)seUp(Button As Integer, Shift As 　　 　　Integer, X As Single, 　　 　?。ㄙY料來源：東方教育網(wǎng) ) 　　 　　Print "程序設(shè)計" 　　 　　End Sub 　　 　　Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) 　　 　　Print "Visual Basic"; 　　 　　End Sub 　　 　　程

23、序運行后，如果按"A"鍵，然后單擊窗體，則在窗體上顯示的內(nèi)容是 　　 　　A）Visual Basic B）程序設(shè)計 　　 　　C）A程序設(shè)計 D）Visual Basic程序設(shè)計 　　 　?。?9）設(shè)有如下程序： 　　 　　Private Sub Command1_Click() 　　 　　Dim sum As Double, xAs Double 　　 　　sum = 0 　　 　　n = 0 　　 　　For i = 1 To 5 　　 　　x = n / i 　　 　　n = n + 1 　　 　　sum = sum + x 　　 　　N

24、ext 　　 　　End Sub 　　 　　該程序通過For循環(huán)計算一個表達式的值，這個表達式是 　　 　　A）1+1/2+ 2/3+3/4+4/5 B）1+1/2+2/3+3/4 　　 　　C）1/2+2/3+3/4+4/5 D）1+1/2+1/3+1/4+1/5 　　 　　（30）以下有關(guān)數(shù)組定義的語句序列中，錯誤的是 　　 　　A） Static arr1(3) 　　 　　arr1(1) = 100 　　 　　arr1(2) = "Hello" 　　 　　arr1(3) = 123.45 　　 　　B）Dim arr2() As Integer

25、　　 　　Dim size As Integer 　　 　　Private Sub Command2_Click() 　　 　　size = InputBox("輸入：") 　　 　　ReDim arr2(size) 　　 　?。? 　　 　　End Sub 　　 　　C）Option Base 1 　　 　　Private Sub Command3_Click() 　　 　　Dim arr3(3) As Integer 　　 　?。? 　　 　　End Sub 　　 　　D）Dim n As Integer 　　 　　Priv

26、ate Sub Command4_Click() 　　 　　Dim arr4(n) As Integer 　　 　?。? 　　 　　End Sub 　　 　　二、填空題（每空2分，共30分） 　　 　?。?）執(zhí)行下面的程序段后，i的值為〖1〗 ，s的值為 〖2〗 。 　　 　　s = 2 　　 　　For i = 3.2 To 4.9 Step 0.8 　　 　　s = s + 1 　　 　　Next i 　　 　?。?）把窗體的KeyPreview屬性設(shè)置為True，然后編寫如下兩個事件過程： 　　 　　Private Sub Form_K

27、eyDown(KeyCode As Integer, Shift As Integer) 　　 　　Print Chr(KeyCode) 　　 　　End Sub 　　 　　Private Sub Form_KeyPress(KeyAscii As Integer) 　　 　　Print Chr(KeyAscii) 　　 　　End Sub 　　 　　程序運行后，如果直接分別是 〖3〗 和 〖4〗 。按鍵盤上的"A"鍵（即不按住Shift鍵），則在窗體上輸出的字符 　　 　?。?）在窗體上畫一個標簽（名稱為L寫如下幾個事件過程：abel1）和一個計時器（名稱為Tim

28、er1），然后編 　　 　　Private Sub Form_Load() 　　 　　Timer1.Enabled = False 　　 　　Timer1.Interval = 〖5〗 　　 　　End Sub 　　 　　Private Sub Form_Click() 　　 　　Timer1.Enabled = 〖6〗 　　 　　End Sub 　　 　　Private Sub Timer1_Timer() 　　 　　Label1.Caption = 〖7〗 　　 　　End Sub 　　 　　程序運行后，單擊窗體，將在標簽中 　　 　　填空。

29、顯示當前時間，每隔1秒鐘變換一次（見圖）。請 　　 　　—————————————————————— 　　 　　14：54：41 　　 　　—————————————————————— 　　 　?。?）在窗體上畫一個Label1和Command1，然后編文本框、一個標簽和一個命令按寫如下兩個事件過程：鈕，其名稱分別為Text1、 　　 　　Private Sub Command1_Click() 　　 　　S$ = InputBox("請輸入一個字符串") 　　 　　Text1.Text = S$ 　　 　　End Sub 　　 　　Private Sub

30、Text1_Change() 　　 　　Label1.Caption = UCase(Mid(Text1.Text, 7)) 　　 　　End Sub 　　 　　程序運行后，單擊命令"VisualBasic"，則在標簽按鈕，將顯示一個輸入對話框，中顯示的內(nèi)容是 〖8〗 　　 　　。如果在該對話框中輸入字符串 　　 　?。?）在窗體上畫一個列表框、一個Command1和Label1，通過屬性窗口把列表、"第三個項目"、"第四個項目"。程序運鈕，即可將所選擇的項目刪除，并在標簽選擇"第三個項目"的情況)。下面是實現(xiàn)命令按鈕和一個標簽，其名稱分別為List1、框中的項目設(shè)置為：

31、"第一個項目"、"第二個項目"行后，在列表框中選擇一個項目，然后單擊命令按中顯示列表框當前的項目數(shù)，運行情況如圖所示(上述功能的程序，請?zhí)羁铡? 　　 　　Private Sub Command1 _Click() 　　 　　If List1.ListIndex >= 〖9〗 Then 　　 　　List1.RemoveItem 〖10〗 　　 　　Label1.Caption = 〖11〗 　　 　　Else 　　 　　MsgBox "請選擇要刪除的項目" 　　 　　End If 　　 　　End Sub 　　 　　—————————— ——————————

32、— 　　 　　第一個項目 　　 　　第二個項目 COMMAND1 　　 　　第三個項目 　　 　　3 　　 　　————————————————————— 　　 　　（6）設(shè)有程序： 　　 　　Option Base 1 　　 　　Private Sub Command1_Click() 　　 　　Dim arr1, Max as Integer 　　 　　arr1 = Array(12, 435, 76, 24, 78, 54, 866, 43) 　　 　?。ㄙY料來源：東方教育網(wǎng) ) 　　 　　〖12〗 = arr1(1) 　　 　　Fo

33、r i = 1 To 8 　　 　　If arr1(i) > Max Then 〖13〗 　　 　　Next i 　　 　　Print "最大值是: "; Max 　　 　　End Sub 　　 　　以上程序的功能是：用Array函數(shù)建組中元素的最大值。請?zhí)羁?。立一個含有8個元素的數(shù)組，然后查找并輸出該數(shù) 　　 　　（7）以下程序的功能在文本框Text1中顯示出來是：把當前目錄下的順序文件sm。請?zhí)羁铡ext1.txt的內(nèi)容讀入內(nèi)存，并 　　 　　Private Sub Command1_Click() 　　 　　Dim inData As String 　

34、　 　　Text1.Text = "" 　　 　　Open ".\smtext1.txt"〖14〗 As #1 　　 　　Do While 〖15〗 　　 　　Input #1, inData 　　 　　Text1.Text = Text1.Text & inData 　　 　　Loop 　　 　　Close #1 　　 　　End Sub 　　 　　2003年9月全國計算機等級考試二級VB語言筆試試卷參考答案 　　 　　一、 選擇題 　　 　?。?） C （2） A （3） B （4） B （5） C 　　 　?。?） A （7） B （8） D

35、 （9） C （10）B 　　 　?。?1）A （12）D （13）A （14）A （15）B 　　 　?。?6）A （17）D （18）C （19）A （20）A 　　 　?。?1）B （22）C （23）C （24）A （25）C 　　 　?。?6）D （27）C （28）D （29）C （30）D 　　 　　二、 填空題 　　 　　（1） 〖1〗 5.6 〖2〗 5 　　 　?。?） 〖3〗 A 〖4〗 a 　　 　　（3） 〖5〗 1000 〖6〗 True 〖7〗 Time 　　 　?。?） 〖8〗 BASIC 　　 　?。?） 〖9〗 0 〖

36、10〗List1.ListIndex 〖11〗 List1.ListCount 　　 　?。?） 〖12〗 Max 〖13〗 Max = arr1(i) 　　 　?。?） 〖14〗 For Input 〖15〗 Not EOF(1)） 2005年4月全國計算機等級考試二級VB筆試試卷及答案 一、選擇題((1)~(35)每小題2分，共70分) 　　 　　下列各題A)、B)、C)、D)四個選項中，只有一個選項是正確的，請將正確選項涂寫在答題卡相應位置上，答在試卷上不得分。 　　 　　(1)數(shù)據(jù)的存儲結(jié)構(gòu)是指 　　 　　A) 存儲在外存中的數(shù)據(jù)B) 數(shù)據(jù)所占的存儲空間量 　

37、　 　　C) 數(shù)據(jù)在計算機中的順序存儲方式D) 數(shù)據(jù)的邏輯結(jié)構(gòu)在計算機中的表示 　　 　　(2)下列關(guān)于棧的描述中錯誤的是 　　 　　A)棧是先進后出的線性表B) 棧只能順序存儲 　　 　　C) 棧具有記憶作用D) 對棧的插入與刪除操作中，不需要改變棧底指針 　　 　　(3)對于長度為n的線性表，在最壞情況下，下列各排序法所對應的比較次數(shù)中正確的是 　　 　　A) 冒泡排序為n/2B) 冒泡排序為n 　　 　　C) 快速排序為nD) 快速排序為n(n-1)/2 　　 　　(4)對于長度為n的線性表進行順序查找，在最壞情況下所需要的比較次數(shù)為 　　 　　

38、A) log2nB) n/2C) nD) n1 　　 　　(5)下列對于線性鏈表的描述中正確的是 　　 　　A)存儲空間不一定是連續(xù)，且各元素的存儲順序是任意的 　　 　　B)存儲空間不一定是連續(xù)，且前件元素一定存儲在后件元素的前面 　　 　　C)存儲空間必須連續(xù)，且前件元素一定存儲在后件元素的前面 　　 　　D)存儲空間必須連續(xù)，且各元素的存儲順序是任意的 　　 　　(6)下列對于軟件測試的描述中正確的是 　　 　　A)軟件測試的目的是證明程序是否正確 　　 　　B)軟件測試的目的是使程序運行結(jié)果正確 　　 　　C)軟件測試的目的是盡可能多地發(fā)現(xiàn)程序中的錯

39、誤 　　 　　D)軟件測試的目的是使程序符合結(jié)構(gòu)化原則 　　 　　(7)為了使模塊盡可能獨立，要求 　　 　　A)模塊的內(nèi)聚程度要盡量高，且各模塊間的耦合程度要盡量強 　　 　　B)模塊的內(nèi)聚程度要盡量高，且各模塊間的耦合程度要盡量弱 　　 　　C)模塊的內(nèi)聚程度要盡量低，且各模塊間的耦合程度要盡量弱 　　 　　D)模塊的內(nèi)聚程度要盡量低，且各模塊間的耦合程度要盡量強 　　 　　(8)下列描述中正確的是 　　 　　A) 程序就是軟件 　　 　　B) 軟件開發(fā)不受計算機系統(tǒng)的限制 　　 　　C) 軟件既是邏輯實體，又是物理實體 　　 　　D) 軟件是程

40、序、數(shù)據(jù)與相關(guān)文檔的集合 　　 　　(9)數(shù)據(jù)獨立性是數(shù)據(jù)庫技術(shù)的重要特點之一。所謂數(shù)據(jù)獨立性是指 　　 　　A) 數(shù)據(jù)與程序獨立存放 　　 　　B) 不同的數(shù)據(jù)被存放在不同的文件中 　　 　　C) 不同的數(shù)據(jù)只能被對應的應用程序所使用 　　 　　D) 以上三種說法都不對 　　 　　(10) 用樹形結(jié)構(gòu)表示實體之間聯(lián)系的模型是 　　 　　A) 關(guān)系模型B) 網(wǎng)狀模型C) 層次模型D) 以上三個都是 11、在窗體（名稱為Form1）上畫一個名稱為Text1的文本框和一個名稱為Command1的命令按鈕，然后編寫一個事件過程。程序運行以后，如果在文本框中輸入一個字符，

41、則把命令按鈕的標題設(shè)置為“計算機等級考試”。以下能實現(xiàn)上述操作的事件過程是： 　　 　　A)Private Sub Text1_Change() 　　 　　Command1.Caption=”計算機等級考試” 　　 　　End Sub 　　 　　B) Private Sub Command1_Click() 　　 　　Caption=”計算機等級考試” 　　 　　End Sub 　　 　　C) Private Sub Form1_Click() 　　 　　Text1.Caption=”計算機等級考試” 　　 　　End Sub 　　 　　D) Priva

42、te Sub Command1_Click() 　　 　　Text1.Text=”計算機等級考試” 　　 　　End Sub 　　 　　(12)設(shè)a=5b=4c=3d=2，下列表達式的值是 　　 　　3>2*b Or a=c And b<>c Or c>d 　　 　　A)1　　　　B)True　　　　C)False　　　　D)2 　　 　　(13)設(shè)a=”MicrosoftVisualBasic” 則以下使變量b的值為”VisualBasic”的語句是 　　 　　A)b=Left(a10) 　　 　　B)b=Mid(a10) 　　 　　C)b=Right(a

43、10) 　　 　　D)b=Mid(a1110) 　　 　　(14)假定有如下的窗體事件過程： 　　 　　Private Sub Form_Click() 　　 　　a$ = "Microsoft Visual Basic" 　　 　　b$ = Right(a$ 5) 　　 　　c = Mid(a$ 1 9) 　　 　　MsgBox a$ 34 b$ c$ 5 　　 　　End Sub 　　 　　程序運行后單擊窗體，則在彈出的信息框中的標題欄中顯示的信息是： 　　 　　A)Microsoft Visual 　　 　　B)Microsoft 　　 　

44、　C)Basic 　　 　　D)5 　　 　　(15)設(shè)a=”a”b=”b”c=”c”d=”d”執(zhí)行語句x=Iif((ad)”A””B”)后，x的值為： 　　 　　A)”a” 　　 　　B)”b” 　　 　　C)”B” 　　 　　D)”A” 　　 　　(16)為了使命令按鈕(名稱為Command1)右移200，應使用的語句是 　　 　　A)Command1.Move -200 　　 　　B) Command1.Move 200 　　 　　C) Command1.Left= Command1.Left200 　　 　　D) Command1.Left=

45、 Command1.Left-200 　　 　　(17)在窗體上畫一個文本框，然后編寫如下事件過程： 　　 　　Private Sub Form_Click() 　　 　　x = InputBox("請輸入一個整數(shù)") 　　 　　Print x Text1.Text 　　 　　End Sub 　　 　　程序運行時，在文本框中輸入456，然后單擊窗體，在輸入對話框中輸入123，單擊“確定”按鈕后，在窗體上顯示的內(nèi)容是： 　　 　　A)123 　　 　　B)456 　　 　　C)579 　　 　　D)123456 　　 　　（18）在窗體上畫一個文本框和

46、一個計時器控件，名稱分別為Text1和Timer1在屬性窗口中把計時器的Interval屬性設(shè)置為1000，Enabled屬性設(shè)置為False程序運行后，如果單擊命令按鈕，則每隔一秒鐘在文本框中顯示一次當前的時間。以下是實現(xiàn)上述操作的程序： 　　 　　Private Sub Command1_Click() 　　 　　Timer1._________ 　　 　　End Sub 　　 　　Private Sub Timer1_Timer() 　　 　　Text1.Text = Time 　　 　　End Sub 　　 　　在______處應填入的內(nèi)容是 　　 　　

47、A)Enabled=True 　　 　　B)Enabled=False 　　 　　C)Visible=True 　　 　　D)Visible=False 　　 　　(19)假定在圖片框Picture1中裝入了一個圖形，為了清除該圖形（不刪除圖片框），應采用的正確方法是： 　　 　　A)選擇圖片框，然后按Del鍵 　　 　　B)執(zhí)行語句Picture1.Picture=LoadPicture(“”) 　　 　　C)執(zhí)行語句Picture1.Picture=”” 　　 　　D)選擇圖片框，在屬性窗口中選擇Picture屬性，然后按回車鍵 　　 　?。?0）在窗體

48、上畫一個List1的列表框，一個名稱為Label1的標簽，列表框中顯示若干個項目，當單擊列表框中的某個項目時，在標簽中顯示被選中的項目的名稱，下列能正確實現(xiàn)上述操作的程序是 　　 　　A) Private Sub List1_Click() 　　 　　Label1.Caption = List1.ListIndex 　　 　　End Sub 　　 　　B) Private Sub List1_Click() 　　 　　Label1.Name = List1.ListIndex 　　 　　End Sub 　　 　　C) Private Sub List1_Click(

49、) 　　 　　Label1.Name = List1.Text 　　 　　End Sub 　　 　　D) Private Sub List1_Click() 　　 　　Label1.Caption = List1.Text 　　 　　End Sub （21）在窗體上畫一個命令按鈕，名稱為Command1，然后編寫如下事件過程： 　　 　　Private Sub Command1_Click() 　　 　　Dim i As Integer x As Integer 　　 　　For i = 1 To 6 　　 　　If i = 1 Then x = i 　

50、　 　　If i <= 4 Then 　　 　　x = x 1 　　 　　Else 　　 　　x = x 2 　　 　　End If 　　 　　Next i 　　 　　Print x 　　 　　End Sub 　　 　　程序運行后，單擊命令按鈕，其輸出結(jié)果為 　　 　　A)9 　　 　　B)6 　　 　　C)12 　　 　　D)15 　　 　　（22）在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下事件過程： 　　 　　Private Sub Command1_Click() 　　 　　c = "ABCD" 　　 　

51、　For n = 1 To 4 　　 　　Print _________ 　　 　　Next 　　 　　End Sub 　　 　　程序運行后，單擊命令按鈕，要求在窗體上顯示如下內(nèi)容： 　　 　　D 　　 　　CD 　　 　　BCD 　　 　　ABCD 　　 　　則在________處應填入的內(nèi)容為 　　 　　A)Left(cn) 　　 　　B)Right(cn) 　　 　　C)Mid(cn1) 　　 　　D)Mid(cnn) 　　 　　(23)執(zhí)行以下程序段 　　 　　Dim x As Integer i As Integer 　　

52、 　　x=0 　　 　　For i = 20 To 1 Step -2 　　 　　x = x i \ 5 　　 　　Next I 　　 　　后，x的值為 　　 　　A)16 　　 　　B)17 　　 　　C)18 　　 　　D)19 　　 　?。?4）在Visual Basic工程中，可以作為啟動對象的程序是 　　 　　A)任何窗體或標準模塊 　　 　　B)任何窗體或過程 　　 　　C)Sub Main過程或其他任何模塊 　　 　　D)Sub Main過程或任何窗體 　　 　　(25)假定建立了一個名為Command1的命令按鈕數(shù)組，則

53、以下說法中錯誤的是 　　 　　A)數(shù)組中每個命令按鈕的名稱(名稱屬性)均為Command1 　　 　　B)數(shù)組中每個命令按鈕的標題(Caption屬性)都一樣 　　 　　C)數(shù)組中所有命令按鈕可以使用同一個時間過程 　　 　　D)用名稱Command1(下標)可以訪問數(shù)組中的每個命令按鈕 (26)把窗體的KeyPreview屬性設(shè)置為True然后編寫如下事件過程: 　　 　　Private Sub Form_KeyPress(KeyAscii As Integer) 　　 　　Dim ch As String 　　 　　ch = Chr(KeyAscii) 　　

54、 　　KeyAscii = Asc(UCase(ch)) 　　 　　Print Chr(KeyAscii 2) 　　 　　End Sub 　　 　　程序運行后按鍵盤上的”A”鍵則在窗體上顯示的內(nèi)容是 　　 　　A)A 　　 　　B)B 　　 　　C)C 　　 　　D)D 　　 　　(27)在窗體上畫一個命令按鈕和一個文本框名稱分別為Command1和Text1然后編寫如下程序: 　　 　　Private Sub Command1_Click() 　　 　　a = InputBox("請輸入日期(1~31)") 　　 　　t = "旅游景點:" _

55、 　　 　　& IIf(a > 0 And a <= 10 "長城" "") _ 　　 　　& IIf(a > 10 And a <= 20 "故宮" "") _ 　　 　　& IIf(a > 20 And a <= 30 "頤和園" "") 　　 　　Text1.Text = t 　　 　　End Sub 　　 　　程序運行后如果從鍵盤輸入16則在文本框中顯示的內(nèi)容是: 　　 　　A)旅游景點：長城故宮 　　 　　B)旅游景點：長城頤和園 　　 　　C)旅游景點：頤和園 　　 　　D)旅游景點：故宮 　　 　　(28)在窗體上畫一個名稱為Label1

56、的標簽然后編寫如下事件過程: 　　 　　Private Sub Form_Click() 　　 　　Dim arr(10 10) As Integer 　　 　　Dim i As Integer j As Integer 　　 　　For i = 2 To 4 　　 　　For j = 2 To 4 　　 　　arr(i j) = i * j 　　 　　Next j 　　 　　Next i 　　 　　Label1.Caption = Str(arr(2 2) arr(3 3)) 　　 　　End Sub 　　 　　程序運行后單擊窗體在標簽中顯示的內(nèi)容

57、是 　　 　　A)12 　　 　　B)13 　　 　　C)14 　　 　　D)15 　　 　　(29) 在窗體上畫一個名稱為Comamnd1的命令按鈕然后編寫如下通用過程和命令按鈕的事件過程: 　　 　　Private Function fun(ByVal m As Integer) 　　 　　If m Mod 2 = 0 Then 　　 　　fun = 2 　　 　　Else 　　 　　fun = 1 　　 　　End If 　　 　　End Function 　　 　　Private Sub Command1_Click() 　　 　

58、　Dim i As Integer s As Integer 　　 　　s = 0 　　 　　For i = 1 To 5 　　 　　s = s fun(i) 　　 　　Next 　　 　　Print s 　　 　　End Sub 　　 　　程序運行后單擊命令按鈕則窗體上顯示的是: 　　 　　A)6 　　 　　B)7 　　 　　C)8 　　 　　D)9 　　 　　(30)閱讀程序: 　　 　　Option Base 1 　　 　　Dim arr() As Integer 　　 　　Private Sub Form_Click() 　

59、　 　　Dim i As Integer j As Integer 　　 　　ReDim arr(3 2) 　　 　　For i = 1 To 3 　　 　　For j = 1 To 2 　　 　　arr(i j) = i * 2 j 　　 　　Next j 　　 　　Next i 　　 　　ReDim Preserve arr(3 4) 　　 　　For j = 3 To 4 　　 　　arr(3 j) = j 9 　　 　　Next j 　　 　　Print arr(3 2) arr(3 4) 　　 　　End Sub 　　 　　程序運

60、行后單擊窗體輸出結(jié)果為: 　　 　　A)21 　　 　　B)13 　　 　　C)8 　　 　　D)25 (31)在窗體上畫一個名稱為Command1的命令按鈕然后編寫如下程序: 　　 　　Option Base 1 　　 　　Private Sub Command1_Click() 　　 　　Dim c As Integer d As Integer 　　 　　d = 0 　　 　　c = 6 　　 　　x = Array(2 4 6 8 10 12) 　　 　　For i = 1 To 6 　　 　　If x(i) > c Then 　　

61、 　　d = d x(i) 　　 　　c = x(i) 　　 　　Else 　　 　　d = d - c 　　 　　End If 　　 　　Next i 　　 　　Print d 　　 　　End Sub 　　 　　程序運行后如果單擊命令按鈕則在窗體上輸入的內(nèi)容為 　　 　　A)10 　　 　　B)16 　　 　　C)12 　　 　　D)20 　　 　　(32)設(shè)有如下程序: 　　 　　Private Sub Command1_Click() 　　 　　Dim c As Integer d As Integer 　　 　　c =

62、4 　　 　　d = InputBox("請輸入一個整數(shù)") 　　 　　Do While d > 0 　　 　　If d > c Then 　　 　　c = c 1 　　 　　End If 　　 　　d = InputBox("請輸入一個整數(shù)") 　　 　　Loop 　　 　　Print c d 　　 　　End Sub 　　 　　程序運行后單擊命令按鈕如果在輸入對話框中依次輸入1、2、3、4、5、6、7、8、9、0則輸出結(jié)果是: 　　 　　A)12 　　 　　B)11 　　 　　C)10 　　 　　D)9 　　 　　(33)在窗體上

63、畫一個名稱為Command1的命令按鈕和一個名稱為Text1的文本框在文本框中輸入以下字符串: 　　 　　Microsoft Visual Basic Programming 　　 　　然后編寫如下事件過程: 　　 　　Private Sub Command1_Click() 　　 　　Open "d:\temp\outf.txt" For Output As #1 　　 　　For i = 1 To Len(Text1.Text) 　　 　　c = Mid(Text1.Text i 1) 　　 　　If c >= "A" And c <= "Z" Then 　　

64、 　　Print #1 LCase(c) 　　 　　End If 　　 　　Next i 　　 　　Close 　　 　　End Sub 　　 　　程序運行后單擊命令按狃文件outf.txt中的內(nèi)容是: 　　 　　A)MVBP 　　 　　B)mvbp 　　 　　C)M 　　 　　V 　　 　　B 　　 　　P 　　 　　D)m 　　 　　v 　　 　　b 　　 　　p 　　 　　(34)在窗體上畫一個名稱為Command1的命令按鈕然后編寫如下程序: 　　 　　Dim SW As Boolean 　　 　　Functio

65、n func(X As Integer) As Integer 　　 　　If X < 20 Then 　　 　　Y = X 　　 　　Else 　　 　　Y = 20 X 　　 　　End If 　　 　　func = Y 　　 　　End Function 　　 　　Private Sub Command1_Click() 　　 　　Dim intNum As Integer 　　 　　intNum = InputBox("") 　　 　　If SW Then 　　 　　Print func(intNum) 　　 　　End If 　　

66、 　　End Sub 　　 　　Private Sub Form_MouseDown(Button As Integer Shift As Integer X As Single Y As Single) 　　 　　SW = False 　　 　　End Sub 　　 　　Private Sub Form_MouseUp(Button As Integer Shift As Integer X As Single Y As Single) 　　 　　SW = True 　　 　　End Sub 　　 　　程序運行后單擊命令按鈕將顯示一個輸入對話框如果在對話框中輸入25則程序的執(zhí)行結(jié)果是: 　　 　　A)輸出0 　　 　　B)輸出25 　　 　　C)輸出45 　　 　　D)無任何輸出 　　 　　(35) 設(shè)有如下通用過程: 　　 　　Public Sub fun(a() As Integer x As Integer) 　　 　　F