- 相關推薦
2017年9月計算機二級考試VB備考題及答案
2017年計算機二級考試馬上就要開始了，你報考了哪個科目呢?下面是小編為大家帶來的計算機二級考試VB備考題，歡迎閱讀。
備考題一：
1.在窗體上畫一個名稱為Text1的文本框，一個名稱為Command1的命令按鈕，然后編寫如下事件過程和通用過程：
Private Sub Command1_Click( )
n = Val(Text1.Text)
If n2 = 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
f2=x+x+x
End Function
程序運行后，在文本框中輸入3，然后單擊命令按鈕，窗體上顯示的是(D)(單)
A.72 36
B.108 36
C.72 6
D.27 3
2.在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下事件過程：
Private Sub Command1_Click( )
c = "1234"
For i = 1 To 4
c1 = Trim(Str( ))
Print c1
Next i
End Sub
程序運行后，單擊命令按鈕，要求在窗體上顯示如下內容
1
12
123
1234
則在下劃線處應填入的內容為(B)(單)
A.Right(c1,i)
B.Left(c1,i)
C.Mid(c1,i,1)
D.Mid(c1,i,i)
3.在窗體上畫一個名稱為Command1的命令按鈕和一個名稱為Text1的文本框，然后編寫如下事件過程：
Private Sub Command1_Click( )
n = Val(Text1.Text)
For i = 2 To n
For j = 2 To sqr(i)
If i Mod j = 0 Then Exit For
Next j
If j >Sqr(i) Then Print i
Next i
End Sub
該事件過程的功能是(C)(單)
A.輸出n以內的奇數
B.輸出n以內的偶數
C.輸出n以內的素數
D.輸出n以內能被j整除的數
4.在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下通用過程和命令按鈕的事件過程：
Private Function f(m As Integer)
If m Mod 2 = 0 Then
f = m
Else
f = 1
End If
End Function
Private Sub Command1_Click( )
Dim i As Integer
s = 0
For i = 1 To 5
s = s + f(i)
Next
Print s
End Sub
程序運行后，單擊命令按鈕，在窗體上顯示的是(C)(單)
A.11
B.10
C.9
D.8
5.在窗體上畫一個名稱為Text1的文本框和一個名稱為Command1的命令按鈕，然后編寫如下事件過程：
Private Sub Command1_Click( )
Dim array1(10, 10) As Integer
Dim i As Integer, j As Integer
For i = 1 To 3
For j = 2 To 4
array1(i, j) = i + j
Next j
Next i
Text1.Text = array1(2, 3) + array1(3, 4)
End Sub
程序運行后，單擊命令按鈕，在文本框中顯示的值是(D)(單)
A.15
B.14
C.13
D.12
6.Visual Basic應用程序中標準模塊文件的擴展名是【BAS或.BAS】(注意不要寫點)。
7.在菜單編輯器中建立一個菜單，其主菜單項的名稱為mnuEdit，Visible屬性為False，程序運行后，如果用鼠標右鍵單擊窗體，則彈出與mnuEdit相應的菜單。
Private Sub Form_ 【mousedown】 (Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button=2 Then
popupmenu mnuEdit
End If
End Sub
8.在菜單編輯器中建立一個菜單，其主菜單項的名稱為mnuEdit，Visible屬性為False，程序運行后，如果用鼠標右鍵單擊窗體，則彈出與mnuEdit相應的菜單。以下是實現上述功能的程序，請填空。
Private Sub Form mousedown (Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button=2 Then
【popupmenu】 mnuEdit
End If
9.為了使計時器控件Timer1每隔0.5秒觸發一次Timer事件，應將Timer1控件的【Interval】屬性設置為500。
10.為了使計時器控件Timer1每隔0.5秒觸發一次Timer事件，應將Timer1控件的Interval屬性設置為【500】。
備考題二：
1.在窗體上建立一個名稱為Command1的命令按鈕，一個名稱為Text1的文本框，以及四個單選按鈕：第一個名稱為option1用來設置文本框的字體為"宋體"，
第二個名稱為option2用來設置文本框的字體為"黑體"，第三個名稱為option3用來設置文本框的字體大小為8號，第四個名稱為option4用來設置文本框的字體大小為12號。
程序如下：(程序運行剛開始時，四個單選按鈕都沒有選中)
Private Sub Command1_Click( )
Text1.FontName = Iif(Option1.Value, "宋體", "黑體")
Text1.FontSize = Iif(Option3.Value, 8, 12)
End Sub
當程序運行時，先單擊單選按鈕option2，然后單擊命令按鈕command1，則文本框text1的變化效果是(B) (單)
A.字體設置為宋體
B.字體設置為黑體
C.字體大小設置為8號
D.字體大小設置為12號
2.在窗體上建立一個名稱為Command1的命令按鈕，一個名稱為Text1的文本框，以及四個單選按鈕：第一個名稱為option1用來設置文本框的字體為"宋體"，
第二個名稱為option2用來設置文本框的字體為"黑體"，第三個名稱為option3用來設置文本框的字體大小為8號，第四個名稱為option4用來設置文本框的字體大小為12號。
程序如下：(程序運行剛開始時，四個單選按鈕都沒有選中)
Private Sub Command1_Click( )
Text1.FontName = Iif(Option1.Value, "宋體", "黑體")
Text1.FontSize = Iif(Option3.Value, 8, 12)
End Sub
當程序運行時，先單擊單選按鈕option3，然后單擊命令按鈕command1，則文本框text1的變化效果是(C) (單)
A.字體設置為宋體
B.字體設置為黑體
C.字體大小設置為8號
D.字體大小設置為12號
3.在窗體上建立一個名稱為Command1的命令按鈕，一個名稱為Text1的文本框，以及四個單選按鈕：第一個名稱為option1用來設置文本框的字體為"宋體"，
第二個名稱為option2用來設置文本框的字體為"黑體"，第三個名稱為option3用來設置文本框的字體大小為8號，第四個名稱為option4用來設置文本框的字體大小為12號。
程序如下：(程序運行剛開始時，四個單選按鈕都沒有選中)
Private Sub Command1_Click( )
Text1.FontName = Iif(Option1.Value, "宋體", "黑體")
Text1.FontSize = Iif(Option3.Value, 8, 12)
End Sub
當程序運行時，先單擊單選按鈕option1，然后單擊命令按鈕command1，則文本框text1的變化效果是(A) (單)
A.字體設置為宋體
B.字體設置為黑體
C.字體大小設置為8號
D.字體大小設置為12號
4.在窗體上建立一個名稱為Command1的命令按鈕，一個名稱為Text1的文本框，以及四個單選按鈕：第一個名稱為option1用來設置文本框的字體為"宋體"，
第二個名稱為option2用來設置文本框的字體為"黑體"，第三個名稱為option3用來設置文本框的字體大小為8號，第四個名稱為option4用來設置文本框的字體大小為12號。
程序如下：(程序運行剛開始時，四個單選按鈕都沒有選中)
Private Sub Command1_Click( )
Text1.FontName = Iif(Option1.Value, "宋體", "黑體")
Text1.FontSize = Iif(Option3.Value, 8, 12)
End Sub
當程序運行時，先單擊單選按鈕option4，然后單擊命令按鈕command1，則文本框text1的變化效果是(D) (單)
A.字體設置為宋體
B.字體設置為黑體
C.字體大小設置為8號
D.字體大小設置為12號
5.在窗體中建立了一個名稱為lstBooks的列表框，一個名稱為txtItem的文本框，四個名稱分別為cmdAdd、cmdDelete、cmdModify、cmdModify_Ok的命令按鈕。
如下程序：
Sub Form_Load( )
lstBooks.AddItem "計算機文化基礎"
lstBooks.AddItem "VB程序設計教程"
lstBooks.AddItem "操作系統"
End Sub
Sub cmdAdd_Click( )
lstBooks.AddItem txtItem
txtItem = ""
End Sub
對該程序說法不正確的是(D) (單)
A.窗體啟動時，在列表框中有三個列表項目，依次為：計算機文化基礎、VB程序設計教程、操作系統
B.單擊cmdAdd命令按鈕后，把文本框中的信息添加到列表框中
C.在列表框中添加列表項目的方法為additem方法
D.以上說法都不正確
6.在窗體中建立了一個名稱為LSTBOOKS的列表框，一個名稱為txtItem的文本框，四個名稱分別為cmdAdd、cmdDelete、cmdModify、cmdModify_Ok的命令按鈕。如下程序的功能是將修改后的項目送回列表框，替換原項目，實現修改：
Sub cmdModify_Ok_Click( )
LSTBOOKS.List【Lstbooks.lstindex】 = txtItem
txtItem = ""
End Sub
7.對以下程序說法不正確的是(C) (單)
Private Sub Combo1_LostFocus( )
flag = False
For i = 0 To Combo1.ListCount - 1
If Combo1.List(i) = Combo1.Text Then
flag = True
Exit For
End If
Next i
If Not flag Then
Combo1.AddItem Combo1.Text
End If
End Sub
A.當焦點離開組合框時組合框的LostFocus事件被觸發
B.添加到組合框的新項目不能永久保存，下次運行該程序中看不到上次保存的項目，利用該事件過程能夠將輸入的新內容添加到組合框中，下次運行該程序中能夠看到上次保存的項目
C.邏輯變量flag=true時，表示組合框的項目中有該輸入新項目
D.邏輯變量flag=false時，表示組合框的項目中有該輸入新項目
8.窗體中有兩個檢查框名稱分別為check1和check2，一個命令按鈕名稱為command1，一個列表框名稱為list1，兩個單選按鈕名稱分別為option1和option2。如下程序：
Private Sub Command1_Click( )
If Check1.Value = 1 Then
List1.AddItem "品牌：松下"
List1.AddItem "數量：3臺"
End If
If Check2.Value = 1 Then
If Option1.Value = True Then
List1.AddItem "操作系統：Windows 2000"
Else
List1.AddItem "操作系統：Windows 98"
End If
End If
End Sub
當窗體啟動后，先選中檢查框check1，然后單擊命令按鈕command1，運行效果為(A) (單)
A.列表框List1中的列表項目分別為：品牌：松下數量：3臺
B.列表框List1中的列表項目分別為：操作系統：Windows 2000 操作系統：Windows 98
C.沒有任何顯示
D.以上都不正確
*9.窗體中有兩個檢查框名稱分別為check1和check2，一個命令按鈕名稱為command1，一個列表框名稱為list1，兩個單選按鈕名稱分別為option1和option2。如下程序：
Private Sub Command1_Click( )
If Check1.Value = 1 Then
List1.AddItem "品牌：松下"
List1.AddItem "數量：3臺"
End If
If Check2.Value = 1 Then
If Option1.Value = True Then
List1.AddItem "操作系統：Windows 2000"
Else
List1.AddItem "操作系統：Windows 98"
End If
End If
End Sub
當窗體啟動后，先選中檢查框check2(其中單選按鈕option1被選中)，然后單擊命令按鈕command1，運行效果為(B)(單)
A.列表框List1中的列表項目分別為：品牌：松下數量：3臺
B.列表框List1中的列表項目分別為：操作系統：Windows 2000 操作系統：Windows 98
C.列表框List1中的列表項目為：操作系統：Windows 2000
D.以上都不正確
53430.窗體中有兩個檢查框名稱分別為check1和check2，一個命令按鈕名稱為command1，一個列表框名稱為list1，兩個單選按鈕名稱分別為option1和option2。如下程序：
Private Sub Command1_Click( )
If Check1.Value = 1 Then
List1.AddItem "品牌：松下"
List1.AddItem "數量：3臺"
End If
If Check2.Value = 1 Then
If Option1.Value = True Then
List1.AddItem "操作系統：Windows 2000"
Else
List1.AddItem "操作系統：Windows 98"
End If
End If
End Sub
當窗體啟動后，先選中檢查框check2(其中單選按鈕option2被選中)，然后單擊命令按鈕command1，運行效果為(B)(單)
A.列表框List1中的列表項目分別為：品牌：松下數量：3臺
B.列表框List1中的列表項目為：操作系統：Windows 98
C.列表框List1中的列表項目為：操作系統：Windows 2000
11 .傳值：形參得到的是實參的值，形參值的改變不會影響實參的值。在定義形參前加關鍵字Byval。√
12.以下利用SUB關鍵字定義的子過程Rate，其調用格式不正確的是(B) (單)
A.call Rate(12,56)
B.Rate(12,56)
C.Rate 12,56
D.以上A和C正確
13.如下程序運行后顯示結果為(B) (單)
Public Temp As integer
Sub Form_Load( )
Dim Temp As Integer
Temp=10
Form1.Temp=20
Print Form1.Temp;"和";Temp
End Sub
A.10和20
B.20和10
C.10和10
D.20和20
14.以下對靜態變量說法不正確的是(D) (單)
A.定義格式為：Static 變量名 [AS 類型]
B.在子過程名/函數名前加Static，表示該過程/函數體內局部變量全部都是靜態變量
C.靜態變量必須在過程體內定義
D.靜態變量可以在窗體的"通用聲明部"定義
15 .過程在自身定義的內部調用自己本身的結構稱為遞歸。√
16.如下程序功能是求n的階層：
Function fac(n As Integer) As Integer
If n = 1 Then
fac = 1
Else
fac = n * fac(n - 1)
End If
End Function
Sub Command1_Click( )
n=val(inputbox("請輸入數值"))
Print "fac(n)=";fac(n)
End Sub
以下說法不正確的是(D) (單)
A.若fac函數中If n = 1 Then fac = 1沒有，僅有語句：fac = n * fac(n - 1) ，程序運行將會出錯
B.若輸入的n<=0 ，程序運行將會出錯
C.若n=4，則輸出結果為：fac(n)=24
D.以上說法都不正確
17.利用遞歸求最大公約數的程序為：
Public Function gcd(m As Integer, n As Integer) As Integer
If (m Mod n) = 0 Then
gcd =【n】
Else
gcd = gcd(n, m Mod n)
End If
End Function
Private Sub Form_Click( )
Print gcd(10, 4)
End Sub
18 .以下程序的作用是單擊Check1檢查框將使得Text1文本框的字體在"加粗"和"常規"之間進行切換。√
Private Sub Check1_Click( )
Text1.FontBold = Not Text1.FontBold
End Sub
*19 .以下程序的作用是單擊Check1檢查框將使得Text1文本框的字體在"加粗"和"常規"之間進行切換。√
Private Sub Check1_Click( )
Text1.FontItalic = Not Text1.FontItalic
End Sub
*20 .以下程序的作用是單擊Check1檢查框將使得Text1文本框的字體在"加粗"和"常規"之間進行切換。√
Private Sub Check1_Click( )
Text1.FontUnderline = Not Text1.FontUnderline
End Sub
【9月計算機二級考試VB備考題及答案】相關文章：
2017年9月計算機二級考試VB備考題09-03
9月計算機二級考試VB真題10-11