2008年9月全國計算機等級考試二級VB筆試試題(共6頁)

1、精選優(yōu)質(zhì)文檔-傾情為你奉上2008年9月全國計算機等級考試二級VB筆試試題一. 選擇題(每小題2分,共70分)(11)在設(shè)計窗體時雙擊窗體的任何地方,可以打開的窗口是A)代碼窗口B)屬性窗口C)工程資源管理器窗口D)工具箱窗口(12)若變量a未事先定義直接使用(例如：a=0),則變量a的類型是A)Integer B) String C) Boolean D)Variant(13)為把圓周率的近似值3.14159存儲在變量pi中,應(yīng)該把變量pi定義為A)Dim pi As Integer B)Dim pi(7)As IngeterC)Dim pi As Single D)Dim pi As In

2、geter(14)表達(dá)式2*32-4*2/2+32的值是A)30 B)23 C)49 D)48(15)以下不能輸出“Program”的語句是A)Print Mid(“VBProgram”,3,7) B)Print Right(“VBProgram”,7)C) Print Mid(“VBProgram”,3) D) Print Left(“VBProgram”,7)(16)窗體上有一個名稱為Frame1的框架(如圖)。若要把框架顯示的“Frame1”改為漢字“框架”,下面正確的語句是A)Frame1.Name=”框架” B)Frame1.Caption=”框架” C)Frame1.Text=”框

3、架” D)Frame1.Value=”框架”(17)以下敘述中錯誤的是A)在通用過程中,多個形參數(shù)之間可以用逗號作為分隔符B)在Print方法中,多個輸出項之間可以用逗號作為分隔符C)在Dim語句中,所定義的多個變量可以用逗號作為分隔符D)當(dāng)一行中有多個語句時,可以用逗號作為分隔符(18)設(shè)窗體上有一個列表框控件List1,含有若干列表項,以下能表示當(dāng)前被選中的列表項內(nèi)容的是A)List1.ListB)List1.ListIndexC)List1.TextD)List1.Index(19)設(shè)a=4,b=5,c=6,執(zhí)行語句Printa<bAndb<c后,窗體上顯示的是A)True

4、B)False C)出錯信息 D)0(20)執(zhí)行下列語句StrInput=InputBox(“請輸入字符串”,“字符串對話框”,“字符串”)將顯示輸入對話框。此時如果直接單擊”確定”按鈕,則定量StrInput的內(nèi)容是A)請輸入字符串通 B) 字符串對話框 C) 字符串 D)以上說法都不對(21)窗體上有Command1、Command2兩個命令按鈕?，F(xiàn)編寫以下程序：Option Base 0Dim a() As Integer, m As IntegerPrivate Sub Command1_Click() m=InputBox(“請輸入一個正整數(shù)”) ReDim a(m) End Sub

5、Private Sub Command2_Click()m=InputBox(“請輸入一個正整數(shù)”) ReDim a(m) End Sub運行程序時,單擊Command1后輸入整數(shù)10,再單擊Command2后輸入整數(shù)5,則數(shù)組a中元素的個數(shù)是A)5 B)6 C)10 D)11(22)在窗體上畫一個命令按鈕和一個標(biāo)簽,其名稱分別為Command1和Label1.然后編寫如下事件過程：Prvate Sub Command1_Click()Counter=0For i=1 To 4 For j=6 To 1 Step -2 Counter=Counter+1 Next jNextiLabel1.C

6、aption=Str(Counter)End Sub 程序運行后,單擊命令按鈕,標(biāo)簽中顯示的內(nèi)容是A)11 B)12 C)16 D)20(23)在窗體上畫一個名為Command1的命令按鈕,然后編寫以下程序：Prvate Sub Command1_Click()Dim M(10) As IntegerFor k=1 To10M(k)=12-kNext kX=8Print M(2+M(X)End Sub運行程序,單擊命令按鈕,在窗體上顯示的是A)6 B)5 C)7 D)8 (24)以下關(guān)于過程及過程參數(shù)的描述中,錯誤的是A)調(diào)用過程時可以用控件名稱作為實際參數(shù) B)用數(shù)組作為過程的參數(shù)時,使用的

7、是”傳地址”方式C)只有函數(shù)過程能夠?qū)⑦^程中處理的信息傳回到調(diào)用 的程序中 D)窗體(Form)可以作為過程的參數(shù)(25)在窗體上畫一個名稱為Command1的命令按鈕,再畫兩個名稱分別為Label1、Label2的標(biāo)簽,然后編寫如下程序代碼：Private X As IntegerPrivate Sub Command1_Click()X=5:Y=3Call proc(X,Y)Label1.Caption=XLabel2.Caption=YEnd Sub Private Sub proc(a As Integer,ByVal b As Integer)a=a*ab=b+bEnd Sub程序運

8、行后,單擊命令按鈕,則兩個標(biāo)簽中顯示的內(nèi)容分別是A)25和3 B)5和3 C)25和6 D)5和6(26)在窗體上有兩個名稱為Text1、Text2的文本框,一個名稱為Command1的命令按鈕,設(shè)有如下的類型和變量聲明：Private Type personname as String*8major as String*20End TypeDim p As Person設(shè)文本框中的數(shù)據(jù)已正確地賦值給Person類型的變量p,當(dāng)單擊“保存”按鈕時,能夠正確地把變量中的數(shù)據(jù)寫入隨機文件Text2.dat中的程序段是A)Open”c:Test2.dat”For Output As #1 B)Ope

9、n”c:Test2.dat”For RandomAs #1Put #1,1,p Get #1,1,pClose #1 Close #1C)Open”c:Test2.dat”For Random As #1 Len=Len(p) D)Open”c:Test2.dat”For Random As #1 Len=Len(p)Put #1,1,p Get #1,1,pClose #1Close #1(27)在窗體上畫一個名稱為Text1的文本框和一個名稱為Command1的命令按鈕,然后編寫如下事件過程：Prvate Sub Command1_Click() Dim i As Integer, n A

10、s Integer For i=0 To 50 i=i+3 n=n+1If i>10 Then Exit ForNextText1.Text=Str(n)End Sub程序運行后,單擊命令按鈕,在文本框中顯示的值是A)2 B) 3 C)4 D)5(28)假定有以下循環(huán)結(jié)構(gòu)Do Until 條件表達(dá)式 循環(huán)體Loop則以下正確的描述是A)如果“條件表達(dá)式”的值是0,則一次循環(huán)體也不執(zhí)行 B)如果“條件表達(dá)式”的值不為0,則至少執(zhí)行一次循環(huán)體C)不論“條件表達(dá)式”的值是否為“真”至少要執(zhí)行一次循環(huán)體 D)如果“條件表達(dá)式”的值恒為0,則無限次執(zhí)行循環(huán)體(29)在窗體上畫一個命令按鈕,然后編寫

11、如下事件過程：dim i,numRandomizeDo For i=1 to 1000num=Int(Rnd*100)Print numSelect Case numCase 12 Exit Forcase 58 Exit Docase 65,68,92 End End SelectNext iLoop上述事件過程執(zhí)行后,下列描述中正確的是A)Do 循環(huán)執(zhí)行的次數(shù)為1000次B)在For循環(huán)中產(chǎn)生的隨機數(shù)小于或等于100C)當(dāng)產(chǎn)生的隨機數(shù)為12時結(jié)束所有循環(huán)D)當(dāng)產(chǎn)生的隨機數(shù)為65、68或92時窗體關(guān)閉、程序結(jié)束30、在窗體上畫一個名為Command1的命令按鈕,然后編寫如下代碼： Optio

12、n Base 1 Private Sub Command1_Click() Dim a a=Array(1,2,3,4) j=1 For i=4 to 1 Step -1 s=s+a(i)*j J=j*10 Next i Print sEnd sub運行以上程序,其輸出結(jié)果是A) 1234 B) 12 C) 34 D) 432131、設(shè)有如下通用過程： Public Function Fun(xStr As String) As String Dim tStr As String ,strl As Integer tStr=” strl=Len(xStr) i=1 Do While i<

13、=strl/2 tStr=tStr& Mid(xStr,i,1)& Mid(xStr,strl-i+1,1) i=i+1 loop fun=tStr End function在窗體上畫一個名稱為Command1的命令按鈕,然后編寫如下的事件過程： Private Sub Command1_Click() Dim S1 As String S1=”abcdef” Print Ucase(fun(S1) END SUB程序運行后,單擊命令按鈕,輸出結(jié)果是 A)BCDEF B) abcdef C) AFBECD D) DEFABC32、某人為計算n!(0<n<=12) 編

14、寫了下面的函數(shù)過程：Public Function Fun(n As integer) As long Dim p As Long P=1 For k=n-1 to 2 step -1 P=p*k Next k Fun=p End function在調(diào)試時發(fā)現(xiàn)該函數(shù)過程產(chǎn)生的結(jié)果是錯誤的,程序需要修改,下面的修改方案中有3中是正確的,錯誤的方案是 A)把 p=1 改為 p=n B)把 for k=n-1 to 2 step -1 改為 for k=1 to n-1C)把 for k=n-1 to 2 step -1 改為 for k=1 to n D)把 for k=n-1 to 2 step

15、 -1 改為 for k=2 to n33、假定有以下函數(shù)過程： Public Function Fun(s As String) As string Dim s1 As strings1=” For i=1 to len(s) S1=Ucase(mid(s,I,1)+S1 Next i Fun=s1 End function在窗體上畫一個命令按鈕,然后編寫如下事件過程： Private Sub Command1_Click() Dim str1 As String,str2 as string S1=inputbox(“請輸入一個字符串”)S2=FUN(S1) Print s2 END SU

16、B程序運行后,單擊命令按鈕,如果在輸入對話框中輸入字符串“abcdefg”,則單擊“確定”按鈕后在窗體上輸出結(jié)果為A)BCDEFG B)Abcdefg C)GFEDCB D)A gfedcba34、為計an 的值,某人編寫了函數(shù)power 如下：Public Function power(a as interger,n as integer) As long Dim p As Long P=a For k= 1 to n P=p*a Next k power=p End function在調(diào)試時發(fā)現(xiàn)錯誤,例如Print power(5,4)的輸出應(yīng)該是625,但實際輸出是3125,程序需要修改

17、,下面的修改方案中有3個是正確的,錯誤的一個是 A)把 for k=1 to n 改為 for k=2 to n B)把 p=p*a 改為 p=pn C) 把 for k=1 to n 改為 for k=1 to n-1 D)把 p=a 改為 p=135)某人編寫了如下的程序 Private sub Command1_click() Dim a as Integer ,b as Integer A=Inputbox(“請輸入整數(shù)”) B=Inputbox(“請輸入整數(shù)”) Pro a Pro b Call pro(a+b) End subPrivate sub pro(n as Integer

18、) While (n>0) Print n Mod 10 N=n10WendPrintEnd sub此程序功能是：輸入2個正整數(shù),反序輸出這2個數(shù)的每一位數(shù)字,再反序輸出這2個數(shù)之和的每一位數(shù)字。例如：若輸入123和234,則應(yīng)該輸出： 321 432 753但調(diào)試時發(fā)現(xiàn)只輸出了前2行(即2個數(shù)的反序),而未輸出第3行(即兩個數(shù)之和的反序),程序需要修改,下面的修改方案中正確的是 A)把過程pro 的形式參數(shù)n as Integer 改為 byval n as IntegerB)把 Call pro(a+b) 改為 pro a+b C)把 n=n10 改為 n=n/10D)在 pro b

19、 語句之后增加語句c%=a+b ,再把 Call pro(a+b) 改為 pro c二 填空題6、在窗體上畫一個文本框、一個標(biāo)簽和一個命令按鈕,其名稱分別是 Text1,Label1和command1,然后編寫如下兩個事件過程； Private Sub Command1_Click() S$=InputBox(“請輸入一個字符串”) Text1.Text=S$ End Sub Private Sub Text1_Change() Label1.Caption=UCase(Mid(Text1.Text,7) End Sub程序運行后,單擊命令按鈕,將顯示一個輸入對話框,如果在該對話框中輸入字符串

20、“VisualBasic”,則在標(biāo)簽中顯示的內(nèi)容是【6】 7、在窗體上畫一個命令按鈕,其名稱為Command1,然后編寫如下事件過程： Private Sub Command1_Click() a$=”National Computer Rank Examination” n=Len(a$) s=0 For i=1 to n b$=Mid(a$,i,1) if b$=”n” then s=s+1 End If next i print s End sub程序運行后,單擊命令按鈕,輸出結(jié)果是【7】。8、為了在運行是把d:pic文件下的圖形文件a.jpg裝入圖片框picture1,所使用的語句為【

21、8】9、設(shè)有如下程序： Private Sub Form_Click() Cls a$=”ABCDFG” For i=1 to 6 Print Tab(12-i);【9】 Next i End Sub程序運行后,單擊窗體,結(jié)果如圖所示,請?zhí)羁铡?G FG DFG CDFG BCDFG ABCDFG10、在窗體上畫一個命令按鈕,其名稱為Command1,然后編寫如下代碼： Option Base 1 Private Sub Command1_Click() Dim Arr Arr=Array(43,68,-25,65,-78,12,-79,43,-94,72) Pos=0 Neg=0 For k=1 to 10 If Arr(k)>0 Then pos=pos+Arr(k)Else【11】 End If Next k Print pos,negEnd sub以上程序的功能是,計算并輸出數(shù)組Arr 中的10個數(shù)的正數(shù)之和p