一、选择题
(1) 下列不能打开属性窗口的操作是。
A) 执行“视图”菜单中的“属性窗口”命令
B) 按F4键
C) 按Ctrl+T
D) 单击工具栏上的“属性窗口”按钮。
(2) 下列可以打开立即窗口的操作是。
A) Ctrl+D B) Ctrl+EC) Ctrl+F D) Ctrl+G
(3) inputBox 函数反回值的类型为。
A) 数值 B) 字符串
C) 变体 D) 数值或字符串（视输入的数据而定）
(4) 可以同时删除字符串前导和尾部空白的函数是。
A) Ltrim B) Rtrim C) Trim D) Mid
- 1 -
(5) 表达式4+5 \\ 6 *7 / 8 Mod 9 的值是
A) 4 B) 5 C) 6 D) 7
(6) 如果在立即窗口中执行以下操作：
a=8(是回车键，下同)
b=9
print a>b
则输出结果是。
A) -1 B) 0 C) False D) True
(7) 以下语句的输出结果是。
Print Format $(32548.5,“000,000.00”)
A) 32548.5 B) 32,548.5 C) 032,548.50 (8) 执行以下程序段后，变量c$的值为
a$=“Visual Basic Programing”
- 2 -
D) 32,548.50
b$=“Quick”
c$=b$ & UCase(Mid$(a$,7,6)) & Right $ (a$,11)
A) Visual BASIC Programing
B) Quick Basic Programing
C) QUICK Basic Programing
D) Quick BASIC Programing
(9) 为了在按下回车键时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性置为True，这个属性是
(10) 为了把焦点移到某个指定的控件，所使用的方法是
A) SetFocus B) Visible C) Refresh D)GetFocus
(11) 设a=6，则执行x=IIf(a>5,-1,0)后，x 的值为。
A) 5 B) 6C) 0 D) -1
(12) 执行下面的程序段后，x 的值为。
x=5
- 3 -
For i=1 To 20 Step2
x=x+i\\5
Next i
A) 21 B) 22 C) 23 D) 24
(13) 在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
For i=1 To 4
x=4
For j =1 To 3
x=3
For k=1 To 2
x=x+6
Next k
- 4 -
Next j
Next i
Print x
End Sub
程序运行后，单击命令按钮，输出结果是。
A) 7 B) 15 C) 157 D) 538
(14) 在窗体上画一个命令按钮，然后编写如下事件过程：
Prevate Sub Command1_Click()
x=0
Do Until x=-1
a = InputBox(“请输入A 的值”)
a = Val(a)
b = InputBox(“请输入B 的值”)
- 5 -
b = Val(b)
x = InputBox(“请输入x 的值”)
x = Val(x)
a = a+b+x
Loop
Print a
End Sub
程序运行后，单击命令按钮，依次在输入对话框中输入5、4、3、2、1、-1，则输出结果为：
A) 2 B) 3 C) 14 D) 15
(15) 在窗体(Name为Form1)上画两个文本框（其Name属性分别为Text1和Text2和一个命令按钮（Name 属性为Command1），然后编写如下两个事件过程：
Private Sub Command1_Click()
a=Text1.Text+Text2.Text
- 6 -
Print a
End Sub
Private Sub Formm_Load()
Text1 Text=\"\"
Text2 Text=\"\"
End sub
程序运行后，在第一个文本框（Text1）和第二个文本框（Text2）中分别输入123和321，然后单击命令按钮，则输出结果为
A) 444 B) 321123 C)123321 D) 132231
(16)阅读下面的程序段：
For i=1To 3
For j=1To i
For k=jTo 3
a=a+1
- 7 -
Next k
Next j
Next i
执行上面的三重循环后，
a的值为。
A) 3 B)9 C) 14D) 21
(17)在窗体上画一个文本框（其中Name属性为Text1），然后编写如下事件过程
Private Sub Form_Load()
Text1.Text=\"\"
Text1.SetFocus
For i=1 To 10
Sum=Sum+i
Next i
- 8 -
Text1.Text=Sum
End Sub
上述程序的运行结果是
A)在文本框Text1中输出55
B)在文本框Text1中输出0
C)出错
D)在文本框Text1中输出不定值
(18)在窗体上画两个文本框(其Name属性分别为Text1和Text2)一个命令按（其Name属性为Command1)，然后编写如下事件过程：
Private Sub Command1
_Click()
x=0
Do While x<50
x=(x+2)*(x+3)
- 9 -
n=n+1
Loop
Text1.Text=Str(n)
Text2.Text=Str(x)
End Sub
程序运行后，单击命令按钮，在两个文本框中显示的值分别为
A) 1和 0 B) 2和 72 C) 3和 50 D) 4和 168
(19)用下面语句定义的数组的元素个数是
Dim A (-3 To 5) As Integer
A) 6 B)7 C) 8 D) 9
(20)以下程序的输出结果是
Option Base 1
Private Sub Command1_Click()
- 10 -
Dim a(10),p(3) As Integer
k=5
For i=1 To 10
a(i)=i
Next i
For i=1To 3
p(i)=a(i*i)
Next I
For i=1To 3
k=k+p(i)*2
Next i
Print k
End sub
- 11 -
A) 33 B) 28 C)35 D)37
(21)在窗体上面画一个命令按钮，然后编写如下事件过程：
Option Base 1
Private Sub Commandl_Click() Dim a
a = Array(1,2,3,4)
j=1
For i =4To Step -1
s = s + a(i)*j
j =j*10
Next i
Print s
End Sub
- 12 -
运行上面的程序，单击命令按钮，其输出结果是。
A) 4321 B) 12 C) 34D) 1234
(22)在窗体上面一个命令按钮（其Name属性为Commandl），然后编写如下代码
Option Base 1
Private Sub Commandl_Click( ) Dim a(4,4)
For i =1To 4
For j =1To 4
a(i,j) = (i-1)*3+j
Next j
Next i
For i =3To 4
For j =3To 4
- 13 -
Print a(j,i);
Next j
Print
Next i
End Sub
程序运行后，单击命令按钮，其输出结果为。
A) 6 9 B) 7 10 C) 8 11 D) 9 12
7 10 8 11 9 12 10 13
(23)假定有如下的Sub过程：
Sub S（x As Single,yAs Single）
t=x
x =t/y
y =t Mod y
- 14 -
End Sub
在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Commandl_Click ( )
Dim a As Single
Dim b As Single
a =5
b =4
S a,b
Print a,b
End Sub
程序运行后，单击命令按钮，输出结果为。
A) 5 4 B) 1 1 C)1.25 4 D) 1.25 1
(24)阅读程序：
- 15 -
Function F(a As Integer)
b=0
Static c
b = b+1
c = c+1
f = a+b+c
End Function
Private Sub Commandl_Click () Dim a As Integer
a =2
For i =1To 3
Print F(a)
Next i
- 16 -
End Sub
运行上面的程序，单击命令按钮，输出结果为。
A) 4 B)4 C) 4 D) 4
4 5 6 7
4 6 8 9
(25)阅读程序：
Sub subP(b() As Integer)
For i =1To 4
b(i)=2*i
Next i
End Sub
Private Sub Commandl_Click() Dim a(1 To 4)As Integer
- 17 -
a (1)=5
a (2)=6
a (3)=7
a (4)=8
subP a ()
For i =1To 4
Print a(i)
Next i
End Sub
运行上面的程序，单击命令按钮，输出结果为。
A）2 B）5 C） 10 D）出错
4 6 12
6 7 14
- 18 -
8 8 16
(26)下列不能打开菜单编辑器的操作是。
A）按Ctrl+E
B）单击工具栏中的“菜单编辑器”按钮
C）执行“工具”菜单中的“菜单编辑器”命令
D）按Shift +Alt + M
(27)假定有一个菜单项，名为MenuItem，为了在运行时使该菜单项失效（变灰），应使用的语句为。
A) MenuItem. Enabled=False
B) MenuItem. Enabled=True
C) MenuItem. Visible=True
D) Menultem. Visible=False
(28)在程序运行期间，如果拖动滚动条上的滚动块，则触发的滚动条事件是。
A) Move B) Change C) Scroll D) GetFocus
- 19 -
(29)假定窗体上有一个标签，名为Labell，为了使该标签透明并且没有边框，则正确的属性设置为。
A) Label1. BackStyle=0
Label1.Borderstyle=0
B) Label1.BackStyle=1
Label1.Borderstyle=1
C) Label1.BackStyle=True
Label1.BorderStyle=True
D) Label1.BackStyle=False
Label1.Borderstyle=False
(30)在窗体上画一个列表框和一个文本框，然后编写如下两个事件过程：
Private Sub Form_Load ()
List1.AddItem\"357\"
List1.AddItem\"246\"
- 20 -
List1.AddItem\"123\"
Listl.AddItem\"456\"
Text1.Text=\"\"
End Sub
Private Sub List1_ DblClick ( )
a =List1.Text
Print a+Text1.Text
End Sub
程序运行后，在文本框中输入 “7”，然后双击列表框中的 \"456\"，则输出的结果为。
A) 1245 B) 4567 C) 7456 D) 0
(31)为了暂时关闭计时器，应把该计时器的某个属性设置为 False，这个属性是
A) Visible B) Timer C) Enabled D) Interval
(32)为了把一个记录型变量的内容写入文件中指定的位置，所使用的语句的格式为
- 21 -
A）Get文件号，记录号，变量名
B）Get文件号，变量名，记录号
C）Put文件号，变量名，记录号
D）Put文件号，记录号，变量名
(33)对窗体编写如下事件过程：
Private Sub Form _MouseDown(Button As Integer, _
Shift As Integer, X As Single Y As Single)
If Button =2 Then
Print \"AAAAA\"
End If
End Sub
Private Sub Form _ MouseUp(Button As Integer, _
Shift As Integer, X As Single, YAs Single)
- 22 -
Print \"BBBBB\"
End Sub
程序运行后，如果单击鼠标右键，则输出结果为。
A) AAAAA B) BBBBB C) AAAAA D) BBBBB
BBBBBAAAAA
(34)为了在运行时能显示窗体左上角的控制框（系统菜单），必须。
A)把窗体的Contro1Box属性设置为False,其他属性任意
B)把窗体的ControlBox属性设置为True,并且把BoderStyle属性设置为1-5
C)把窗体的ControlBox属性设置为False,同时把BoderStyle属性调协为非0值
D)把窗体的ControlBox属性设置为True,同时把BoderStyle属性设置为0值
(35)对窗体编写如下代码：
Option Base 1
Private Sub Form_KeyPress(KeyAscii As Integer)
- 23 -
a = Array(237,126,87,48,498)
m1 = a(1)
m2 = 1
If KeyAscii = 13 Then
For i =2To 5
If a(i)>ml Then
m1 =a(j)
m2 =i
End If
Next i
End If
Print m1
Print m2
- 24 -
End Sub
程序运行后，按回车键，输出结果为
A) 48 B) 237 C)498 D) 498
4 15 4
二、填空题
（1）设有如下的Visual Basic表达式：
5 * x^2 – 3 * x – 2 * Sin(a)/3它相当于代数式
答案
一、选择题
(1) C (2) D (3)B (4) C (5) B
(6) C (7) C (8)D (9) B (10)A
(11) D (12) A (13) B (14) A (15)C
(16) C (17) C (18) B (19) D (20)A
- 25 -
(21) D (22) D (23) D (24) B (25)A
(26) D (27) A (28) C(29) A (30) B
(31) C (32) D (33) A(34) B (35) C
- 26 -
