2015年計算機等級考試二級VB模擬試題

相關推薦

　　一、選擇題：35題，2分/題，共70分

2015年計算機等級考試二級VB模擬試題

　　下列各題A)、B)、C)、D)四個選項中，只有一個選項是正確的，請將正確選項涂寫在答題卡相應位置上，答在試卷上不得分。

　　1.當運行程序時，系統自動執行啟動窗體的某個事件過程。這個事件過程是(A)

　　A)Load

　　B)Click

　　C)Unload

　　D)GotFocus

　　2.無論何控件，都具有一個共同屬性。這個屬性是(C)

　　A)Text

　　B)Font

　　C)Name

　　D)Caption

　　3.在一行內寫多條語句時，語句之間要用某個符號分隔。這個符號是(D)

　　A)，

　　B);

　　C)、

　　D)：

　　4.表達式3∧2*2+3 MOD 10\4的值是(C)

　　A)18

　　B)1

　　C)19

　　D)0

　　5.下面的變量名合法的是(A)

　　A)k_name

　　B)k ame

　　C)name

　　D)k-name

　　6.設有如下變量聲明Dim time1 As Date,為變量time1正確賦值的表達式是(A)

　　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的值是(B)

　　A)12329

　　B)"12129200"

　　C)"12000129200"

　　D)"12329"

　　8.若設a = 4,b = 5,則下列表達式值為真的是(D)

　　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)

　　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

　　程序運行后，單擊該命令按鈕三次，屏幕上顯示的值是(D)

　　A)4 12

　　B)0 4

　　C)4 8

　　D)8 12

　　11.Visual Basic是一種面向對象的程序設計語言，構成對象的三要素是(B)

　　A)屬性、控件和方法

　　B)屬性、事件和方法

　　C)窗體、控件和過程

　　D)控件、過程和模塊

　　12.下列程序段錯誤的是(A)

　　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)

　　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.下列程序段中，能正常結束循環的是(C)

　　A)I = 1

　　I = I + 2

　　Loop Until I = 10

　　B)I = 5

　　I = I + 1

　　Loop Until I < 0

　　C)I = 10

　　I = I + 1

　　Loop Until I > 0

　　D)I = 6

　　I = I - 2

　　Loop Until I = 1

　　15.引用列表框(List1)最后一個數據項應使用的表達式是(B)

　　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

　　Next i

　　End Sub

　　運行時輸入出的結果是(D)

　　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

　　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 Function

　　程序運行后，單擊該命令按鈕，屏幕上顯示的結果是(D)

　　A)2

　　B)1

　　C)0

　　D)16

　　18.以下屬性和方法中，可重定義坐標系的是(C)

　　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

　　上述程序的運行結果是(D)

　　A)在文本框中輸出15

　　B)在文本框中輸出0

　　C)在文本框中輸出不定值

　　D)出錯

　　20.已知x代表某個百分制成績，下列程序段用于顯示對應的五級制成績，正確的是(C)

　　A)If x > = 60 Then

　　Print "及格"

　　ElseIf x > = 70 Then

　　Print "中"

　　ElseIf x > = 80 Then

　　Print "良"

　　ElseIf x > = 90 Then

　　Print "優"

　　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 "優"

　　End If

　　C)If x > = 90 Then

　　Print "優"

　　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 "優"

　　Case x > = 80

　　Print "良"

　　Case x > = 70

　　Print "中"

　　Case x > = 60

　　Print "及格"

　　Case Else

　　Print "不及格"

　　End Select

　　21.下面說法不正確的是(D)

　　A)滾動條的重要事件是Change和Scroll

　　B)框架的主要作用是將控件進行分組，以完成各自相對獨立的功能

　　C)組合框是組合了文本框和列表框的特性而形成的一種控件

　　D)計時器控件可以通過對Visible屬性的設置，在程序運行期間顯示在窗體上

　　22.在窗體上畫一個名稱為Check1復選框，在程序運行的過程中，若選中復選框，則Check1.value的值是(D)

　　A)True

　　B)2

　　C)0

　　D)1

　　23.在下列關于菜單的說法中，錯誤的是(B)

　　A)每一個菜單項都是一個控件，與其他控件一樣都有自己的屬性和事件

　　B)除了Click事件之外，菜單項還能響應其他的如 DblClick等事件過程

　　C)菜單項的快捷鍵不可以任意設置

　　D)在程序執行時，如果菜單項的Enabled屬性為False，則該菜單項變成灰色，不能被用戶選擇

　　24.下面關于多重窗體的敘述中，正確的是(B)

　　A)作為啟動對象的Main 子過程只能放在窗體模塊內

　　B)如果啟動對象是Main 子過程，則程序啟動時不加載任何窗體，以后由該過程根據不同情況決定是否加載窗體或加載哪一個窗體

　　C)沒有啟動窗體，程序不能執行

　　D)以上都不對

　　25.與鍵盤操作有關的事件有KeyPress、KeyUp和KeyDown事件，當用戶按上并且釋放一個鍵后，這三個事件發生的順序是(A)

　　A)KeyDown、KeyPress、KeyUp

　　B)KeyDown、KeyUp、KeyPress

　　C)KeyPress、KeyDown、、KeyUp

　　D)沒有規律

　　26.要從磁盤上讀入一個文件名為“c:\filel.txt”的順序文件，下面程序段正確的是(A)

　　A)F="c:\filel.txt"

　　Open F For Input As # 1

　　B)F="c:\filel.txt"

　　Open "F" For Input As # 2

　　C)Open "c:\filel.txt" For Output As # 2

　　D)Open c:\filel.txt For Input As # 1

　　27.下列關于過程敘述不正確的是(D)

　　A)過程的傳值調用是將實參的具體值傳值遞給形參

　　B)過程的傳址調用是將實參在內存的地址傳遞給形參

　　C)過程的傳值調用參數是單向傳遞的，過程的傳址調用參數是雙向傳遞的

　　D)無論過程傳值調用還是過程傳址調用，參數傳遞都是雙向的

　　28.執行了下面程序后，組合框中數據項的值是(D)

　　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 控件內以FillStyle屬性所指定的圖案填充區域，而填充圖案的線條顏色由FillColor屬性指定，非線條的區域由Back Color屬性填充，則應(A)

　　A)將Shape控件的FillSte屬性設置為2至7間的某個值，BackStyle屬性設置為1

　　B)將Shape控件的FillSte屬性設置為0或1，BackStyle屬性設置為1

　　C)將Shape控件的FillSte屬性設置為2至7間的某個值，BackStyle屬性設置為0

　　D)將Shape控件的FillSte屬性設置為0或1，BackStyle屬性設置為0

　　30.下列程序的執行結果是(A)

　　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

　　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

　　運行程序后，顯示的結果是(C)

　　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

　　運行程序后，顯示結果是(C)

　　A)$$ ***$$$$*****

　　B)*$$**$$***$$$****$$$$

　　C)**$$$****$$$$$

　　D)$*$$**$$$***$$$$****

　　33.在窗體上設置相應的控件，并在代碼窗口編寫下列程序：

　　Printe Sub Form_Click()

　　Dim a As Long ,b As Long

　　a=InputBox("請輸入若干個整數")

　　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,然后單擊"確定"按鈕，則輸出結果是(B)

　　A)123456

　　B)654321

　　C)135246

　　D)246135

　　34.設定文本框內的文字內容是否允許修改的屬性是(B)

　　A)Text

　　B)Locked

　　C)PasswordChar

　　D)Multiline

　　35.要建立一個學生成績的隨機文件，如下定義了學生的記錄類型，由學號、姓名、三門課程成績(百分制)組成，下列程序段正確的是(C)

　　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.有一圖書查詢系統，當在組合框中選擇書名后，則在兩個文本框中顯示出作者和出版社，程序運行后的界面如圖2-1所示，當單擊“結束”按鈕時，結束程序。程序中有一個組合框、兩個文本框、三個標簽及一個命令按鈕。請__[1]__、_[2]__和__[3]__處填入適當的內容，將程序補充完整。

　　Dim k As Integer

　　dim author(),b_concern

　　Privage Sub Combol_Click()

　　Dim n As Integer

　　n=Combol.ListIndex

　　Text(1)=[1]

　　Text(2)=[2]

　　End Sub

　　Private Sub Combol_Click()

　　[3]

　　End Sub

　　Private Sub Form_Load()

　　Combol.AddItem"哭泣的駱駝"

　　Combol.AddItem"雙城記"

　　Combol.AddItem"窗外"

　　Combol.AddItem"紅與黑"

　　Combol.AddItem"廢都"

　　author()=Array("三毛"，"荻更斯"，"瓊瑤"，"司湯達、"賈平凹")

　　b_concern()=Array("作家"，"商務"，"香江文藝"，"外國文學"、"上海")

　　End Sub

　　答案: author(n) ;b_concerm(n) ;End

　　2.在窗體上畫一個名稱為Timer1的計時器和一個名稱為Label1的標簽。當運行程序后，將在標簽中顯示當前時間的數字時鐘(包括時：分：秒)。程序運行后的結果如圖2-2所示。請在__[4]__處填入適當的內容，將程序補充完整。

　　Private Sub Form_Load()

　　Timer1.Interval=1000

　　End Sub

　　Private Sub Timer1_timer()

　　__[4]__

　　End Sub

　　答案: Labell.Caption=Time

　　3.在剛建立工程時，使窗體上的所有控件具有區別于默認值的相同的字體格式，應對__[5]__的__[6]__屬性進行設置。

　　答案: Form窗體、 Font

　　4.整形變量M中存放了一個兩位數，要將兩位數交換位置，例如24變成42，實現的表達式為__[7]__

　　答案:((M mod 10)*10 + M\10)

　　5.下列程序運行時，當單擊窗體后，從鍵盤輸入一個字符，判斷該字符是字母字符、數字字符還是其他字符，并做相應的顯示。窗體上無任何控件，并禁用Asc和Chr函數，Select Case 語句中禁用枚舉值。請在__[8]__、__[9]__、__[10]和__[11]__ 處填入適當的內容，將程序補充完整。

　　Private Sub Form_Load()

　　Dim x As String*1

　　X=__[8]__(“請輸入單個字符”，“字符”)

　　Select Case UCase(__[9]__)

　　Case __[10]__

　　Print X+“是字母字符”

　　Case __[11]__

　　Print X+“是數字字符”

　　Case Else

　　Print X+“是其他字符”

　　End Select

　　End Sub