年9月全國計算機等級考試二級VB語言筆試試題及答案

1、2004年9月全國計算機等級考試二級筆試試卷公共基礎(chǔ)知識和Visual Basic語言程序設(shè)計（考試時間90分鐘，滿分100分）一、選擇題（1）（20）每小題2分，（21）（30）每小題3分，共70分）下列各題A）、B）、C）、D）四個選項中，只有一個選項是正確的。請將正確選項涂寫在答題卡相應(yīng)位置上，答在試卷上不得分。 （1）設(shè)窗體上有一個文本框，名稱為Text1,程序運行后，要求該文本框不能接受鍵盤輸入，但能輸出信息，以下屬性設(shè)置正確的是： A）text1.maxlength=0 B）text1.enabled=false C）text1.visible=flase D）text1.widt

2、h=0 （2）以下能在窗體Form1的標題欄中顯示“VisualBasic窗體”的語句是 A）Form1.Name=VisualBasic窗體 B）Form1.Title=VisualBasic窗體 C）Form1.Caption=VisualBasic窗體 D）Form1.Text=VisualBasic窗體” （3）在窗體上畫一個名稱為Text1的文本框，然后畫一個名稱為HScroll1的滾動條，其Min和Max屬性分別為0和100。程序運行后，如果移動滾動框，則在文本框中顯示滾動條的當前值，如圖所示。 以下能實現(xiàn)上述操作的程序段是 A）Private Sub HScroll_Change

3、（）Text1.Text=HScroll1.Value End Sub B）Private Sub HScroll_Click（）Text1.Text=HScroll1.Value End Sub C）Private Sub HScroll_Change（）Text1.Text=HScroll.Caption End Sub D）Private Sub HScroll_Click（）Text1.Text=HScroll.Caption End Sub （4）設(shè)菜單中有一個菜單項為“Open”。若要為該菜單命令設(shè)計訪問鍵，即按下Alt及字母O時，能夠執(zhí)行“Open”命令，則在菜單編輯器中設(shè)置“O

4、pen”命令的方式是 A）把Caption屬性設(shè)置為&Open B）把Caption屬性設(shè)置為O&pen C）把Name屬性設(shè)置為&Open D）把Name屬性設(shè)置為O&pen （5）在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下事件過程： Private Sub Command1_Click（）x=InputBox（Input）Select Case x Case 1,3 Print 分支1 Case Is 4 Print 分支2 Case Else Print Else 分支 End Select End Sub 程序運行后，如果在輸入對話框中輸入2，則窗體上顯示的是 A）分

5、支1 B）分支2 C）Else分支D）程序出錯 （6）以下關(guān)于MsgBox的敘述中，錯誤的是 A）MsgBox函數(shù)返回一個整數(shù) B）通過MsgBox函數(shù)可以設(shè)置信息框中圖標和按鈕的類型 C）MsgBox語句沒有返回值 D）MsgBox函數(shù)的第一個參數(shù)是一個整數(shù)，該參數(shù)只能確定對話框中顯示的按鈕數(shù)量 （7）在窗體上畫一個名稱為Timer1的計時器控件，要求每隔0.5秒發(fā)生一次計時器事件，則以下正確的屬性設(shè)置語句是 A）Timer1.Interval=0.5 B）Timer1.Interval=5 C）Timer1.Interval=50 D）Timer1.Interval=500 （8）在窗體上

6、畫一個名稱為Command1的命令按鈕，然后編寫如下事件過程： Private Sub Command1_Click（）Static x As Integer Cls For i=1 To 2 y=y+x x=x+2 Next Print x,y End Sub 程序運行后，連續(xù)三次單擊Command1按鈕后，窗體上顯示的是 A）4 2 B）12 18 C）12 30 D）4 6 （9）以下關(guān)于多重窗體程序的敘述中，錯誤的是 A）用Hide方法不但可以隱藏窗體，而且能清除內(nèi)存中的窗體 B）在多重窗體程序中，各窗體的菜單是彼此獨立的 C）在多重窗體程序中，可以根據(jù)需要指定啟動窗體 D）對于多重窗

7、體程序中，需要單獨保存每個窗體 （10）以下關(guān)于文件的敘述中，錯誤的是 A）順序文件中的記錄一個接一個地順序存放 B）隨機文件中記錄的長度是隨機的 C）執(zhí)行打開文件的命令后，自動生成一個文件指針 D）LOF函數(shù)返回給文件分配的字節(jié)數(shù) （11）以下敘述中錯誤的是 A）事件過程是響應(yīng)特定事件的一段程序 B）不同的對象可以具有相同名稱的方法 C）對象的方法是執(zhí)行指定操作的過程 D）對象事件的名稱可以由編程者指定 （12）以下合法的Visual Basic標識符是 A）ForLoop B）Const C）9abc D）a#x （13）當一個復(fù)選框被選中時，它的Value屬性的值是 A）3 B）2 C）

8、1 D）0 （14）表達式 5 Mod 3+35*2的值是 A）0 B）2 C）4 D）6 （15）設(shè)x=4,y=8,z=7，以下表達式的值是 xz）Or z10,100,-100）fShow fCaption=y End Sub 運行以上程序，正確的結(jié)果是 A）Form1的Caption屬性值為100 B）Form2的Caption屬性值為-100 C）Form1的Caption屬性值為-100 D）Form2的Caption屬性值為100 （22）在窗體上畫一個名稱為Command1的命令按鈕，并編寫如下程序： Private Sub Command1_Click（）Dim x As In

9、teger Static y As Integer x=10 y=5 Call f1（x,y）Print x,y End Sub Private Sub f1（ByRef x1 As Integer, y1 As Integer）x1=x1+2 y1=y1+2 End Sub 程序運行后，單擊命令按鈕，在窗體上顯示的內(nèi)容是 A）10 5 B）12 5 C）10 7 D）12 7 （23）設(shè)有如下程序 Option Base 1 Private Sub Command1_Click（）Dim a（10）As Integer Dim n As Integer n=InputBox（輸入數(shù)據(jù)）If

10、n10 Then Call GetArray（a,n）End If End Sub Private Sub GetArray（b（）As Integer,n As Integer）Dim c（10）As Integer j=0 For i=1 To n b（i）=CInt（Rnd（）*100）If b（i）/2=b（i）2 Then j=j+1 c（j）=b（i）End If Next Print j End Sub 以下敘述中錯誤的是 A）數(shù)組b中的偶數(shù)被保存在數(shù)組c中 B）程序運行結(jié)束后，在窗體上顯示的是c數(shù)組中元素的個數(shù) C）GetArray過程的參數(shù)n是按值傳送的 D）如果輸入的數(shù)據(jù)大

11、于10，則窗體上不顯示任何信息（24）在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下事件過程： Option Base 1 Private Sub Command1_Click（）Dim a a= Array（1,2,3,4,5）For i=1 To UBound（a）a（i）= a（i）+i-1 Next Print a（3）End Sub 程序運行后，單擊命令按鈕，則在窗體上顯示的內(nèi)容是 A）4 B）5 C）6 D）7 （25）閱讀程序 Option Base 1 Private Sub Form_Click（）Dim arr,Sum Sum = 0 arr = Array（

12、1,3,5,7,9,11,13,15,17,19）For i=1 To 10 If arr（i）/3 = arr（i）3 Then Sum =Sum+arr（i）End If Next i Print Sum End Sub 程序運行后，單擊窗體，輸出結(jié)果為 A）13 B）14 C）27 D）15 （26）在窗體上畫一個名稱為File1的文件列表框，并編寫如下程序： Private Sub File1_DblClick（）x=Shell（File1.FileName,1）End Sub 以下關(guān)于該程序的敘述中，錯誤的是 A）x沒有實際作用，因此可以將該語句寫為：Call Shell（File1

13、.FileName,1）B）雙擊文件列表框中的文件，將觸發(fā)該事件過程 C）要執(zhí)行的文件的名字通過File1.FileName指定 D）File1中顯示的是當前驅(qū)動器、當前目錄下的文件 （27）在窗體上畫一個名稱為Label1、標題為“VisualBasic考試”的標簽，兩個名稱分別為Command1和Command2、標題分別為“開始”和“停止”的命令按鈕，然后畫一個名稱為Timer1的計時器控件，并把其Interval屬性設(shè)置為500,如圖所示。編寫如下程序： Private Sub Form_Load（）Timer1.Enabled=False End Sub Private Sub Co

14、mmand1_Click（）Timer1.Enabled=True End Sub Private Sub Timer1_Timer（）If Label1.Leftx Then Print a（i）; Next i End Sub 程序運行后，單擊命令按鈕，在窗體上顯示的內(nèi)容是 A）1 2 B）1 2 3 C）3 4 5 D）4 5 （30）假定一個工程由一個窗體文件Form1和兩個標準模塊文件Model1及Model2組成。 Model1代碼如下： Public x As Integer Public y As Integer Sub S1（）x =1 S2 End Sub Sub S2（）

15、y=10 Form1.Show End Show Model2的代碼如下： Sub Main（）S1 End Sub 其中Sub Main被設(shè)置為啟動過程。程序運行后，各模塊的執(zhí)行順序是 A）Form1Model1Model2 B）Model1Model2Form1 C）Model2Model1Form1 D）Model2Form1Model1 二、填空題（每空2分，共30分）請將每空的正確答案寫在答題卡【1】【15】序號的橫線上，答在試卷上不得分。 （1）設(shè)有如下程序段： a$=BeijingShanghai b$=Mid（a$,InStr（a$,g）+1）執(zhí)行上面的程序段后，變量b$的值為

16、 【1】 。 （2）以下程序段的輸出結(jié)果是 【2】 。 num =0 While num=2 num = num+1 Wend Print num （3）窗體上有一個名稱為List1的列表框，一個名稱為Text1的文本框，一個名稱為Label1、Caption屬性為“Sum”的標簽，一個名稱為Command1、標題為“計算”的命令按鈕。程序運行后，將把1100之間能夠被7整除的數(shù)添加到列表框。如果單擊“計算”按鈕，則對List1中的數(shù)進行累加求和，并在文本框中顯示計算結(jié)果，如圖所示。以下是實現(xiàn)上述功能的程序，請?zhí)羁铡?Private Sub Form_Load（）For i=1 To 100

17、If i Mod 7 =0 Then 【3】 End If Next End Sub Private Sub Command1_Click（）Sum =0 For i=0 To 【4】 Sum =Sum+ 【5】 Next Text1.Text=Sum End Sub （4）本程序的功能是利用隨機數(shù)函數(shù)模擬投幣，方法是：每次隨機產(chǎn)生一個0或1的整數(shù)，相當于一次投幣，1代表正面，0代表反面。在窗體上有三個文本框，名稱分別是Text1、Text2、Text3，分別用于顯示用戶輸入投幣總次數(shù)、出現(xiàn)正面的次數(shù)和出現(xiàn)反面的次數(shù)，如圖所示。程序運行后，在文本框Text1中輸入總次數(shù)，然后單擊“開始”按鈕，

18、按照輸入的次數(shù)模擬投幣，分別統(tǒng)計出現(xiàn)正面、反面的次數(shù)，并顯示結(jié)果。以下是實現(xiàn)上述功能的程序，請?zhí)羁铡?Private Sub Command1_Click（）Randomize n=CInt（Text1.Text）n1=0 n2=0 For i=1 To 【6】 r=Int（Rnd*2）If r= 【7】 _Then n1=n1+1 Else n2=n2+1 End If Next Text2.Text=n1 Text3.Text=n2 End Sub （5）閱讀程序： Option Base 1 Private Sub Form_Click（）Dim a（3）As Integer Print

19、 輸入的數(shù)據(jù)是：; For i=1 To 3 a（i）=InputBox（輸入數(shù)據(jù)）Print a（i）; Next Print If a（1）a（3）Then m=a（2）ElseIf a（1）a（3）Then m= 【9】 Else m= 【10】 End If Print 中間數(shù)是：;m End Sub 程序運行后，單擊窗體，在輸入對話框中分別輸入三個整數(shù)，程序?qū)⑤敵鋈齻€數(shù)中的中間數(shù)，如圖所示。請?zhí)羁?。?）在窗體上畫一個名稱為“Command1”，標題為“計算”的命令按鈕，再畫7個標簽，其中5個標簽組成名稱為Label1的控件數(shù)組;名稱為Label2的標簽用于顯示計算結(jié)果，其Caption屬性的初始值為空;標簽Label3的標題為“計算結(jié)果”。運行程序時會自動生成5個隨機數(shù)，分別顯示在標簽控件數(shù)組的各個標簽中，如圖所示。單擊“計算”按鈕，則將標簽數(shù)組各元素的值累加，然后計算結(jié)果顯示在Label2。請?zhí)羁铡?Private Sub Command1_Click（）Sum = 0 For i=0 To 4 Sum=Sum+ 【11】 Next 【12】 =Sum End Sub