一、選擇題(1～20每小題2分，21～30每小題3分，共70分)

1.在窗體中添加一個(gè)命令按鈕，并編寫如下程序：
Private Sub Command1Click()
X=1:Y=2:Z=3
X=Y:Y=Z:Z=X
Print Z
End Sub
程序執(zhí)行后，輸出的結(jié)果是()（本題分值：1分）

A.3
B.0
C.2
D.1

2.下列敘述不正確的是()（本題分值：1分）

A.注釋語句是非執(zhí)行語句，僅對程序的有關(guān)內(nèi)容起注釋作用，它不被解釋和編譯
B.注釋語句可以放在代碼中的任何位置
C.注釋語句不能放在續(xù)行符的后面
D.代碼中加入注釋語句的目的是提高程序的可讀性

3.Rnd函數(shù)不可能產(chǎn)生()值。（本題分值：1分）

A.0
B.1
C.0.1234
D.0.00005

4、下面表達(dá)式中，()的運(yùn)算結(jié)果與其他三個(gè)不同。（本題分值：1分）

A.Exp(-3.5)
B.Int(-3.5)+0.5
C.-Abs(-3.5)
D.Sgn(-3.5)-2.5

5.數(shù)學(xué)式子sin30°寫成VB表達(dá)式是：()（本題分值：1分）

A.Sin30
B.Sin(30)
C.Sin(30°)
D.Sin(30*3.14/180)

6.表達(dá)式5＾2 Mod 25＾2的值是()（本題分值：1分）

A.1
B.0
C.6
D.4

7.函數(shù)UCase(Mid(″visual basic″,8,8))的值為()（本題分值：1分）

A.visual
B.basic
C.VISUAL
D.BASIC

8.設(shè)有數(shù)組聲明語句：
Option Base 0
Dim B(-1 To 10,2 To 9,20) As Integer
則數(shù)組B中共有()個(gè)元素。（本題分值：1分）

A.1800
B.1848
C.2016
D.2310

9.在VB語言中，6個(gè)關(guān)系運(yùn)算符在運(yùn)算過程中優(yōu)先級從高到低的順序是()（本題分值：1分）

A.=→<>→<→>→<=→>=
B.>→>=→=→<→<=→<>
C.<=→<→=→>=→>→<>
D.不分先后順序

10.下面程序運(yùn)行后，輸出的值是()
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

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
程序運(yùn)行后，按任意鍵，n的值是()（本題分值：1分）
A.3
B.14
C.9
D.20

12.函數(shù)InStr(″VB程序設(shè)計(jì)教程″，″程序″)的值為()（本題分值：1分）

A.1
B.2
C.3
D.4

13.單擊命令按鈕時(shí)，下列程序代碼的執(zhí)行結(jié)果為()

（本題分值：1分）

A.該計(jì)算機(jī)中的CPU有32個(gè)寄存器
B.該計(jì)算機(jī)能夠處理的最大數(shù)不超過232
C.該計(jì)算機(jī)每秒鐘所能執(zhí)行的指令條數(shù)為32MIPS
D.該計(jì)算機(jī)中的CPU可以同時(shí)處理32位的二進(jìn)制數(shù)

14.表達(dá)式Int(4*Rnd+1)*(Int(4*Rnd-1))值的范圍是( )（本題分值：1分）

A.［-1，8］
B.［-4，8］
C.［-3，8］
D.［0，8］

15.下列賦值語句中，( )是錯(cuò)誤的。（本題分值：1分）

A.x=x+1
B.x=x+y
C.x+y=x
D.x=4＞6

16.在以下四個(gè)邏輯表達(dá)式中，其邏輯值為“真”的是( )（本題分值：1分）

A.Not(3+5＜4+6)
B.2＞1 And 3＜2
C.1＞2 Or 2＞3
D.Not(1＞2)

17.InputBox函數(shù)返回值的類型為()（本題分值：1分）

A.數(shù)值
B.字符串
C.變體
D.數(shù)值或字符串(視輸入的數(shù)據(jù)而定)

18.表達(dá)式″Turbo″+″c″＞″True″+″Basic″的值是()（本題分值：1分）

A.0
B.1
C.-1
D.2

19.表達(dá)式1.5+3＞2 Or 7 Mod 3＜4 And Not 1的運(yùn)算結(jié)果是()（本題分值：1分）

A.-1
B.0
C.1
D.其他

20.下列程序的功能是()

（本題分值：2分）

A.輸出字符串x的值
B.輸出字符串x的長度
C.判斷字符串x是否對稱
D.輸出字符串x左右兩邊的字符

21.下面程序運(yùn)行后，窗體(Form1)中輸出的結(jié)果是( )
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

22.在窗體上畫一個(gè)命令按鈕，然后編寫如下事件過程：
Private Sub Command1_Click()
A=″12″
B=″34″
C=″56″
Print A＋B＋C
End Sub
程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果是( ) （本題分值：1分）

A.″123456″
B.123456
C.102
D.顯示出錯(cuò)信息

23.下面程序運(yùn)行后輸出的結(jié)果是( )

（本題分值：1分）

A.1 1
B.0 2
C.1 2
D.6

24.下面程序的循環(huán)次數(shù)為( )
For I=10 To 40 Step 6
Print I
Next I
（本題分值：1分）

A.5
B.6
C.32
D.33

25.下面程序運(yùn)行后，m的值是( )
a=12.3
b=-123
m=Len(Str(a)+Str(b))
（本題分值：1分）

A.9
B.5
C.7
D.8

26.
（本題分值：1分）

A.60
B.43
C.14
D.12

27.
（本題分值：1分）

A.9
B.32
C.6
D.8

28.下面程序運(yùn)行后輸出的結(jié)果是( )
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

29.下面程序運(yùn)行后輸出的結(jié)果是( )
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

30.以下程序段中，循環(huán)語句( )
Private Sub Form_Load()
x%=0
While Not x
x=x+1
Print x
Wend
End Sub
（本題分值：1分）

A.是死循環(huán)
B.有語法錯(cuò)誤
C.循環(huán)體執(zhí)行一次
D.將產(chǎn)生“溢出”錯(cuò)誤

    二、填空題(每空2分，共30分)

1、要使工具欄控件的某按鈕呈按鈕菜單的樣式，可以在其屬性頁中設(shè)置其選項(xiàng)為5-tbrDropDown。

（本題分值：2分）

2、若A=20,B=80,C=70,D=30,則表達(dá)式A+B＞160 Or (B*C＞200 And Not D＞60)的值是。

（本題分值：2分）

3、2sinx+3cosx+arctanx+ln x lny的VB表達(dá)式為。

（本題分值：2分）

4、在工具欄的右側(cè)還有兩個(gè)欄，分別用來顯示窗體的當(dāng)前位置和大小，其單位為，1英寸等于。左邊一欄顯示的是窗體左上角的坐標(biāo)，右邊一欄顯示的是窗體的長×寬。

（本題分值：4分）

5、要將某窗體定義為一個(gè)MDI子窗體，需要將其屬性設(shè)置為True。

（本題分值：2分）

6、下面是用一個(gè)子程序求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、使用Mod運(yùn)算符判斷變量i是否為偶數(shù)，若為偶數(shù)就把它在窗體上顯示出來。使用單行結(jié)構(gòu)條件語句為。

（本題分值：2分）

8、在運(yùn)行時(shí)，MDI父窗體中的子窗體最小化時(shí)，其圖標(biāo)將顯示在中。

（本題分值：2分）

9、搬磚問題：36塊磚，36人搬，男的搬4塊，女的搬3塊，2個(gè)小兒抬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分）

10、下面的程序用于根據(jù)文本框X中輸入的內(nèi)容進(jìn)行以下處理：
若X為2、4、6，則打印“X的值為2、4、6”；若X為3、5，則打印“X的值為3、5”；若X為7、8，則打印“X的值為7、8”；否則，打印“X不在范圍內(nèi)”。
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不在范圍內(nèi)″
End Select
End Sub

（本題分值：8分）