年9月全國(guó)計(jì)算機(jī)等級(jí)考試二級(jí)VB語(yǔ)言筆試試題及答案

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

2、h=0 （2）以下能在窗體Form1的標(biāo)題欄中顯示“VisualBasic窗體”的語(yǔ)句是 A）Form1.Name=VisualBasic窗體 B）Form1.Title=VisualBasic窗體 C）Form1.Caption=VisualBasic窗體 D）Form1.Text=VisualBasic窗體” （3）在窗體上畫(huà)一個(gè)名稱為T(mén)ext1的文本框，然后畫(huà)一個(gè)名稱為HScroll1的滾動(dòng)條，其Min和Max屬性分別為0和100。程序運(yùn)行后，如果移動(dòng)滾動(dòng)框，則在文本框中顯示滾動(dòng)條的當(dāng)前值，如圖所示。 以下能實(shí)現(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è)菜單中有一個(gè)菜單項(xiàng)為“Open”。若要為該菜單命令設(shè)計(jì)訪問(wèn)鍵，即按下Alt及字母O時(shí)，能夠執(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）在窗體上畫(huà)一個(gè)名稱為Command1的命令按鈕，然后編寫(xiě)如下事件過(guò)程： 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 程序運(yùn)行后，如果在輸入對(duì)話框中輸入2，則窗體上顯示的是 A）分

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

6、畫(huà)一個(gè)名稱為Command1的命令按鈕，然后編寫(xiě)如下事件過(guò)程： 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 程序運(yùn)行后，連續(xù)三次單擊Command1按鈕后，窗體上顯示的是 A）4 2 B）12 18 C）12 30 D）4 6 （9）以下關(guān)于多重窗體程序的敘述中，錯(cuò)誤的是 A）用Hide方法不但可以隱藏窗體，而且能清除內(nèi)存中的窗體 B）在多重窗體程序中，各窗體的菜單是彼此獨(dú)立的 C）在多重窗體程序中，可以根據(jù)需要指定啟動(dòng)窗體 D）對(duì)于多重窗

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

8、1 D）0 （14）表達(dá)式 5 Mod 3+35*2的值是 A）0 B）2 C）4 D）6 （15）設(shè)x=4,y=8,z=7，以下表達(dá)式的值是 xz）Or z10,100,-100）fShow fCaption=y End Sub 運(yùn)行以上程序，正確的結(jié)果是 A）Form1的Caption屬性值為100 B）Form2的Caption屬性值為-100 C）Form1的Caption屬性值為-100 D）Form2的Caption屬性值為100 （22）在窗體上畫(huà)一個(gè)名稱為Command1的命令按鈕，并編寫(xiě)如下程序： 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 程序運(yùn)行后，單擊命令按鈕，在窗體上顯示的內(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 以下敘述中錯(cuò)誤的是 A）數(shù)組b中的偶數(shù)被保存在數(shù)組c中 B）程序運(yùn)行結(jié)束后，在窗體上顯示的是c數(shù)組中元素的個(gè)數(shù) C）GetArray過(guò)程的參數(shù)n是按值傳送的 D）如果輸入的數(shù)據(jù)大

11、于10，則窗體上不顯示任何信息（24）在窗體上畫(huà)一個(gè)名稱為Command1的命令按鈕，然后編寫(xiě)如下事件過(guò)程： 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 程序運(yùn)行后，單擊命令按鈕，則在窗體上顯示的內(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 程序運(yùn)行后，單擊窗體，輸出結(jié)果為 A）13 B）14 C）27 D）15 （26）在窗體上畫(huà)一個(gè)名稱為File1的文件列表框，并編寫(xiě)如下程序： Private Sub File1_DblClick（）x=Shell（File1.FileName,1）End Sub 以下關(guān)于該程序的敘述中，錯(cuò)誤的是 A）x沒(méi)有實(shí)際作用，因此可以將該語(yǔ)句寫(xiě)為：Call Shell（File1

13、.FileName,1）B）雙擊文件列表框中的文件，將觸發(fā)該事件過(guò)程 C）要執(zhí)行的文件的名字通過(guò)File1.FileName指定 D）File1中顯示的是當(dāng)前驅(qū)動(dòng)器、當(dāng)前目錄下的文件 （27）在窗體上畫(huà)一個(gè)名稱為L(zhǎng)abel1、標(biāo)題為“VisualBasic考試”的標(biāo)簽，兩個(gè)名稱分別為Command1和Command2、標(biāo)題分別為“開(kāi)始”和“停止”的命令按鈕，然后畫(huà)一個(gè)名稱為T(mén)imer1的計(jì)時(shí)器控件，并把其Interval屬性設(shè)置為500,如圖所示。編寫(xiě)如下程序： 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 程序運(yùn)行后，單擊命令按鈕，在窗體上顯示的內(nèi)容是 A）1 2 B）1 2 3 C）3 4 5 D）4 5 （30）假定一個(gè)工程由一個(gè)窗體文件Form1和兩個(gè)標(biāo)準(zhǔn)模塊文件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è)置為啟動(dòng)過(guò)程。程序運(yùn)行后，各模塊的執(zhí)行順序是 A）Form1Model1Model2 B）Model1Model2Form1 C）Model2Model1Form1 D）Model2Form1Model1 二、填空題（每空2分，共30分）請(qǐng)將每空的正確答案寫(xiě)在答題卡【1】【15】序號(hào)的橫線上，答在試卷上不得分。 （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）窗體上有一個(gè)名稱為L(zhǎng)ist1的列表框，一個(gè)名稱為T(mén)ext1的文本框，一個(gè)名稱為L(zhǎng)abel1、Caption屬性為“Sum”的標(biāo)簽，一個(gè)名稱為Command1、標(biāo)題為“計(jì)算”的命令按鈕。程序運(yùn)行后，將把1100之間能夠被7整除的數(shù)添加到列表框。如果單擊“計(jì)算”按鈕，則對(duì)List1中的數(shù)進(jìn)行累加求和，并在文本框中顯示計(jì)算結(jié)果，如圖所示。以下是實(shí)現(xiàn)上述功能的程序，請(qǐng)?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）本程序的功能是利用隨機(jī)數(shù)函數(shù)模擬投幣，方法是：每次隨機(jī)產(chǎn)生一個(gè)0或1的整數(shù)，相當(dāng)于一次投幣，1代表正面，0代表反面。在窗體上有三個(gè)文本框，名稱分別是Text1、Text2、Text3，分別用于顯示用戶輸入投幣總次數(shù)、出現(xiàn)正面的次數(shù)和出現(xiàn)反面的次數(shù)，如圖所示。程序運(yùn)行后，在文本框Text1中輸入總次數(shù)，然后單擊“開(kāi)始”按鈕，

18、按照輸入的次數(shù)模擬投幣，分別統(tǒng)計(jì)出現(xiàn)正面、反面的次數(shù)，并顯示結(jié)果。以下是實(shí)現(xiàn)上述功能的程序，請(qǐng)?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 程序運(yùn)行后，單擊窗體，在輸入對(duì)話框中分別輸入三個(gè)整數(shù)，程序?qū)⑤敵鋈齻€(gè)數(shù)中的中間數(shù)，如圖所示。請(qǐng)?zhí)羁?。?）在窗體上畫(huà)一個(gè)名稱為“Command1”，標(biāo)題為“計(jì)算”的命令按鈕，再畫(huà)7個(gè)標(biāo)簽，其中5個(gè)標(biāo)簽組成名稱為L(zhǎng)abel1的控件數(shù)組;名稱為L(zhǎng)abel2的標(biāo)簽用于顯示計(jì)算結(jié)果，其Caption屬性的初始值為空;標(biāo)簽Label3的標(biāo)題為“計(jì)算結(jié)果”。運(yùn)行程序時(shí)會(huì)自動(dòng)生成5個(gè)隨機(jī)數(shù)，分別顯示在標(biāo)簽控件數(shù)組的各個(gè)標(biāo)簽中，如圖所示。單擊“計(jì)算”按鈕，則將標(biāo)簽數(shù)組各元素的值累加，然后計(jì)算結(jié)果顯示在Label2。請(qǐng)?zhí)羁铡?Private Sub Command1_Click（）Sum = 0 For i=0 To 4 Sum=Sum+ 【11】 Next 【12】 =Sum End Sub