当前位置：文档库 › VB单选题

VB单选题

【单选题】Visual Basic的编程机制是 D 。

A、可视化

B、面向对象

C、面向图形

D、事件驱动 D 【单选题】Visual Basic集成环境的大部分窗口都可以从主菜单项 B 的下拉菜单中找到相应的打开命

令。

A、编辑

B、视图

C、格式

D、调试 B 【单选题】每个窗体对应一个窗体文件，窗体文件的扩展名是 C 。

Ａ、.bas B、.cls C、.frm D、.vbp C 【单选题】工程文件的文件名后缀是什么？__B____

A.bmp

B.vbp

C.frm

D.bas B 【单选题】窗体设计器是用来设计 B 。

A、应用程序的代码段

B、应用程序的界面

C、对象的属性

D、对象的事件 A 【单选题】使用 A 方法不可以进入代码窗口编写代码。

A、执行“文件”菜单中的打开命令

B、在窗体上单击鼠标右键，在弹出的快捷菜单中选择“查看

代码”命令

C、双击窗体设计器的任何地方

D、执行“视图”菜单中的“代码窗口”命令 A

【单选题】VB6.0集成开发环境有三种工作状态，不属于三种工作状态之一的是 B 。

A.设计状态

B.编写代码状态

C.运行状态

D.中断状态 D 【单选题】VB6.0集成开发环境不包括____A____窗口。

A.DOS界面窗口

B.窗体窗口

C.代码窗口

D.属性窗口 A

【单选题】在设计应用程序时，通过___D_____ 窗口可以查看到应用程序工程中的所有组成部分。

A.代码窗口

B.窗体设计窗口

C.属性窗口

D.工程资源管理器窗口C

【单选题】VB6.0是一种面向 B 的编程环境。

A.机器

B.对象

C.过程

D.应用 B

【单选题】在VB集成环境创建VB应用程序时，除了工具箱窗口，窗体中的窗口，属性窗口外，必不可少的

窗口是 C 。

A.窗体布局窗口

B.立即窗口

C.代码窗口

D.监视窗口 C 【单选题】不能打开属性窗口的操作是 D 。

A. 单击工具栏中的“属性窗口”按钮

B. 选取“视图”菜单中的“属性窗口”子菜单项

C. 在对象上单击右键，从弹出的快捷菜单中选择“属性窗口”选取项

D. 选取“工程”菜单中的“属性窗

口”子菜单项CD

【单选题】事件的名称 C

A、都要由用户定义

B、有的由用户定义，有的由系统定义

C、都是由系统预先定义

D、是不固定的 B 【单选题】对象的三要素不包括 D 。

A、属性

B、方法

C、事件

D、程序 D

【单选题】对于窗体，下面 D 属性在程序运行时其属性设置起作用。

（A）MaxButton (B) BorderStyle (C) Name (D) Left d

【单选题】要使Print 方法在Form_Load事件中起作用，要对窗体的 C 属性进行设置。

（A）BackColor (B)ForeColor (C) AutoRedraw (D) Caption c

【单选题】要使标签控件显示时不覆盖其背景内容，要对 D 属性进行设置

（A）BackColor (B)ForeColor (C) BorderStyle (D) BackStyle d

【单选题】要使命令按钮不可操作，要对 A 设置

（A） Enabled (B)Visible (C) BackColor (D)Caption a

【单选题】文本框没有 D 属性

（A）Enabled (B)Visible (C) BackColor (D)Caption d

【单选题】不论何控件，共同具有的是 B 属性

（A）Text (B)Name (C) ForeColor (D)Caption b

【单选题】要使Form1窗体的标题栏显示”欢迎使用VB”，以下 A 语句正确。

（A） Form1.Caption=”欢迎使用VB”（B）Form1.Caption=’欢迎使用VB’

【单选题】要使某控件在运行时不可显示，应对 B 进行设置

（A） Enabled (B) Visible (C) BackColor (D) Caption b 【单选题】要使窗体在运行时不可以改变窗体的大小和没有最大，最小化按钮，只要对下面B 进行设置。

（A）MaxButton (B) BorderStyle (C) Width (D) MinButton b 【单选题】当运行程序时候，系统自动执行启动窗体的 A 事件过程

（A）Load (B)Click (C) Unload (D) GotFocus a 【单选题】当文本框的ScrollBars 属性设置了非零值，却没有效果，原因为 B 。

（A）文本框中没有内容（B）文本框的MultiLine属性为False

（C）文本框的MultiLine属性为True（D）文本框的Locked属性为True b

【单选题】要判断在文本框时否按了Enter键，应在文本框的 D 事件中判断

（A）Change (B)KeyDown (C)Click (D)KeyPress d 【单选题】在一个语句内写多条语句时，每个语句之间用（B ）符号分隔。

（A）, (B) ： (C) 、（D）； b 【单选题】一句语句要在下一行继续写，用（C ）符号作为续行符。

（A）+ (B) - (C) _ (D)… c 【单选题】下面（A ）是合法的变量名。

（A）X_YZ (B)123ABC (C)integer (D)X-Y a 【单选题】下面（D ）是不合法的单精度型常数

（A）100! (B)100.0 (C)1E+2 (D)100.0D+2 d 【单选题】下面（A ）是合法的单精度型变量

（A）num! (B)sum% (C)xinte$ (D)mm# a 【单选题】表达式16/4-2^5*8/4 MOD 5\2的值为（B ）

（A）14 (B)4 (C)20 (D)2 b 【单选题】数学关系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 b 【单选题】已知A$=”12345678”则表达式Val(Left$(A$,4)+Mid(A$,4,2))的值为（B ）

（A） 123456 (B)123445 (C) 8 (D) 6 b 【单选题】表达式Len(“123程序设计ABC”)的值为（A ）

（A）10 (B)14 (C)20 (D)17 a 【单选题】下面正确的赋值语句是（C ）

（A）X+Y=30 (B)Y=π*R*R (C) Y=X+30 (D)3*Y=X c 【单选题】为了给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 a 【单选题】已知A=3.5,B=5.0,C=2.5,D=True 则表达式：A>=0 AND A+C>B+3 OR NOT D的值为（错）(A)TRUE (B)FALSE (C) 1 (D)0 b 【单选题】Int(198.555*100+0.5)/100的值为（A ）

(A) 198 (B) 199.6 (C)198.56 (D)200 a 【单选题】下列符号常量的声明中，( C )是不合法的。

（A）Const a As Single=1.1 （B）Const a As Integer=”12”

（C）Const a As Double=Sin(1) （D）Const a=”OK” c 【多选题】以下语句的输出第一个结果是(B )；第二个结果是( D )

a=sqr(3)

print format(a,”$####.##”)

print format(a,”$0000.##”)

（A）$1.732 （B）$1.73 （C）$1732 （D）$0001.73 bd

【单选题】函数InStr（”VB程序,visual Basic,Vb”，”vb”）的值为( A )。

（A）0 （B）1 （C）18 （D）Vb a

第三单元最后一题【单选题】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 d

【单选题】赋值语句的作用是（C ）。

（A）赋值语句用于将表达式的值赋给变量（B）赋值语句用于将表达式的值赋给属性

（C）赋值语句用于将表达式的值赋给变量或属性（D）赋值语句用于将表达式的值赋给变量和属性 c 【单选题】语句X=X+1的正确含义是(C )。

（A）变量X的值与X+1的值相等（B）将变量X的值存到X+1中去

（C）将变量X的值加1后赋给变量X （D）变量X的值为1 c 【单选题】VB中的注释语句是( B )。

（A）执行语句（B）非执行语句（C）命令语句（D）结构化语句 b 【单选题】在默认情况下InputBox $ 函数返回值的类型为（B ）

（A）数值（B）字符串（C）变体（D）数值或字符串(视输入的数据而定) b 【单选题】MsgBox函数中有4个参数，其中必须写明的参数是[C]。

（A）指定对话框中显示按钮的数目（B）对话框标题（C）提示信息（D）所有参数都是可选的 c 【单选题】运行以下程序中变量Var3的结果是（ D）。

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）出错 d 【多选题】在窗体上画一个命令按钮，然后编写如下事件过程，程序运行后，单击命令按钮，先后在两个

输入对话框中分别输入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 da

【多选题】Print方法可以在()对象上输出数据。（ADEG）

（A）窗体（B）桌面（C）标题栏（D）立即窗口

（E）图片框（F）状态栏（G）打印机（H）代码窗口ADEG 【单选题】下列程序段的执行结果为[A ]。

X=2

Print X+1；X+1

（A）3 3 （B）X+1 X+1 （C）3 4 （D）2+1 2+1 a 【单选题】下面语句正确的是[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” c 【单选题】下面语句正确描述：如果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 a 【单选题】下面程序段[]能够正确实现目的：如果X

A.If X

B.If X

A=-15 A=-15:Print A

Print A

C.If X

D.If X

A=15:Print A A=-15

Else Print A

A=-15:Print A End If

End If c 【单选题】在下面程序运行时键入2，则该程序的运行结果是[G]。

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 c 【单选题】下列程序段的执行结果为[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 a 【单选题】运行下列程序，输出的结果为__D___。

Private Sub Form_Click()

s=0

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 d 【单选题】运行下列程序，输出的结果为___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

End Sub

(A)a1b2c3d4e5 (B)a5b4c3d2e1 (C)e1d2c3b4a5 (D)1a2b3c4d5e d 【单选题】下面程序段的执行结果为__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 a 【单选题】运行下列程序，输出的结果为_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 c 【单选题】运行下列程序，结果为__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 c 【单选题】在窗体上画一个命令按钮，然后编写如下事件过程：

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 d 【单选题】运行下列程序，执行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 b 第五单元最后一题【单选题】下面程序段的执行结果为__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 c 【单选题】语句Dim A(-3 to 5)As Integer定义的数组的元素个数是___D_。

(A)6 (B)7 (C)8 (D)9 d 【单选题】语句Option Base 1: Dim a(3,4)定义的数组中，所包含的数组元素的个数是___A__。

(A)12 (B)7 (C)20 (D)15 a 【单选题】语句Dim a(3,4,5)定义的数组中所包含的数组元素的个数是 C__。

(A)12 (B)60 (C)120 (D)345 c 【单选题】下面的数组声明语句中__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 【单选题】当程序运行时，在窗体上单击鼠标时，下面事件过程的执行结果是_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)出错 d 【单选题】下列程序段的执行结果是__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 a

【单选题】下列程序段的执行结果是_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 b

【单选题】设执行以下程序段时依次输入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 a

【单选题】下列程序段的执行结果为__G____。

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 c

【单选题】下列程序段的执行结果为__G___。

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 c

【单选题】以下说法不正确的是_B____。

(A) 使用Redim语句可以改变数组的维数(B) 使用Redim语句可以改变数组的类型

出错【多选题】以下_____是Visual Basic合法的数组元素。

(A)X9 (B)X[9] (C)X(I+1) (D)X(X(5)) (E)x{6} (F)X(0) cdf

【多选题】下面的数组声明语句中_____是正确的。

(A)Dim MA[1:5,1:5] As String (B)Dim MA(5 To 5) As String

(C)Dim MA(1 To 5,1 To 5) As String (D)Dim MA(1:5,1:5) As String

(E)Dim MA(1 To 5;1 To 5) As String (F)Dim MA(1 To 5,5) As String bcf

将图片框的_____属性设置为True时，可使图片框根据图片调整大小。(单选题)

A、AutoSize

B、AutoReDraw

C、Picture

D、Stretch A

下面叙述不正确的是___。(单选题)

A、驱动器列表框是一种能显示系统中所有有效磁盘驱动器的列表框

B、驱动器列表框的Drive属性只能在运行时被设置

C、从驱动器列表框中选择驱动器能自动地变更系统当前的工作驱动器

D、驱动器列表框中的Drive属性一发生改变，一定会触发Change事件 C 使用目录列表框的_____属性可以返回或设置当前工作目录的完整路径(包括驱动器盘符)。(单选题)

A、Drive

B、Path

C、Dir

D、ListIndex B 文件列表框中用于设置或返回所选文件的路径的属性是_____。(单选题)

A、File

B、FilePath

C、Path

D、FileName C 要触发目录列表框的Change事件为以下_____操作。(单选题)

A、单击所选目录

B、双击所选目录

C、在属性窗口设置其Path属性

D、以上操作都不对 C 在目录列表框中，当前被选中的目录的ListIndex属性值为_____。(单选题)

A、－1

B、0

C、1

D、不确定 D 编写如下事件过程：

Private Sub Form_KeyPress(KeyAscii As Integer)

Print Chr(KeyAscii);

Print KeyAscii

EndSub

运行程序，按下“a”键输出结果为_______。(单选题)

A、A65

B、a97

C、65A

D、97a B 将窗体的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、Aa

B、AA

C、aa

D、aA A 编写如下事件过程：

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”，应执行的操作为_______。(单选题)

A、同时按下Shift键和鼠标左键

B、同时按下Shift键和鼠标右键

C、同时按下Ctrl键，Alt键和鼠标左键

D、同时按下Ctrl键，Shift键和鼠标右键 D 下列关于MouseMove事件的判断，正确的是_______。(单选题)

A、当鼠标指针处在窗体边框内时，窗体和控件均能识别MouseMove事件

B、当鼠标指针在屏幕上移动时就会发生MouseMove事件

C、在鼠标移动时，该事件只发生一次

D、当鼠标指针处在控件的边框外时，窗体和控件均能识别MouseMove事件 A 【单选题】下面叙述中错误的是_____。

(A)Visual Basic函数分为内部函数和外部函数

(B)函数过程以Function语句开始，以End Function语句结束

(C)函数过程中的函数体中若没有赋值语句<函数过程名>=<表达式>，则函数过程将返回一个默认值

(D)Function过程中可以再定义一个Function过程 D

【单选题】可以使用____语句退出Sub过程。

(A)Exit Sub (B)Go Off (C)End Sub (D)Exit A 【单选题】在主调过程中的参数称为____。

(A)形参 (B)实参 (C)主参 (D)辅参 B 【单选题】在窗体上画一个名称为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 Integer)

c=a+b

End Sub

程序运行后，如果单击命令按钮，则在文本框中显示的内容是____。

(A)0 (B)12 (C)Str(z) (D)没有显示 B 【单选题】通用过程可以通过执行“工具”菜单中的____命令来建立。

(A)添加过程 (B)通用过程 (C)添加窗体 (D)添加模块 A 【单选题】现有如下程序:

Private Sub Form_Click()

s=0

For i=1 To 5

s=s+f(5+i)

Print s

End Sub

Public Function f(x As Integer)

If x>=10 Then

t=x+1

Else

t=x+2

End If

f=t

End Function

运行程序,则窗体上显示的为____。

(A)38 (B)49 (C)61 (D)70 B 【单选题】单击按钮时，以下程序运行后的输出结果是____。

Private Sub Command1_Click()

Dim x As Integer, y As Integer, z As Integer

x=1: y=2: z=3

Call God(x, x, z)

Print x; x; z

Call God(x, y, y)

Print x; y; y

End Sub

Private Sub God(x As Integer, y As Integer, z As Integer)

x=3 * z + 1

y=2 * z

z=x + y

End Sub

(A) 6 6 12 (B) 8 5 10

5 11 11 7 11 11

9 10 15 5 9 10 A

【单选题】下面说法正确的是______。

(A)形参可以是变量名或数组名，也可以是定长字符串变量

(B)在调用过程中，实参和形参的数据类型可以不必一一对应

(C)数组作参数是通过传地址方式传送

(D)形参前加"ByRef"关键字表示按值传递 C

【单选题】数据库有三种基本模型，它们是。

A、关系、连接、嵌套

B、嵌套、层次、关系

C、网络、层次、嵌套

D、网状、层次、关系 D 【单选题】以下说法错误的是_____。

A、一个表可以构成一个数据库

B、多个表可以构成数据库

C、一个表中每一条记录中的各项数据具有相同的数据类型

D、同一个字段的数据具有相同的数据类型 D 【单选题】要利用数据控件返回数据库中记录集，则需要设置属性。

A、Connect

B、DatabaseName

C、RecordSource

D、RecordType D 【单选题】Seek方法可在______记录集中进行查找。

A、Table类型

B、SnapShot类型

C、Dynaset类型

D、以上三者 A 【单选题】下列组关键字是Select语句中不可缺少的。

A、Select From

B、Select Where

C、From Order By

D、Select All A 【单选题】语句“Select * From StuInfo Where stuSex = '女'”中的“*”表示________。

A、所有表

B、指定表中的所有字段

C、所有指定条件的记录

D、所有记录 C 【单选题】在使用Delete方法删除当前记录后，记录指针位于。

A、被删除记录上

B、被删除记录的上一条

C、被删除记录的下一条

D、记录集的第一条 C 【单选题】使用ADO数据控件的ConnectionString属性与数据源建立连接相关信息，在属性页可以有

________种不同的连接方式。

A、1

B、2

C、3

D、4 B 【单选题】下列所显示的字符串中，字符串________ 不包含在ADO数据控件的ConnectionString属性。

A、Microsoft Jet 3.51 OLE DB Provider

B、Data Source=C:\Mydb.mdb

C、Persist Security Info=False

D、2-adCmdTable D 【单选题】要通过ADO控件使用SQL语句，ADO的命令类型(CommandType)应设置为________。

A、8-adcmdUnKnow C、2-adCmdTable

B、1-adCmdText D、4-adCmdStoredProc C