VB选择题汇总.doc

《一》
1 "【单选题】Visual Basic的编程机制是 D 。
A、可视化 B、面向对象 C、面向图形 D、事件驱动"
2 "【单选题】Visual Basic集成环境的大部分窗口都可以从主菜单项 （） 的下拉菜单中找到相应的打开命令。B
A、编辑 B、视图 C、格式 D、调试"
3 "【单选题】每个窗体对应一个窗体文件，窗体文件的扩展名是 C 。
Ａ、.bas B、.cls C、.frm D、.vbp"
4 "【单选题】工程文件的文件名后缀是什么？______ B
A.bmp B.vbp C.frm D.bas "
5 "【单选题】窗体设计器是用来设计 B 。
A、应用程序的代码段 B、应用程序的界面 C、对象的属性 D、对象的事件 "
6 "【单选题】使用 方法不可以进入代码窗口编写代码。A
A、执行“文件”菜单中的打开命令
B、在窗体上单击鼠标右键，在弹出的快捷菜单中选择“查看代码”命令
C、双击窗体设计器的任何地方
D、执行“视图”菜单中的“代码窗口”命令"
7 "【单选题】VB6.0集成开发环境有三种工作状态，不属于三种工作状态之一的是 D 。
A.设计状态 B.编写代码状态C.运行状态 D.中断状态"
8 "【单选题】VB6.0集成开发环境不包括________窗口。A
　　 A.DOS界面窗口
　　 B.窗体窗口
　　 C.代码窗口
　　 D.属性窗口"
9 "【单选题】在设计应用程序时，通过________ 窗口可以查看到应用程序工程中的所有组成部分 B
　　 A.代码窗口
　　 B.窗体设计窗口
　　 C.属性窗口
　　 D.工程资源管理器窗口"
10 "【单选题】VB6.0是一种面向 的编程环境。B
　　 A.机器
　　 B.对象
　　 C.过程
　　 D.应用"
11 "【单选题】在VB集成环境创建VB应用程序时，除了工具箱窗口，窗体中的窗口，属性窗口外，必不可少的窗口是 C。
A.窗体布局窗口 B.立即窗口 C.代码窗口 D.监视窗口"
12 "【单选题】不能打开属性窗口的操作是 D 。
A. 单击工具栏中的“属性窗口”按钮
B. 选取“视图”菜单中的“属性窗口”子菜单项
C. 在对象上单击右键，从弹出的快捷菜单中选择“属性窗口”选取项

D. 选取“工程”菜单中的“属性窗口”子菜单项"
13 "【单选题】事件的名称 C
A、都要由用户定义 B、有的由用户定义，有的由系统定义
C、都是由系统预先定义 D、是不固定的"
14 "【单选题】对象的三要素不包括 D。
A、属性 B、方法
C、事件 D、程序"
《二》
1 "【单选题】对于窗体，下面 属性在程序运行时其属性设置起作用。C
（A）MaxButton (B) BorderStyle (C) Name (D) Left"
2 "【单选题】要使Print 方法在Form_Load事件中起作用，要对窗体的 属性进行设置。C
（A）BackColor (B)ForeColor (C) AutoRedraw (D) Caption"
3 "【单选题】要使标签控件显示时不覆盖其背景内容，要对 属性进行设置 B
（A）BackColor (B)ForeColor (C) BorderStyle (D) BackStyle"
4 "【单选题】要使命令按钮不可操作，要对 设置 A
（A） Enabled (B)Visible (C) BackColor (D)Caption"
5 "【单选题】文本框没有 属性 D
（A）Enabled (B)Visible (C) BackColor (D)Caption"
6 "【单选题】不论何控件，共同具有的是 属性 B
（A）Text (B)Name (C) ForeColor (D)Caption"
7 "【单选题】要使Form1窗体的标题栏显示”欢迎使用VB”，以下 语句正确。A
（A） Form1.Caption=”欢迎使用VB”
（B）Form1.Caption=’欢迎使用VB’
(C) Form1.Caption=欢迎使用VB
(D) Form1.Caption=”\欢迎使用VB”"
8 "【单选题】要使某控件在运行时不可显示，应对 进行设置 B
（A） Enabled (B) Visible (C) BackColor (D) Caption"
9 "【单选题】要使窗体在运行时不可以改变窗体的大小和没有最大，最小化按钮，只要对下面 进行设置。B
（A）MaxButton (B) BorderStyle (C) Width (D) MinButton"
10 "【单选题】当运行程序时候，系统自动执行启动窗体的 事件过程 A
（A）Load (B)Click (C) Unload (D) GotFocus"
11 "【单选题】当文本框的ScrollBars 属性设置了非零值，却没有效果，原因为 B 。
（A） 文本框中没有内容
（B） 文本框的MultiLine属性为False
（C） 文本框的MultiLine属性为True
（D） 文本框的Locked属性为True"

12 "【单选题】要判断在文本框时否按了Enter键，应在文本框的 事件中判断 D
（A）Change (B)KeyDown (C)Click (D)KeyPress"
《三》
1 "【单选题】在一个语句内写多条语句时，每个语句之间用__符号分隔 B
（A）, (B) ： (C) 、 （D） ；"
2 "【单选题】一句语句要在下一行继续写，用（ ）符号作为续行符。C
（A）+ (B) - (C) _ (D)…"
3 "【单选题】下面（ ）是合法的变量名。C
（A）X_YZ (B)123ABC (C)integer (D)X-Y"
4 "【单选题】下面（ ）是不合法的单精度型常数。 A
（A）100! (B)100.0 (C)1E+2 (D)100.0D+2"
5 "【单选题】下面（ ）是合法的单精度型变量。A
（A）num! (B)sum% (C)xinte$ (D)mm#"
6 "【单选题】表达式16/4-2^5*8/4 MOD 5\2的值为（ ）。B
（A）14 (B)4 (C)20 (D)2"
7 "【单选题】数学关系3<=x<10表示成正确的VB表达式为（ ）。B
（A）3<=X<10 (B)X>=3 AND X<10
(C ) X>=3 OR X<10 (D) 3<=X AND <10"
8 "【单选题】已知A$=”12345678” 则表达式Val(Left$(A$,4)+Mid(A$,4,2))的值为（ ）。B
（A） 123456 (B)123445 (C) 8 (D) 6"
9 "【单选题】表达式Len(“123程序设计ABC”)的值为（ ）。A
（A）10 (B)14 (C)20 (D)17"
10 "【单选题】下面正确的赋值语句是（ ）。C
（A）X+Y=30 (B)Y=π*R*R (C) Y=X+30 (D)3*Y=X"
11 "【单选题】为了给X,Y,Z三个变量赋值为1，下面正确的赋值语句是__。A
（A）X=1:Y=1:Z=1 (B) X=1,Y=1,Z=1
(C) X=Y=Z=1 (D)XYZ=1"
12 "【单选题】已知A=3.5,B=5.0,C=2.5,D=True 则表达式：A>=0 AND A+C>B+3 OR NOT D的值为（ ）。B
（A）True （B）False （C）0 （D）1"
13 "【单选题】Int(198.555*100+0.5)/100的值为（ ）。C
(A) 198 (B) 199.6 (C)198.56 (D)200"
14 "【单选题】下列符号常量的声明中，( )是不合法的。D
（A）Const a As Single=1.1 （B）Const a As Integer=”12”
（C）Const a As Double=Sin(1) （D）Const a=”OK”"
15 "【多选题】以下语句的输出第一个结果是( )；第二个结果是( )。BD
a=sqr(3)
print format(a,”$####.##”)
print format(a,”$0000.##”)
（A）$1.732 （B）$1.73 （C）$1732 （D）$0001.73"
16 "【单选题】函数InStr(""VB程序,visual Basic,vb"",""vb"")的值为_。A

（A）0 （B）1 （C）18 （D）Vb"
17 "【单选题】Private Sub Form_Click()
Dim a As Integer
Static b As Integer
a=b+1
b=a+b
Print a, b
End Sub
当鼠标单击了窗体4次时窗体显示的结果为( )。D
（A）1，2 （B）4，5 （C）4，8 （D）8，15"
《四》
1 "【单选题】赋值语句的作用是（ ）。C
（A）赋值语句用于将表达式的值赋给变量
（B）赋值语句用于将表达式的值赋给属性
（C）赋值语句用于将表达式的值赋给变量或属性
（D）赋值语句用于将表达式的值赋给变量和属性"
2 "【单选题】语句X=X+1的正确含义是( )。C
（A）变量X的值与X+1的值相等 （B）将变量X的值存到X+1中去
（C）将变量X的值加1后赋给变量X （D）变量X的值为1"
3 "【单选题】VB中的注释语句是( )。B
（A）执行语句 （B）非执行语句 （C）命令语句 （D）结构化语句"
4 "【单选题】在默认情况下InputBox $ 函数返回值的类型为（ ）B
（A）数值 （B）字符串
（C）变体 （D）数值或字符串(视输入的数据而定)"
5 "【单选题】MsgBox函数中有4个参数，其中必须写明的参数是( )。C
（A）指定对话框中显示按钮的数目 （B）对话框标题
（C）提示信息 （D）所有参数都是可选的"
6 "【单选题】运行以下程序中变量Var3的结果是（ ）。B
Dim Var1,Var2,Var3
Var1=”Hello”
Var2=”World!”
Var3=Var1 & “ “ & Var2
Var1=10
Var2=20
Var3=Var1 + var2
（A）”Hello World!” （B）30 （C）1020 （D）出错"
7 "【多选题】在窗体上画一个命令按钮，然后编写如下事件过程，程序运行后，单击命令按钮，先后在两个输入对话框中分别输入456和123，则输出结果分别是( )和（ ）D、A
（1） Private Sub Command1_click()
a=InputBox(“Enter the first Integer”)
b=InputBox(“Enter the Second Integer”)

Print b+a
End Sub
（2） Private Sub Command1_click()
Dim a,b As Integer
a=InputBox(“Enter the first Integer”)
b=InputBox(“Enter the Second Integer”)
Print b+a
End Sub
（A）579 （B）123 （C）456 （D）123456"
8 "【多选题】Print方法可以在()对象上输出数据。（多选）ADEG
（A）窗体 （B）桌面 （C）标题栏 （D）立即窗口
（E）图片框 （F）状态栏 （G）打印机 （H）代码窗口"
9 "【单选题】下列程序段的执行结果为[ ]。A
X=2
Print X+1；X+1
（A）3 3 （B）X+1 X+1 （C）3 4 （D）2+1 2+1"
10 "【单选题】下面语句正确的是[]。C
A.If x ≠ y Then Print “x不等于y”
B.If x <> y Print “x不等于y”
C.If x <> y Then Print “x不等于y”
D.If x ≠ y Print “x不等于y”"
11 "【单选题】下面语句正确描述：如果x≤3y且x>y，则y=x3是[]。A
A.If x<=3*y and x>y Then y= x^3
B.If and(x<=3y,x>y) Then y=x3
C.If x<=3*y and x>y Then y=x**3
D.If x<=3*y: x>y Then y=x3"
12【单选题】下面程序段[]能够正确实现目的：如果X<Y，则A=15，否则A=-15.C
A.If X<Y Then A=15 B.If X<Y Then A=15:Print A
A=-15 A=-15:Print A
Print A
C.If X<Y Then D.If X<Y Then A=15
A=15:Print A A=-15
Else Print A
A=-15:Print A End If
End If"
13 "【单选题】在下面程序运行时键入2，则该程序的运行结果是[]。C
Private sub command1_click()
X=inputbox(“请输入一个整数”)
Select case x
Case Is<-3
Print (x+1)/(x+3)
Case –3 To 3
Print x*x+1

Case Is>3
Print (x+1)/(x-3)
End select
End sub
A.2 B.0.6 C.5 D.-3"
14 "【单选题】下列程序段的执行结果为[]。A
x=5
y=-20
If Not x>0 Then x=y-3 Else y=x+3
Print x-y;Y-x
A.-3 3 B.5 -8 C.3 -3 D.25 -25"
《五》
1 "【单选题】运行下列程序，输出的结果为_____。D
Private Sub Form_Click()
s=0
Do
s = (s + 1) * (s + 2)
Number = Number + 1
Loop Until s>=30
Print Number;s
End Sub
(A)0 1 (B)30 30 (C)4 30 (D)3 182"
2 "【单选题】运行下列程序，输出的结果为_____。D
Private Sub Form_Click()
A$ = ""54321"": B$ = ""abcde""
j = 1
Do While j <= 5
Print Mid(A$, 6 - j, 1) + Mid(B$, j, 1);
j = j + 1
Loop
Print
End Sub
(A)a1b2c3d4e5 (B)a5b4c3d2e1
(C)e1d2c3b4a5 (D)1a2b3c4d5e"
3 "【单选题】下面程序段的执行结果为______。A
I=0
For g=10 to 19 Step 3
I=I+1
Next g
Print I
(A) 4 (B) 5 (C) 3 (D) 6"
4 "【单选题】运行下列程序，输出的结果为_____。C
Private Sub Form_Click()
For j = 1 To 10

a = 20 - (2 * j - 1)
If a / 3 = a \ 3 Or a / 5 = a \ 5 Then
Sum = Sum + a
End If
Next j
Print ""Sum=""; Sum
End Sub
(A)Sum= 27 (B)Sum= 15 (C)Sum= 32 (D)32"
5 "【单选题】运行下列程序，结果为_____。C
Private Sub Command1_Click()
a$ = ""A WORKER IS OVER THERE""
x = Len(a$)
For i = 1 To x - 1
b$ = Mid(a$, i, 2)
If b$ = ""ER"" Then s = s + 1
Next i
Print s
End Sub
(A)1 (B)2 (C)3 (D)4"
6 "【单选题】在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim Str1 As String, Str2 As String
Str1=InputBox(""请输入一个字符串""）
For i=1 To Len(Str1)
Str2=UCase(Mid(Str1,i,1))+Str2
Next i
Print Str2
End Sub
程序运行后，单击命令按钮，如果在输入对话框中输入字符串""abcdefg""，则单击""确定""按钮后在窗体上的输出结果为_____。D
(A) abcdefg (B) ABCDEFG
(C) gfedcba (D) GFEDCBA"
7 "【单选题】运行下列程序，执行Print i * j的次数为_____。B
Privat Sub Form_Click()
For i =1 to 3
For j =5 to 1 step –2
Print i * j
Next j
Next i
End Sub
(A)7 (B)9 (C)12 (D)15"
8 "【单选题】下面程序段的执行结果为______。C
k=0
For j=1 to 2

For i=1 to 3
k=i+1
Next i
For i=1 to 7
k=k+1
Next i
Next j
Print k
(A) 10 (B) 6 (C) 11 (D) 16"
《六》
1 "【单选题】语句Dim A(-3 to 5)As Integer定义的数组的元素个数是_。D
(A)6 (B)7 (C)8 (D)9 "
2 "【单选题】语句Option Base 1: Dim a(3,4)定义的数组中，所包含的数组元素的个数是_____。A
(A)12 (B)7 (C)20 (D)15 "
3【单选题】语句Dim a(3,4,5)定义的数组中所包含的数组元素的个数是__。B
(A)12 (B)60 (C)120 (D)345 "
4 "【单选题】下面的数组声明语句中______是正确的。B
(A)Dim A[3,4] As Integer (B)Dim A(3,4) As Integer
(C)Dim A[3;4] As Integer (D)Dim A(3;4) As Integer"
5 "【单选题】当程序运行时，在窗体上单击鼠标时，下面事件过程的执行结果是____。D
　Private Sub Form_Click( )
　　Dim a(1 to 20) As Integer
　　Dim k As Integer
　　For k=1 To 20
　　　a(k)=k*k
　　Next k
　　Print a(k)
　End Sub
(A) 400 (B) 20 (C)441 (D)出错 "
6 "【单选题】下列程序段的执行结果是_____。A
Dim M(10)
For I=0 To 10
M(I)=2*I
Next I
Print M(M(3))
(A)12 (B)6 (C)0 (D)4"
7 "【单选题】下列程序段的执行结果是____。B
Dim A(5)
For I=1 to 5
A(I)=I*I
Next I
Print A(I-1)

(A)5 (B)25 (C)0 (D)16"
8 "【单选题】设执行以下程序段时依次输入1、3、5，执行结果为______。A
Dim a(4) As Integer,b(4) As Integer
For K=0 To 2
a(K+1)=Val(InputBox(""请输入数据:""))
b(3-K)=a(K+1)
Next K
Print b(K)
(A)1 (B)3 (C)5 (D)0"
9 "【单选题】下列程序段的执行结果为______。C
Dim M(10)
For K=1 To 10
M(K)=11-K
Next K
X=6
Print M(2+M(X))
(A)2 (B)3 (C)4 (D)5"
10 "【单选题】下列程序段的执行结果为_____。C
Dim M(10),N(10)
I=3
For T=1 To 5
M(T)=T
N(I)=2*I+T
Next T
Print N(I);M(I)
(A)3 11 (B)3 15 (C)11 3 (D)15 3"
11 "【单选题】以下说法不正确的是_____。B
(A) 使用Redim语句可以改变数组的维数
(B) 使用Redim语句可以改变数组的类型
(C) 使用Redim语句可以改变数组每一维的大小
(D) 使用Redim语句可以对数组中的所有元素进行初始化"
12 "【单选题】在窗体上用复制、粘贴的方法建立了一个命令按钮数组，数组名为M1。设窗体Form1标题为“myform1”，双击控件数组中的第三个按钮，打开代码编辑器，写下如下代码：
Private Sub M1_Click(Index As Integer)
Form1.Caption=""myform2""
End Sub
运行时，单击按钮数组中的第一个按钮，窗体标题为_____。D
(A)Form1 (B)M1 (C)myform1 (D)myform2"
13 "【单选题】在窗体上画一个命令按钮Command1,编写其Click事件过程代码如下：
　Private Sub Command1_Click( )
　　Dim m(1 to 10) As Integer,k As Integer
　　For k=1 to 10

　　　m(k)=11-k
　　Next k
　　For k=1 to 10
　　　Print m(m(k));
　　Next k
　End Sub
程序运行时，单击命令按钮时，程序的输出结果是_____。D
(A) 10 9 8 7 6 5 4 3 2 1
(B) 1 3 5 7 9 2 4 6 8 10
(C) 2 4 6 8 10 5 7 9
(D) 1 2 3 4 5 6 7 8 9 10 "
14 "【单选题】在窗体上画一个命令按钮Command1,编写其Click事件过程代码如下：
　Option Base 1
Private Sub Command1_Click()
Dim x() As Integer
Dim m As Integer, n As Integer, k As Integer
m = Val(InputBox(""请输入m的值""))
n = Val(InputBox(""请输入n的值""))
ReDim x(m To n)
For k = LBound(x, 1) To UBound(x, 1)
x(k) = k * k
Print x(k)
Next k
End Sub
　程序运行时，单击命令按钮，在出现的输入对话框中分别输入5和5，则程序的输出结果是_____。B
(A) 5 (B) 25 (C)出错 (D)没有输出"
15 "【单选题】下列程序段执行后，元素X(3,4)的值为____。C
　Dim X(3,5)As Integer , i As Integer, j As Integer
　For i=1 to 3
　　For j=1 to 5
　　　X(i,j)=X(i-1,j-1)+i+j
　　Next j
　Next i
(A) 12 (B) 13 (C)14 (D)15 "
16 "【单选题】下列程序段的执行结果为_____。B
Dim A(10,10)
For I=2 To 4
For J=4 To 5
A(I,J)=I*J
Next J
Next I
Print A(2,5)+A(3,4)+A(4,5)

(A)22 (B)42 (C)32 (D)52"
17 "【单选题】下列程序段的执行结果为______。C
Dim M(2)
For I=1 To 2
M(I)=0
Next I
K=2
For I=1 To K
For J=1 To K
M(J)=M(I)+1
Print M(K);
Next J
Next I
(A)1 2 2 3 (B)1 2 3 4 (C)0 2 2 3 (D)0 1 2 3 "
18 "【单选题】下列程序段的执行结果为______。D
Dim A(10),B(5)
For I=1 To 10
A(I)=I
Next I
For J=1 To 5
B(J)=J*20
Next J
A(5)=B(2)
Print ""A(5)="";A(5)
(A)A(5)=5 (B)A(5)=10 (C)A(5)=20 (D)A(5)=40"
《七》。。。略。。。。
《八》
1 "将图片框的_____属性设置为True时，可使图片框根据图片调整大小。(单选题) C
A、AutoSize
B、AutoReDraw
C、Picture
D、Stretch"
2 "下面叙述不正确的是_____。(单选题) C
A、驱动器列表框是一种能显示系统中所有有效磁盘驱动器的列表框
B、驱动器列表框的Drive属性只能在运行时被设置
C、从驱动器列表框中选择驱动器能自动地变更系统当前的工作驱动器
D、驱动器列表框中的Drive属性一发生改变，一定会触发Change事件"
3 "使用目录列表框的_____属性可以返回或设置当前工作目录的完整路径(包括驱动器盘符)。(单选题) B
A、Drive
B、Path
C、Dir
D、ListIndex"

4 "文件列表框中用于设置或返回所选文件的路径的属性是_____。(单选题) D
A、File
B、FilePath
C、Path
D、FileName"
5 "要触发目录列表框的Change事件为以下_____操作。(单选题) D
A、单击所选目录
B、双击所选目录
C、在属性窗口设置其Path属性
D、以上操作都不对"
6 "在目录列表框中，当前被选中的目录的ListIndex属性值为_____。(单选题) D
A、－1
B、0
C、1
D、不确定"
7 "编写如下事件过程：
Private Sub Form_KeyPress(KeyAscii As Integer)
Print Chr(KeyAscii);
Print KeyAscii
EndSub
运行程序，按下“a”键输出结果为_______。(单选题) A
A、A65
B、a97
C、65A
D、97a"
8 "将窗体的KeyPreview属性设置为True，然后编写如下事件过程：
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Print Chr(KeyCode);
End Sub
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
Print Chr(KeyCode + 32)
End Sub
按下“a”键时，输出结果为_______。(单选题) A
A、Aa
B、AA
C、aa
D、aA"
9 "编写如下事件过程：
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Shift = 3 And Button = 2 Then
Print ""BBBB""
End If

End Sub
运行后，为了在窗体上输出“BBBB”，应执行的操作为_______。(单选题) D
A、同时按下Shift键和鼠标左键
B、同时按下Shift键和鼠标右键
C、同时按下Ctrl键，Alt键和鼠标左键
D、同时按下Ctrl键，Shift键和鼠标右键"
10 "下列关于MouseMove事件的判断，正确的是_______。(单选题) A
A、当鼠标指针处在窗体边框内时，窗体和控件均能识别MouseMove事件
B、当鼠标指针在屏幕上移动时就会发生MouseMove事件
C、在鼠标移动时，该事件只发生一次
D、当鼠标指针处在控件的边框外时，窗体和控件均能识别MouseMove事件"
《九》
1 "【单选题】下面叙述中错误的是_____。D
(A)Visual Basic函数分为内部函数和外部函数
(B)函数过程以Function语句开始，以End Function语句结束
(C)函数过程中的函数体中若没有赋值语句<函数过程名>=<表达式>，则函数过程将返回一个默认值
(D)Function过程中可以再定义一个Function过程"
2 "【单选题】可以使用____语句退出Sub过程。A
(A)Exit Sub (B)Go Off (C)End Sub (D)Exit"
3 "【单选题】在主调过程中的参数称为____。B
(A)形参 (B)实参 (C)主参 (D)辅参"
4 "【单选题】在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下程序：
　Private Sub Command1_Click()
　　Dim x As Integer,y As Integer,z As Integer
　　x=5：y=7：z=0
　　Text1.Text=""""
　　Call p1(x,y,z)
　　Text1.Text=Str(z)
　End Sub
　Sub p1(ByVal a As Integer,ByVal b As Integer,c As I