計算機等級考試二級VB全真模擬試題

字號:

一、選擇題:35題,2分/題,共70分
    下列各題A)、B)、C)、D)四個選項中,只有一個選項是正確的,請將正確選項涂寫在答題卡相應(yīng)位置上,答在試卷上不得分。
    1.當(dāng)運行程序時,系統(tǒng)自動執(zhí)行啟動窗體的某個事件過程。這個事件過程是( )
     A)Load B)Click C)Unload D)GotFocus
    2.無論何控件,都具有一個共同屬性。這個屬性是( )
     A)Text B)Font C)Name D)Caption
    3.在一行內(nèi)寫多條語句時,語句之間要用某個符號分隔。這個符號是( )
     A), B); C)、 D):
    4.表達式3∧2*2+3 MOD 10\4的值是( )
     A)18 B)1 C)19 D)0
    5.下面的變量名合法的是( )
     A)k_name B)k ame C)name D)k-name
    6.設(shè)有如下變量聲明Dim time1 As Date,為變量time1正確賦值的表達式是( )
     A)time1 = #11:34:04 # B)time1 = Format(Time,"yy:mm:dd")
     C)time1 = #"11:34:04"# D)time1 = Format("hh:mm:ss",Time)
    7.表達式12000 + "129" & 200的值是( )
     A)12329 B)"12129200" C)"12000129200" D)"12329"
    8.若設(shè)a = 4,b = 5,則下列表達式值為真的是( )
     A)(True+a)>0 And b>10 B)a>b Or b>10-a
     C)(False-b< 0) Eqv (a>b) D)a>b Xor b+3>5
    9.當(dāng)窗體上的文字或圖形被覆蓋或小化后能恢復(fù)原貌,需要設(shè)置窗體的屬性是( )
     A)Appearance B)Visible C)Enable D)Autoredraw
    10.在窗體上畫一個名稱為Command1的命令按鈕,編寫以列程序:
     Private Sub Command1_Click( )
     Dim a As Integer
     Static b As Integer
     a = a + b
     b = b + 4
     Print a,b
     End Sub
     程序運行后,單擊該命令按鈕三次,屏幕上顯示的值是( )
     A)4 12 B)0 4 C)4 8 D)8 12
    11.Visual Basic是一種面向?qū)ο蟮某绦蛟O(shè)計語言,構(gòu)成對象的三要素是( )
     A)屬性、控件和方法 B)屬性、事件和方法
     C)窗體、控件和過程 D)控件、過程和模塊
    12.下列程序段錯誤的是( )
    A)Dim a As Integer
     a = array(1,2,3,4)
    B)Dim a(),b()
     a = array(1,2,3,4):b = a
    C)Dim a As Variant
     a = array(1,"asd",true)
    D)Dim a() As Variant
     a = array(1,2,3,4)
    13.表達式String(1,"I am student") + Replace("am harass","rass","ppy") & "!"的值是( )
     A)"I am happy!" B)"I am student I am s am harass studentam happy!"
     C)"I am student am harass!" D)"I am student am happy!"
    14.下列程序段中,能正常結(jié)束循環(huán)的是( )
    A)I = 1
     Do
     I = I + 2
     Loop Until I = 10
    B)I = 5
     Do
     I = I + 1
     Loop Until I < 0
    C)I = 10
     Do
     I = I + 1
     Loop Until I > 0
    D)I = 6
     Do
     I = I - 2
     Loop Until I = 1 15.引用列表框(List1)后一個數(shù)據(jù)項應(yīng)使用的表達式是( )
     A)List1.List(List1.ListCount) B)List1.List(List1.ListCount-1)
     C)List1.List(ListCount) D)List1.List(ListCount-1)
    16.有如下程序:
    Option Base 1
    Private Sub Command1_Click()
    Dim x,y(3,3)
    x = Array(1,2,3,4,5,6,7,8,9)
    For i = 1 To 3
    For j = 1 To 3
    y(i,j) = x(i*j)
    If(j > = i) Then Print y(i,j);
    Next j
    Print
    Next i
    End Sub
     運行時輸入出的結(jié)果是( )
    A)1 2 3
     2 4 6
     4 6 8
    B)1 2 3
     2 4 6
     3 6 9
    C)1
     2 4
     3 6 9
    D)1 2 3
     4 6
     9
    17.在窗體上畫一個名稱為Command1的命令按鈕,編寫如下程序:
    Private Sub Command1_Click()
    Print pl(3,7)
    End Sub
    Public Function pl(x As Single,n As Integer) As Single
    If n=0 Then
    pl=1
    Else
    If n Mod 2=1 Then
    pl=x*x+n
    Else
    P1=x*x-n
    End If
    End If
    End Function
    程序運行后,單擊該命令按鈕,屏幕上顯示的結(jié)果是( )
     A)2 B)1 C)0 D)16
    18.以下屬性和方法中,可重定義坐標(biāo)系的是( )
     A)DrawStyle屬性 B)DrawWidth屬性 C)Scale方法 D)ScaleMode屬性
    19.在窗體上畫一個文本框,然后編寫如下事件過程:
    Private Sub Form_Load()
    Text1.Text = ""
    Text1.SetFocus
    For i = 1 To 5
    Sum = Sum +i
    Next i
    Text1.text = Sum
    End Sub
    上述程序的運行結(jié)果是( )
     A)在文本框中輸出15 B)在文本框中輸出0
     C)在文本框中輸出不定值 D)出錯 20.已知x代表某個百分制成績,下列程序段用于顯示對應(yīng)的五級制成績,正確的是( )
    A)If x > = 60 Then
    Print "及格"
    ElseIf x > = 70 Then
    Print "中"
    ElseIf x > = 80 Then
    Print "良"
    ElseIf x > = 90 Then
    Print "優(yōu)"
    Else
    Print "不及格"
    End If
    B)If x < 90 Then
     Print "良"
     ElseIf x < 80 Then
     Print "中"
     ElseIf x < 70 Then
     Print "及格"
     ElseIf x < 60 Then
     Print "不及格"
     Else
     Print "優(yōu)"
     End If
    C)If x > = 90 Then
    Print "優(yōu)"
    ElseIf x > = 80 Then
    Print "良"
    ElseIf x > = 70 Then
    Print "中"
    ElseIf x > = 60 Then
    Print "及格"
    Else
    Print "不及格"
    End If
    D)Select Case x
    Case x > = 90
    Print "優(yōu)"
    Case x > = 80
    Print "良"
    Case x > = 70
    Print "中"
    Case x > = 60
    Print "及格"
    Case Else
    Print "不及格"
    End Select
    21.下面說法不正確的是( )
     A)滾動條的重要事件是Change和Scroll
     B)框架的主要作用是將控件進行分組,以完成各自相對獨立的功能
     C)組合框是組合了文本框和列表框的特性而形成的一種控件
     D)計時器控件可以通過對Visible屬性的設(shè)置,在程序運行期間顯示在窗體上
    22.在窗體上畫一個名稱為Check1復(fù)選框,在程序運行的過程中,若選中復(fù)選框,則Check1.value的值是( )
     A)True B)2 C)0 D)1
    23.在下列關(guān)于菜單的說法中,錯誤的是( )
     A)每一個菜單項都是一個控件,與其他控件一樣都有自己的屬性和事件
     B)除了Click事件之外,菜單項還能響應(yīng)其他的如 DblClick等事件過程
     C)菜單項的快捷鍵不可以任意設(shè)置
     D)在程序執(zhí)行時,如果菜單項的Enabled屬性為False,則該菜單項變成灰色,不能被用戶選擇
    27.下列關(guān)于過程敘述不正確的是( )
     A)過程的傳值調(diào)用是將實參的具體值傳值遞給形參
     B)過程的傳址調(diào)用是將實參在內(nèi)存的地址傳遞給形參
     C)過程的傳值調(diào)用參數(shù)是單向傳遞的,過程的傳址調(diào)用參數(shù)是雙向傳遞的
     D)無論過程傳值調(diào)用還是過程傳址調(diào)用,參數(shù)傳遞都是雙向的
    28.執(zhí)行了下面程序后,組合框中數(shù)據(jù)項的值是( )
    Private Sub Form_Click()
    For i=1 to 6
    Combo1.AddItem i
    Next i
    For i= 1 to 3
    Combo1.RemoveItem i
    Next i
    End Sub
     A)1 5 6 B)1 3 5 C)4 5 6 D)2 4 6
    29.若在Shape 控件內(nèi)以FillStyle屬性所指定的圖案填充區(qū)域,而填充圖案的線條顏色由FillColor屬性指定,非線條的區(qū)域由Back Color屬性填充,則應(yīng)( )
     A)將Shape控件的FillSte屬性設(shè)置為2至7間的某個值,BackStyle屬性設(shè)置為1
     B)將 Shape控件的FillSte屬性設(shè)置為0或1,BackStyle屬性設(shè)置為1
     C)將Shape控件的FillSte屬性設(shè)置為2至7間的某個值,BackStyle屬性設(shè)置為0
     D)將Shape控件的FillSte屬性設(shè)置為0或1,BackStyle屬性設(shè)置為0
    30.下列程序的執(zhí)行結(jié)果是( )
    Private Sub Form_Activate()
    Dim score(3) As Integer, total As Integer
    Dim aa_score As Variant
    score(1)=50: score(2) =14:score(3)=36
    tota=0: i=0
    For Each aa_score In score
    i=i+1
    total=tota + aa+_score
    Print i,aa_score,total
    Next
    End Sub
     A)1 0 0
     2 50 50
     3 14 64
     4 36 100
     B)1 50 50
     2 14 64
     3 36 100
     C)0 50 50
     1 14 64
     2 36 100
     D)0 0 0
     1 50 50
     2 14 64
     3 36 100
    31.在Activate 事件過程中,寫入下面的程序:
    Option Base 1
    Private Sub Form_Activate()
    Dim t As Integer
    Dim a( ) As Variant
    a=Array (2,4,6,8,10,1,3,5,7,9)
    For i=1 to 10\2
    t= a(i)
    a(i)=a(10 - i + 1)
    a(10 - i + 1)=t
    Next i
    For j= 1 to 10
    Print a(j);
    Next j
    End Sub
    運行程序后,顯示的結(jié)果是( )
     A)2 4 6 8 10 1 3 5 7 9 B)1 3 5 7 9 2 4 6 8 10
     C)9 7 5 3 1 10 8 6 4 2 D)10 8 6 4 2 9 7 5 3 1
    32.在Activate 事件過程中,寫入下面的程序:
     Private Sub Form _Activate()
     Dim S As String, a As String, b As String
     a= "*" : b =" $"
     For i= 1 to 4
     If i / 2= Int(i / 2) Then
     S=String(Len (a)+i , b)
     Else
     S=String(Len(a) + i, a)
     End If
     Print S;
     Next i
     End Sub
     運行程序后,顯示結(jié)果是( )
     A)$$ ***$$$$***** B)*$$**$$***$$$****$$$$
     C)**$$$****$$$$$ D)$*$$**$$$***$$$$****
    33.在窗體上設(shè)置相應(yīng)的控件,并在代碼窗口編寫下列程序:
    Printe Sub Form_Click()
    Dim a As Long ,b As Long
    a=InputBox("請輸入若干個整數(shù)")
    Call P(a,b)
    Print b
    End Sub
    Private Sub P(x As Long, y As Long)
    Dim n As Integer, j As String*1, s As String
    k=Len(Trim(Str(x)))
    s=""
    For i= K To 1 Step -1
    j=Mid(x,i,1)
    s=s+j
    Next i
    y=Val(s)
    End Sub
    運行程序,在InputBox框中輸入123456,然后單擊"確定"按鈕,則輸出結(jié)果是( )
     A)123456 B)654321 C)135246 D)246135
    34.設(shè)定文本框內(nèi)的文字內(nèi)容是否允許修改的屬性是( )
     A)Text B)Locked C)PasswordChar D)Multiline
    35.要建立一個學(xué)生成績的隨機文件,如下定義了學(xué)生的記錄類型,由學(xué)號、姓名、三門課程成績(百分制)組成,下列程序段正確的是( )
     A)Type studl
     no As Integer
     name AS String
     score(1 to 3) As Single
     End Type
     B)Type studl
     no As Integer
     name As String *10
     score() As Single
     End Type
     C)Type studl
     no As Integer
     name As String *10
     score(1 to 3) As Stngle
     End Type
     D)Type studl
     no As Integer
     name As String
     score(1 to 3) As String
     End Type 二、填空:每空2分,共30分。
    1.有一圖書查詢系統(tǒng),當(dāng)在組合框中選擇書名后,則在兩個文本框中顯示出作者和出版社,程序運行后的界面如圖2-1所示,當(dāng)單擊“結(jié)束”按鈕時,結(jié)束程序。程序中有一個組合框、兩個文本框、三個標(biāo)簽及一個命令按鈕。請________處填入適當(dāng)?shù)膬?nèi)容,將程序補充完整。
    Dim k As Integer
    dim author(),b_concern
    Privage Sub Combol_Click()
    Dim n As Integer
    n=Combol.ListIndex
    Text(1)= ________
    Text(2)= ________
    End Sub
    Private Sub Combol_Click()
    ________
    End Sub
    Private Sub Form_Load()
    Combol.AddItem"哭泣的駱駝"
    Combol.AddItem"雙城記"
    Combol.AddItem"窗外"
    Combol.AddItem"紅與黑"
    Combol.AddItem"廢都"
    author()=Array("三毛","荻更斯","瓊瑤","司湯達、"賈平凹")
    b_concern()=Array("作家","商務(wù)","香江文藝","外國文學(xué)"、"上海")
    End Sub
    2.在窗體上畫一個名稱為Timer1的計時器和一個名稱為Label1的標(biāo)簽。當(dāng)運行程序后,將在標(biāo)簽中顯示當(dāng)前時間的數(shù)字時鐘(包括時:分:秒)。程序運行后的結(jié)果如圖2-2所示。請在________處填入適當(dāng)?shù)膬?nèi)容,將程序補充完整。
    Private Sub Form_Load()
    Timer1.Interval=1000
    End Sub
    Private Sub Timer1_timer()
    ________
    End Sub
    3.在剛建立工程時,使窗體上的所有控件具有區(qū)別于默認值的相同的字體格式,應(yīng)對________的________屬性進行設(shè)置。
    4.整形變量M中存放了一個兩位數(shù),要將兩位數(shù)交換位置,例如24變成42,實現(xiàn)的表達式為________
    5.下列程序運行時,當(dāng)單擊窗體后,從鍵盤輸入一個字符,判斷該字符是字母字符、數(shù)字字符還是其他字符,并做相應(yīng)的顯示。窗體上無任何控件,并禁用Asc和Chr函數(shù),Select Case 語句中禁用枚舉值。請在________處填入適當(dāng)?shù)膬?nèi)容,將程序補充完整。
     Private Sub Form_Load()
     Dim x As String*1
     X=________(“請輸入單個字符”,“字符”)
     Select Case UCase(________)
     Case ________
     Print X+“是字母字符”
     Case ________
     Print X+“是數(shù)字字符”
     Case Else
     Print X+“是其他字符”
     End Select
     End Sub
    6.下列程序為求Sn=a+aa+aaa+……+aa…a(n個a),其中a為一個隨機數(shù)產(chǎn)生的1~9(包括1、9)中的一個正整數(shù),n是一個隨機數(shù)產(chǎn)生的5~10(包括5、10)中的一個正整數(shù),請在________處填入適當(dāng)?shù)膬?nèi)容,將程序補充完整。
    Private Sub Form_Load()
    Dim a As Integer,n As Integer, S As Double,Sn As Double
    a=Fix(9*Rnd)+1
    n=Fix(6*Rnd)+5
    Sn=0
    S=0
    For i=1 to ________
    S=S+a*10^(i-1)
    ________
    print Sn
    Next i
    End Sub
    7.如果菜單標(biāo)題的某個字母前輸入一個“________”符號,那么該字母就成了熱鍵字母;如果建立菜單時在標(biāo)題文本框中輸入一個“________;_________”,那么顯示時將形成一行分隔符。 計算機等級考試二級VB全真模擬試題答案
    一、選擇題:
    1.A 2.C 3.D 4.C 5.A 6.A 7.B 8.D 9.D 10.D 11.B
    12.A 13.A 14.C 15.B 16.D 17.D 18.C 19.D 20.C 21.D 22.D
    23.B 24.B 25.A 26.A 27.D 28.D 29.A 30.A 31.C 32.C 33.B
    34.B 35.C
    二、填空題
    1: author(n) ;b_concerm(n) ;End
    2: Labell.Caption=Time
    3: Form窗體 、 Font
    4:((M mod 10)*10 + M\10)
    5: InputBox; X"A"To"z" "0"To"9"
    6: n;Sn = Sn + S
    7: & 、 - 、 _