2017年9月計算機二級考試VB考試題
VB是計算機二級考試的科瑪之一，你知道計算機二級考試VB科目都考哪些知識嗎?為了方便考生備考計算機二級考試VB 科目。下面是小編為大家帶來的計算機二級考試VB考試題，歡迎閱讀。
考試題一：
1. 在窗體上畫一個命令按鈕，然后編寫如下代碼：
Option Base 1
Private Sub Command1_Click( )
Dim a ( )
a = Array ( 30 , 40 , 70 , 10 , 50 , 80 , 20 , 90 , 60 )
s = 0
k = 1
While k – 10
s = s + a ( k )
k = k + 1
Wend
Aver = s / ( k – 1 )
m = 0
For i = 1 To k – 1
If a ( i ) > Aver Then m = m +1
Next i
Print m
End Sub
程序運行后，單擊命令按鈕，輸出結果為( 【84】 )
(A)4 (B)5 (C)6 (D)7
2. 有以下函數：
Function Fun(ByVal a As Integer) As Integer
Dim b As Integer
Static c As Integer
b=2 : c = 1
b = b +2
c = c + 2
Fun = a + b + c
End Function
在窗體上畫一個命令按鈕，然后編寫如下代碼：
Privat Sub Command1_Click ( )
For i = 1 To 4
Print Fun ( i ) ,
Next i
End Sub
運行程序后，單擊命令按鈕，輸出結果為( 【85】 )
(A)8 8 8 8 (B)8 13 18 23
(C)8 9 10 11 (D)8 11 14 17
3. 下列不能打開屬性窗口的操作是( )
(A)執行“視圖”菜單中的【屬性窗口】命令 (B)按
(C)單擊工具欄上的【屬性窗口】按鈕 (D)按
4. 在使用Visual Basic的工具箱時，如果工具箱沒有出現在窗口中，應在( )菜單中操作使它可見。
(A)視圖 (B)窗口 (C)文件 (D)編輯
5. Visual Basic的特點不包括下面的( )
(A)不需編程 (B)面向對象的程序設計
(C)可視化程序設計 (D)事件驅動的程序設計
6. 在Visual Basic集成環境的主窗口中，不包括的項目是( )
(A)標題欄 (B)菜單欄 (C)狀態欄 (D)工具欄
7. 在Visual Basic環境中，窗體等大小的默認計量單位是( )
(A)英寸 (B)厘米 (C)像素 (D)twip
8. 與傳統的程序設計語言相比，Visual Basic最突出的特點是( )
(A)結構化程序設計 (B)程序開發環境
(C)事件驅動編程機制 (D)程序調試技術
9. Visual Basic窗體設計器的主要功能是( )
(A)建立用戶界面 (B)編寫源程序代碼
(C)畫圖 (C)顯示文字
10. 為了在按下
(A)Value (B)Default (C)Cancel (D)Enabled
考試題二：
1. 有如下一個函數過程：
Function Func (ByVal Num As Long )
Dim k As Long
k=1
Num = Abs (Num)
Do While ( Num)
k = k * (Num Mod 10)
Num = Num 10
Loop
Func = k
End Function
以下是一個調用該函數的事件過程，在運行該過程后，在輸入對話框中輸入“2345”，則該過程的運行結果是( 【78】 )
Private Sub Command1_Click( )
Dim n As Long , r As Long
n = InputBox ( “請輸入數據：” )
n = CLng ( n ) ‘CLng函數的返回值是一個長整型數值
r = Func ( n )
Print r
End Sub
(A)0 (B)24 (C)60 (D)120
2. 在窗體上畫一個名稱為Command1的命令按鈕和兩個名稱分別為Text1、Text2的文本框，然后編寫如下事件過程：
Private Sub Command1_Click()
n = Val(Text1.Text)
Select Case n
Case 1 To 20
x = 10
Case 2, 4, 6
x= 20
Case Is < 10
x = 30
Case 10
x = 40
End Select
Text2.Text = x
End Sub
程序運行后，如果在文本框Text1中輸入10，然后單擊命令按鈕，則在Text2中顯示的內容是
(A)10 (B)20 (C)30 (D)40
3. 在窗體上畫一個名稱為Text1的文本框，一個名稱為Command1的命令按鈕，然后編寫如下事件過程和通用過程：
Private Sub Command1_Click()
N=Val(Text1.Text)
If n 2 = n / 2 Then
f=f1(N)
Else
F=f2(N)
End If
Print f; n
End Sub
Public Function f1(ByRef x)
x = x * x
f1=x + x
End Function
Public Function f2(ByVal x)
x = x * x
f1=x + x + x
End Function
程序運行后，在文本框中輸入6，然后單擊命令按鈕，窗體上顯示的是( 【79】 )
(A)72 6 (B)108 6 (C)72 36 (D)108 36
4. 設在工程中有一個標準模塊，其中定義了如下記錄類型
Type Books
Name As String * 10
TelNum As String * 20
End Type
在窗體上畫一個名為Command1的命令按鈕，要求當執行事件過程Command1_Click( )時，在順序文件Ks74 . Txt中寫入一條記錄。下列能夠完成該操作的事件過程是( 【79】 )
(A)Private Sub Command1_Click( )
Dim b As Books
Open “D:Vb2003KsKs74.Txt” For OutPut As #1
b.Name = InputBox ( “輸入姓名”)
b.TelNum = Inputbox ( “輸入電話號碼”)
Write #1 , b.Name , b.TelNum
Close #1
End Sub
(B)Private Sub Command1_Click( )
Dim b As Books
Open “D:Vb2003KsKs74.Txt” For InPut As #1
b.Name = InputBox ( “輸入姓名”)
b.TelNum = Inputbox ( “輸入電話號碼”)
Print #1 , b.Name , b.TelNum
Close #1
End Sub
(C)Private Sub Command1_Click( )
Dim b As Books
Open “D:Vb2003KsKs74.Txt” For OutPut As #1
b.Name = InputBox ( “輸入姓名”)
b.TelNum = Inputbox ( “輸入電話號碼”)
Write #1 , b
Close #1
End Sub
(D)Private Sub Command1_Click( )
Dim b As Books
Open “D:Vb2003KsKs74.Txt” For InPut As #1
b.Name = InputBox ( “輸入姓名”)
b.TelNum = Inputbox ( “輸入電話號碼”)
Print #1 , Name , TelNum
Close #1
End Sub
5. 在窗體上畫一個名稱為Text1的文本框，并編寫如下程序：
Private Sub Form_Load()
Show
Text1.Text = ""
Text1.SetFocus
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Print "程序設計"
End Sub
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
Print "Visual Basic";
End Sub
程序運行后，如果按"A"鍵，然后單擊窗體，則在窗體上顯示的內容是
(A)Visual Basic (B)程序設計
(C)A程序設計 (D)Visual Basic程序設計
6. 下列程序運行后，運行結果不是144的程序是( 【80】 )
(A)Dim z As Integer (B)Dim x As Integer
Private Sub Form_Click( ) Private Sub Form_Click( )
x=12 x=12
Call Fun ( x ) Call Fun ( x , z)
Print z Print z
End Sub End Sub
Sub Fun ( y ) Sub Fun ( y , z )
z = y * y z = y * y
End Sub End Sub
(C)Private Sub Form_Click( ) (D)Private Sub Form_Click( )
x=12 x=12
Call Fun ( x ) Call Fun ( x , z )
Print z Print z
End Sub End Sub
Sub Fun ( Byref y ) Sub Fun ( Byref y , z )
z = 12 * 12 z = y * y
End Sub End Sub
7. 設有如下程序：
Private Sub Command1_Click()
Dim sum As Double, x As Double
sum = 0
n = 0
For i = 1 To 5
x = n / i
n = n + 1
sum = sum + x
Next
End Sub
該程序通過For循環計算一個表達式的值，這個表達式是
(A)1+1/2+ 2/3+3/4+4/5 (B)1+1/2+2/3+3/4
(C)1/2+2/3+3/4+4/5 (D)1+1/2+1/3+1/4+1/5
8. 程序如下：
Private Sub Form_Click( )
Dim a As Integer , b As Integer
a = 5 : b = 8
Call Fun (a , b)
Print a , b
End Sub
Private Sub Fun ( x As Integer , y As Integer )
x = x * y
y = y * x
End Sub
程序運行時，單擊窗體后，在窗體上輸出的結果為( 【81】 )
(A)5 8 (B)40 40 (C)40 8 (D)40 320
9. 在窗體上畫一個命令按鈕，然后編寫如下事件過程：
Private Sub Command1_Click( )
x=0
For i=1 to 3
x=1
For j=1 to 4
x=2
For k=1 to 5
x = x + 2
Next k
Next j
Next i
Print x
End Sub
程序運行后，單擊命令按鈕，輸出結果為( 【82】 )
(A)12 (B)24 (C)36 (D)48
10. 在窗體上畫一個命令按鈕，然后編寫如下代碼：
Private Type Record
ID As Integer
Name As String * 20
End Type
Private Sub Command1_Click( )
Dim MaxSize , NextChar , MyChar
Open “D:Vb2003KsKs78.Dat ” For Binary As #1
MaxSize = LOF ( 1 )
For NextChar = MaxSize To 1 Step -1
Seek # 1 , NextChar
MyChar = Input ( 1 , # 1 )
Next NextChar
Print EOF ( 1 )
Close # 1
End Sub
程序運行后，單擊命令按鈕，其輸出結果為( 【83】 )
(A)True (B)False (C)Null (D)0
【9月計算機二級考試VB考試題】相關文章：
9月計算機二級考試VB真題10-11
2016年3月計算機二級VB考試題及答案09-01
計算機二級考試VB考試題及答案08-28
計算機二級VB考試題及答案10-30