2009年春季計(jì)算機(jī)等級考試Visual_Basic語言筆試試題A卷.doc

二級Visual Basic 語言筆試試題A卷一、單項(xiàng)選擇題 （每題 1 分，共20分） 1語句 X = Rnd * 1000 執(zhí)行之后，變量X可能的取值范圍是（ ）（A）0X1（B）0X1（C）0X1000（D）0X10002VB中表示回車換行的符號常量是（ ）（A）VBRed（B）vbCrLf（C）VBrgb（D）VBcolor3VB表達(dá)式64 4 * 2 Mod 5的值是（ ）（A）1（B）2（C）3（D）44函數(shù)String(3，Student)的返回值是（ ）（A）SSS（B）Stu（C）StuStuStu（D）StudentStudentStudent5若使標(biāo)簽控件Label1能自動(dòng)改變自身大小，以保證文字在其中能夠完整顯示，應(yīng)設(shè)置屬性（ ）（A）Label1.Caption = ”（B）Label1.BorderStyle = 0 (None)（C）Label1.AutoSize = True（D）Label1.Width = Max6下列關(guān)于數(shù)組定義的語句中，概念正確的語句是（ ）（A）一維數(shù)組的下標(biāo)只能從0或1開始（B）使用語句Dim a(-10, 10) As Double ，可以定義一個(gè)擁有21個(gè)元素的數(shù)組（C）使用語句Dim a(n) As Integer，可以定義一個(gè)擁有n個(gè)元素的數(shù)組（D）使用語句Option Base 0: Dim b(3,5) As Single定義的數(shù)組b擁有24個(gè)元素7函數(shù)表達(dá)式Val(最大值256)的返回值為（ ）（A）0（B）256（C）65536（D）類型不匹配8在Visual Basic程序運(yùn)行期間始終不可見的控件是( )（A）Label（B）Frame（C）Timer（D）ListBox9能在程序運(yùn)行期間將圖片文件“d:background.jpg”設(shè)置為窗體背景的語句是（ ）（A）Me.Picture = d:background.jpg（B）Me.Picture = LoadPicture(d:background.jpg)（C）Me.BackColor = d:background.jpg（D）Me.FillColor = LoadPicture(d:background.jpg)10下列窗體事件過程最先被執(zhí)行的是（ ）（A）Load()（B）Click()（C）MouseDown() （D）Unload()11下列程序運(yùn)行后，單擊命令按鈕Command1，則在窗體上顯示的內(nèi)容是（ ）Option Base 0Private Sub Command1_Click()Dim city As Variantcity = Array(北京, 上海, 天津, 重慶)Print city(1)End Sub（A）空白（B）錯(cuò)誤提示（C）北京（D）上海12下面程序段的執(zhí)行結(jié)果是（ ） a = 75 If a = 90 Then score = 優(yōu)秀 If a = 80 Then score = 良好 If a = 70 Then score = 中等 If a = 60 Then score = 及格 If a =175 And 75 = Weight =175 And Weight =75 And Weight =175 Or Weight =75 And Weight =175 And (Weight =75 And Weight =175 Or Weight =75 Or Weight =858、執(zhí)行語句 Dim today As Date之后，能向變量today正確地賦以日期值的語句有（ ）（A）today = ”2009年4月25日”（B）today = #2009-4-25#（C）today = #2009/4/25#（D）today = ”2009.4.25 ”（E）today = 2009-4-259在以下表達(dá)式中，返回結(jié)果不可能為0的表達(dá)式有( )。（A）Int(Rnd * 9999)（B）Int(Rnd * 9999 + 9999)（C）Int(Rnd * 1 + 1)（D）Int(Rnd * 1 1)（E）Int(Rnd * 1) 110下列Visual Basic程序已完成代碼編寫，要結(jié)束程序的運(yùn)行，可以采取的操作方法有( )。（A）鼠標(biāo)單擊“結(jié)束”按鈕（B）按下組合鍵“Alt + X”（C）按下組合鍵“Ctrl + X”（D）按下組合鍵“Shift + X”（E）多次按下Tab鍵，使“結(jié)束”按鈕獲得焦點(diǎn)（按鈕表面四周出現(xiàn)虛線框），然后按回車鍵三. 判斷分析 (每題1分, 共10分)1在Visual Basic提供的日期函數(shù)中，Year(Now)的返回值是數(shù)值類型。2Visual Basic應(yīng)用程序可以包含多個(gè)窗體，但在程序運(yùn)行期間，任何時(shí)候總是只有一個(gè)窗體為可見的。3當(dāng)窗體上有多個(gè)控件時(shí)，多次按下CapsLock鍵，就可以使焦點(diǎn)在這些控件之間轉(zhuǎn)移。4若一控件的Visible屬性值為False，則該控件不可見。5標(biāo)簽控件（Label）在任何情況下都只能顯示單行文字。6函數(shù)表達(dá)式Trim(string1)可以刪除字符串變量string1中包含的所有空格。7使用語句Dim a(10) As Integer定義數(shù)組之后，可以使用ReDim a(20) As Long將其重新定義。8程序中的所有變量都必須用Dim聲明，否則將出現(xiàn)錯(cuò)誤。9放置在同一框架（Frame）中的多個(gè)單選按鈕（OptionButton），程序運(yùn)行期間最多只能有一個(gè)被選中。10. 僅當(dāng)設(shè)置文本框(TextBox)的MultiLine屬性為True，文本框內(nèi)才能顯示多行字符。四、程序填空題(每空2分, 共20分)1程序運(yùn)行后，單擊窗體，在窗體上顯示由星號組成的完整的2個(gè)周期正弦曲線（各星號之間的相位角為5）。Private Sub Form_Click()pi = 3.14159 / 180 y0 = Me.ScaleHeight / 2 For i = 0 To （1） Step 5 CurrentX = i * 10 CurrentY = y0 - 1000 * Sin(i * (2) ) Print * NextEnd Sub2程序功能是計(jì)算以下分段函數(shù)的值，請?zhí)羁胀瓿稍摮绦?。Private Sub Form_Click()Dim x As Single, y As Singlex = Val(InputBox(請輸入x的值：)Select Case x Case (3) y = 2 * x Case (4) y = 3 * x + 2 Case Else y = 0End SelectPrint x=; x, y=; yEnd Sub3. 下面程序的功能是計(jì)算s=1+2+4+6+998。Private Sub Command1_Click()s = （5） n = 2 Do While n （6） s = s + n n = n + 2LoopPrint s=; sEnd Sub4. 下面程序的功能是：尋找能同時(shí)被5和9整除的5個(gè)最小正整數(shù)。Private Sub Command1_Click() Dim n As Integer, m As Integer n = 0: m = 4 Do m = m + 1 If （7） Then Print m n = n + 1 End If Loop While （8） End Sub5下面程序功能是計(jì)算1! + 3! + 5! + 7! + 9! 的值。Private Sub Form_Click() Sum = 0 For i = 1 To 9 (9) Sum = Sum + (10) Next i Print SumEnd SubPrivate Function dg(x) As Single If x = 1 Then dg = 1 Else dg = x * dg(x - 1)End Function五、分析程序(每小題4分, 共20分)1下面的程序運(yùn)行后，單擊窗體，窗體上輸出的結(jié)果是（ ）Private Sub Form_Click() k = 15If k = 10 Then a = 2 * k + 100If k = 20 Then a = 2 * k + 200If k = 30 Then a = k + 10Print k; aEnd Sub（A）15 130（B）15 230（C）15 25（D）25 152下列程序運(yùn)行后，單擊窗體，輸出結(jié)果為（ D ）Private Sub Form_Click() Dim s As Integer, i As Integer Do While i = 100 s = s + i Loop Print sEnd Sub（A）100（B）5050（C）5500（D）溢出錯(cuò)誤3運(yùn)行下列程序，單擊窗體，在窗口上顯示的結(jié)果為（ ）Private Sub Form_Click() Dim a As Integer a = 4 Print a = 3 + 2End Sub（A）4（B）5（C）True（D）False 4下面程序運(yùn)行后在窗體上顯示的結(jié)果是 （ ）Private Sub Form_Click ( ) For k = 1 To 7 For j = 1 To 7 If k 204、=105、16、1000(999也可)7、m mod 5=0 and m mod 9=08、n= A And s1 = A And s2 = Z Then word = word + 1 Next i Label1.Caption = 文本框內(nèi)的單詞總數(shù)為： & wordEnd Sub由于時(shí)間關(guān)系，再加上沒有調(diào)試環(huán)境，學(xué)生不可能考慮得非常仔細(xì)，只要做到如下程度就可以給滿分：Private Sub Command1_Click() Dim a a = Split(Text1, ) word = 0 For i = LBound(a) To UBound(a) If Val(a(i) = 0 Then word = word + 1 Next i Label1.Caption = 文本框內(nèi)的單詞總數(shù)為： & wordEnd Sub能做到如下程度可以給6分Private Sub Command1_Click() Dim a a = Split(Text1, ) Label1.Caption = 文本框內(nèi)的單詞總數(shù)為： & UBound(a) - LBound(a) + 1