第一套vb试题(练习一带答案)
第一套vb 试题
1.下列叙述中正确的是(C)
A.只有窗体才是Visual Basic 中的对象
B.只有控件才是Visual Basic 中的对象
C.窗体和控件都是Visual Basic中的对象
D.窗体和控件都不是Visual Basic
2.确定一个控件在窗体上的位置的属性是(D)
A.Width 或Height
B.Width 和Height
C.Top 或Left
D.Top 和Left
3、为了同时改变一个活动控件的高度和宽度，正确的操作是(A)
A.拖拉控件4个角上的某个小方块
B.只能拖拉位于控件右下角的小方块
C.只能拖拉位于控件左下角的小方块
D.不能同时改变控件的高度和宽度
4、用户在屏幕上画出应用程序界面，并设置好对象的属性，系统便可以自动生成程序代码，这称为： ( A )
A、面向对象的程序设计
B、结构化程序设计
C、事件驱动的编程机制
D、可视化程序设计
5、VB6 共有三个版本，按功能从弱到强的顺序排列应是( C )
A、学习版、专业版和工程版
B、学习版、工程版和专业版
C、学习版、专业版和企业版
D、学习版、企业版和专业版
6、VB 集成开发环境有三种工作状态，不属于三种工作状态之一的是( B )
A、设计状态
B、编写代码状态
C、运行状态
D、中断状态
7、工程文件的扩展名是( B)
.frm B、.vbp C、.bas D、.frx
8、窗体文件的扩展名是( A)
.frm B 、.vbp C、.bas D、.frx
9、VB 集成开发环境可以( D )
A 、编辑、调试、运行程序，但不能生成执行程序
B 、编辑、生成可执行程序、运行程序，但不能调试程序
C、编辑、调试、生成可执行程序，但不能运行程序
D 、编辑、调试、运行程序，也能生成执行程序
10、标准模块文件的扩展名是( C)
.frm B 、.vbp C、.bas D、.vbg
11、用于获得字符串S从第5个字符开始的3个字符的函数是(A )。
A．Mid(S,5,3) B.Middle(S,5,3) C.Right(S,5,3) D.Left(S,5,3)
12、用于从字符串左边截取字符的函数是( D)。
A、Ltrim( )
B、Trim( )
C、Instr( )
D、Left( )
13、用于去掉字符串左右两边的空格的函数是(
B)。
A 、Ltrim( ) B、Trim( ) C、Left( ) D、Instr( )
14.假定窗体的名称(Name 属性)为Forml，则把窗体的标题设置为“VB Test ”的语句
为(B)
A.Form1 = "VB Test"
B.Caption ="VB Test"
C.Form1．Text = "VB Test"
https://www.360docs.net/doc/5c18110034.html, ="VB Test"
15 下列说法中正确的是：为了保存一个Visual Basic 应用程序，应当(D)
A. 只保存窗体模块文件(.frm)
B. 只保存工程文件(.vbp)
C.分别保存工程文件和标准模块文件(.bas)
D.分别保存工程文件、窗体文件和标准模块
文件
16、要使一个标签框对象能够显示所需要的文本，应设置该对象的那一个属性的值？
( A)
A. Caption
B. Text
C. Name
D.AutoSize
17、要使一个命令按钮称为图形式命令按钮，应设置该队象的哪一个属性值？(B)
A.Picture
B.Style
C.DownPicture
D.DisabledPicture
18、为使计时器对象每隔 5 秒钟产生一个时钟事件( Timer 事件)，则其Interval 属性值应设置为(D)
A.5
B.300
C.500
D.5000
19、一个标准的VB应用程序至少要包含一个(C)对象。
A.文本框
B.标签框
C.窗体
D.命令按钮
20、要使一个文本框对象能够显示多行文字，应设置该对象的(B)属性值为True.
A.Text
B.MultiLine
C.Style
D.Visible
21、双击窗体中的对象后，VB 将显示的窗口是( C )
A、工具箱
B、项目(工程)窗口
C、代码窗口
D、属性窗口
22、下述先项中，属性VB 的程序设计方法是( B )
A、面向对象、顺序驱动
B、面向对象、事件驱动
C、面向过程、事件驱动
D、面向过程、顺序驱动
23、下面是窗体的四个属性，在界面设计时，改变属性值看不到窗体变化的是( D )
A 、Top
B 、Width
C 、Left
D 、Enabled
24、下面四个选项，不是事件的是( B )
A 、Load
B 、Enabled C、Unload D 、DblClick
25、用来设置窗体背景图片的属性是( B )
A 、Moveable
B 、Picture C、ForeColor D 、WindowState
26、在VB6 中的每一个对象都具有自己的属性、___C ____ 和方法。
A、控件
B、函数
C、事件
D、公用过程
27．计算结果为0的表达式是( B )。
A ．Int(3.4)+Int(-3.8) B.Int(3.4)+Fix(-3.8)
C．Fix(3.4)+Fix(-2.8) D.Fix(3.4)+Int(-3.8)
28?假设A=3，B=7，C=2，则表达式NOT ( BA 的值是(B)
A.True
B.False
C. 表达式错误
D. 不确定
29.在表达式y = InputBox ( a, b, c )中，a,b,c分别为输入函数对话框的(B) ( A)(C)。
A.标题
B.提示
C.预设值
D.帮助文件名
30.在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click() a = InputBox("Enter the First integer") b =
InputBox("Enter the Second integer") Print b + a
End Sub
456 和123，则输出结果是(D)
A.579
B.123
C.456
D.123456
31.在窗体上画一个命令按钮，然后编写如下事件过
程：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
456 和123，则输出结果是(A)
A.579
B.123
C.456
D.123456
32.执行下面的语句后，所产生的信息框的标题是
a=MsgBox("AAAA" ，，"BBBB" ，"" ，5)(A) A.BBBB B. 空
C.AAAA
D. 出错，不能产生信息框
33.假定x 的值为5，则在执行以下语句时，其输出结果为
"Result" 的Select Case 语句是(C)
A. Select Case x
Case 10 To 1
Print "Result"
End Select
B.Select Case x
Case Is > 5, Is v 5
Print "Result"
End Select
C.Select Case x
Case Is > 5, 1, 3 To 10
Print "Result"
End Select
D.Select Case x
Case 1, 3, Is > 5
Print "Result"
End Select
34.假定有以下循环结构
Do Until 条件
循环体
Loop
(B)
A.如果"条件"是一个为0的常数，则一次循环体也不执行
B.如果"条件"是一个为0的常数，则无限次执行循环体
C.如果"条件"是一个不为0的常数，则至少执行一次循环体
D.不论"条件"是否为"真"，至少要执行一次循环体
35.以下程序段的输出结果为
x=1
y=4
Do Until y > 4
x=x*y y=y+1
Loop
Print x (B)
A. 1
B.4
C.8
D.20
36.执行下面的程序段后，x 的值为
x=5
For i = 1 To 20 Step 2
x=x+i\5
Next i (A)
A.21
B.22
C.23
D.24
37.在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
x=0
Do Until x = -1
a=InputBox(" 请输入 A 的值")
a=Val(a)
b=InputBox(" 请输入 B 的值")
b=Val(b)
x=InputBox(" 请输入x 的值")
x = Val(x) a=a+b+x
Loop Print a
End Sub 5、4、3、2、1、果为(A)
A. 2
B.3
C.14
D.15
-1，则输出结
38.阅读下面的程序段：
39.退出For 循环可使用的语句为( A )。
A、Exit For
B、End For
C、Exit Do
D、End Do
40.退出Do, Loop 循环可使用的语句为( C )。
A、Exit For
B、End For
C、Exit Do
D、End Do
41.退出函数过程可使用的语句为( D )。
A、Exit sub
B、End sub
C、End Function
D、Exit Function
42.退出sub 过程可使用的语句为( A )。
A 、Exit sub B、End sub C、End Function D 、Exit Function
43.在窗体上画一个文本框(其Name 属性为Text1) ，然后编写如下事件过程：Private Sub
Form_Load()
Text1.Text= "" Text1.SetFocus For i=1 To 10 Sum = Sum + i