一、選擇題(1～20每小題2分，21～30每小題3分，共70分)
1.在窗體中添加一個命令按鈕，并編寫如下程序：
Private Sub Command1Click()
X=1:Y=2:Z=3
X=Y:Y=Z:Z=X
Print Z
End Sub
程序執行后，輸出的結果是()（本題分值：1分）
A.3
B.0
C.2
D.1
【正確答案】
C
2.下列敘述不正確的是()（本題分值：1分）
A.注釋語句是非執行語句，僅對程序的有關內容起注釋作用，它不被解釋和編譯
B.注釋語句可以放在代碼中的任何位置
C.注釋語句不能放在續行符的后面
D.代碼中加入注釋語句的目的是提高程序的可讀性
【正確答案】
B
3.Rnd函數不可能產生()值。（本題分值：1分）
A.0
B.1
C.0.1234
D.0.00005
【正確答案】
B
4、下面表達式中，()的運算結果與其他三個不同。（本題分值：1分）
A.Exp(-3.5)
B.Int(-3.5)+0.5
C.-Abs(-3.5)
D.Sgn(-3.5)-2.5
【正確答案】
A
5.數學式子sin30°寫成VB表達式是：()（本題分值：1分）
A.Sin30
B.Sin(30)
C.Sin(30°)
D.Sin(30*3.14/180)
【正確答案】
D
6.表達式5＾2 Mod 25＾2的值是()（本題分值：1分）
A.1
B.0
C.6
D.4
【正確答案】
A
7.函數UCase(Mid(″visual basic″,8,8))的值為()（本題分值：1分）
A.visual
B.basic
C.VISUAL
D.BASIC
【正確答案】
D
8.設有數組聲明語句：
Option Base 0
Dim B(-1 To 10,2 To 9,20) As Integer
則數組B中共有()個元素。（本題分值：1分）
A.1800
B.1848
C.2016
D.2310
【正確答案】
C
9.在VB語言中，6個關系運算符在運算過程中優先級從高到低的順序是()（本題分值：1分）
A.=→<>→<→>→<=→>=
B.>→>=→=→<→<=→<>
C.<=→<→=→>=→>→<>
D.不分先后順序
【正確答案】
D
10.下面程序運行后，輸出的值是()
Private Sub Command1_Click()
J=1
While J＜5
J=J+1
A=A+J*J
Wend
Print A
End Sub
（本題分值：1分）
A.25
B.16
C.29
D.54
【正確答案】
D
11.有如下程序：
Private Sub FormKeyPress(KeyAscii As Integer)
For m=1 To 3
For j=1 To m
For k=j To 3
n=n+m+j-k
Next k
Next j
Next m
Print n
End Sub
程序運行后，按任意鍵，n的值是()（本題分值：1分）
A.3
B.14
C.9
D.20
【正確答案】
D
12.函數InStr(″VB程序設計教程″，″程序″)的值為()（本題分值：1分）
A.1
B.2
C.3
D.4
【正確答案】
C
13.單擊命令按鈕時，下列程序代碼的執行結果為()
（本題分值：1分）
A.該計算機中的CPU有32個寄存器
B.該計算機能夠處理的最大數不超過232
C.該計算機每秒鐘所能執行的指令條數為32MIPS
D.該計算機中的CPU可以同時處理32位的二進制數
【正確答案】
A
14.表達式Int(4*Rnd+1)*(Int(4*Rnd-1))值的范圍是( )（本題分值：1分）
A.［-1，8］
B.［-4，8］
C.［-3，8］
D.［0，8］
【正確答案】
B
15.下列賦值語句中，( )是錯誤的。（本題分值：1分）
A.x=x+1
B.x=x+y
C.x+y=x
D.x=4＞6
【正確答案】
C
16.在以下四個邏輯表達式中，其邏輯值為“真”的是( )（本題分值：1分）
A.Not(3+5＜4+6)
B.2＞1 And 3＜2
C.1＞2 Or 2＞3
D.Not(1＞2)
【正確答案】
D
17.InputBox函數返回值的類型為()（本題分值：1分）
A.數值
B.字符串
C.變體
D.數值或字符串(視輸入的數據而定)
【正確答案】
B
18.表達式″Turbo″+″c″＞″True″+″Basic″的值是()（本題分值：1分）
A.0
B.1
C.-1
D.2
【正確答案】
C
19.表達式1.5+3＞2 Or 7 Mod 3＜4 And Not 1的運算結果是()（本題分值：1分）
A.-1
B.0
C.1
D.其他
【正確答案】
A
20.下列程序的功能是()
（本題分值：2分）
A.輸出字符串x的值
B.輸出字符串x的長度
C.判斷字符串x是否對稱
D.輸出字符串x左右兩邊的字符
【正確答案】
C
21.下面程序運行后，窗體(Form1)中輸出的結果是( )
Private Sub Form1_Load()
Form1.AutoRedraw=True
x=-17.8
Print Sgn(x)*Int(Abs(x))
End Sub
（本題分值：1分）
A.-18
B.-17
C.17
D.18
【正確答案】
B
22.在窗體上畫一個命令按鈕，然后編寫如下事件過程：
Private Sub Command1_Click()
A=″12″
B=″34″
C=″56″
Print A＋B＋C
End Sub
程序運行后，單擊命令按鈕，輸出結果是( ) （本題分值：1分）
A.″123456″
B.123456
C.102
D.顯示出錯信息
【正確答案】
B
23.下面程序運行后輸出的結果是( ) 
（本題分值：1分）
A.1 1
B.0 2
C.1 2
D.6
【正確答案】
C
24.下面程序的循環次數為( )
For I=10 To 40 Step 6
Print I
Next I
（本題分值：1分）
A.5
B.6
C.32
D.33
【正確答案】
B
25.下面程序運行后，m的值是( )
a=12.3
b=-123
m=Len(Str(a)+Str(b))
（本題分值：1分）
A.9
B.5
C.7
D.8
【正確答案】
A
26.
（本題分值：1分）
A.60
B.43
C.14
D.12
【正確答案】
B
27.
（本題分值：1分）
A.9
B.32
C.6
D.8
【正確答案】
B
28.下面程序運行后輸出的結果是( )
Private Sub Form_Click()
For X=5 To 2.5 Step -7
Next X
Print X
End Sub
（本題分值：1分）
A.-2
B.2.5
C.2.9
D.-7
【正確答案】
A
29.下面程序運行后輸出的結果是( )
Private Sub Command1_Click()
A=0
For M=1 To 10
A=A+1∶B=0
For J=1 To 10
A=A+1∶B=B+2
Next J∶Next M
Print A;B
End Sub
（本題分值：1分）
A.10 20
B.20 110
C.110 20
D.200 110
【正確答案】
C
30.以下程序段中，循環語句( )
Private Sub Form_Load()
x%=0
While Not x
x=x+1
Print x
Wend
End Sub
（本題分值：1分）
A.是死循環
B.有語法錯誤
C.循環體執行一次
D.將產生“溢出”錯誤
【正確答案】
D
二、填空題(每空2分，共30分)
1、要使工具欄控件的某按鈕呈按鈕菜單的樣式，可以在其屬性頁中設置其選項為5-tbrDropDown。
（本題分值：2分）
【正確答案】
【1】Style
2、若A=20,B=80,C=70,D=30,則表達式A+B＞160 Or (B*C＞200 And Not D＞60)的值是。
（本題分值：2分）
【正確答案】
【2】True
3、2sinx+3cosx+arctanx+ln x lny的VB表達式為。
（本題分值：2分）
【正確答案】
【3】2*Sin(x)+3*Cos(x)+Atn(x)+Log(x)*Log(y)
4、在工具欄的右側還有兩個欄，分別用來顯示窗體的當前位置和大小，其單位為，1英寸等于。左邊一欄顯示的是窗體左上角的坐標，右邊一欄顯示的是窗體的長×寬。
（本題分值：4分）
【正確答案】
【4】Twip 【5】1440Twip
5、要將某窗體定義為一個MDI子窗體，需要將其屬性設置為True。
（本題分值：2分）
【正確答案】
【6】MDIChild
6、下面是用一個子程序求2!+3!+4!的值的程序，請完成程序。
Private Sub Command1_Click()
s=0
For t=
GoSub 200
s=s+p
Next t
Print ″2!+3!+4!=″;s
Exit Sub
200：p=1
For k=1 To t
p=p*k
Next k
End Sub
（本題分值：4分）
【正確答案】
【7】2 To 4
【8】Return
7、使用Mod運算符判斷變量i是否為偶數，若為偶數就把它在窗體上顯示出來。使用單行結構條件語句為。
（本題分值：2分）
【正確答案】
【9】If i Mod 2=0 Then Print i
8、在運行時，MDI父窗體中的子窗體最小化時，其圖標將顯示在中。
（本題分值：2分）
【正確答案】
【10】MDI父窗體
9、搬磚問題：36塊磚，36人搬，男的搬4塊，女的搬3塊，2個小兒抬1塊，要求1次全部搬完，問需男、女、小兒各多少人?
Private Sub Command1_Click()
For Male=1 To 9
For Female=1 To 12
For Boy=1 To 36 Step 2
If Boy+Female+Male=36 And Then
Print Male,Female,Boy
End If
Next Boy
Next Female
Next Male
End Sub
（本題分值：2分）
【正確答案】
【11】Male*4+Female*3+Boy/2=36
10、下面的程序用于根據文本框X中輸入的內容進行以下處理：
若X為2、4、6，則打印“X的值為2、4、6”；若X為3、5，則打印“X的值為3、5”；若X為7、8，則打印“X的值為7、8”；否則，打印“X不在范圍內”。
Private Sub Command1_Click()
Select Case Val(X.Text)
Case
Print ″X的值為2、4、6″
Case
Print ″X的值為3、5″
Case
Print ″X的值為7、8″
Print ″X不在范圍內″
End Select
End Sub
（本題分值：8分）
【正確答案】
【12】2，4，6
【13】3，5
【14】7，8
【15】Case Else
·2009年9月計算機等考二級VB模擬題及解析(13) (2009-9-18 11:13:52)
·2009年9月計算機等級考試二級C語言模擬試題(13) (2009-9-18 10:49:55)
·2009年9月計算機等級考試二級C++模擬試題(4) (2009-9-17 11:45:15)
·2009年9月計算機等考二級VB模擬題及解析(12) (2009-9-17 11:28:27)
·2009年9月計算機等級考試二級C語言模擬試題(12) (2009-9-17 11:01:48)
網友評論
，我們將會及時處理。如轉載本
