VB单元练习题一
一、选择题
1、 Visual Basic集成开发环境中不包括下列哪些窗口？（ D）
A. 工具箱窗口 B. 工程资源管理器窗口
C. 属性窗口 D. 命令窗口
2、 “一辆小客车在正常行进过程中被一辆大型货车撞坏了”，在这句话中，“客车”，“小”，“行进”和“被一辆大型货车撞坏了”分别对应Visual Basic中的哪些术语？（ B ）
A. 对象、属性、事件、方法 B. 对象、属性、方法、事件
C. 属性、对象、事件、方法 D. 属性、对象、方法、事件
3、对象的特征和状态特征称为？（ C ）
A. 事件 B. 方法 C. 属性 D. 类
4、下面哪一个属性用来标识对象的名称？（D ）
A. Caption B. Value C. Text D. Name
5、下列哪个符号是合法的变量名? （ A ）
A. VB123 B. Abs C. 99Ji D. x\y
6、数学式子10sin25o写成Visual Basic表达式是？（D）
A. 10sin25 B. 10*sin(25) C. 10*sin(25o) D. 10*sin(25*3.14/180)
7、Visual Basic中不存在下列哪一种数据类型？（D ）
A. 字符串类型 B. 日期类型 C. 逻辑类型 D. 指针类型
8、表达式Left(“Visual”,3)+Lcase(“AB”)的值是？（C）
A. visAB B. VisAB C. Visab D. ualab
9、表达式6+10 Mod 4*2+1的值是？（A）
A. 9 B. 11 C. 1 D. 3
10、把数值型转换为字符串型需要使用下列哪一种函数? （B）
A. Val() B. Str() C. Asc() D. Chr()
11、VB中窗体文件的扩展名是______。（B）
(A)VBP (B)FRM(对) (C)VBW (D)PDM
12、在设计应用程序时，通过______窗口可以查看到应用程序工程中的所有组成部分。（D）
(A)代码窗口(B)窗体设计窗口 (C)属性窗口 (D)工程资源管理器窗口(对)
13、在VisualBasic中，所有的窗体和控件都必定具有的一个属性是______。
(A)Name(对) (B)Font (C)Caption (D)FillColor
14、对变量名说法不正确的是__C____。
(A)必须是字母或汉字开头，不能是数字或其他字符
(B)不能是VB的保留字
(C)可以包含字母、数字、下划线和标点符号
(D)不能超过255个字符
15、以下变量名中，______是不符合VisualBasic的命名规范的。
(A)Abc901 (B)_mnu_Open_234(对) (C)price_ (D)K
16、在窗体上画一个命令按钮（名称为Command1），然后编写如下事件过程：
PrivateSubCommand1_Click()
DimbAsInteger
b=b+1
EndSub
运行程序，三次单击命令按钮后，变量b的值是：______。
(A)0 (B)1(对) (C)2 (D)3
17、下列程序段的执行结果为______。
X=5:Y=-20
If Not X>0 Then
X=Y-3
Else
Y=X+3
Endif
Print X-Y;Y-X
(A)-3 3(对) (B)5 8 (C)3 3 (D)25 25
18、当x为偶数时，则在窗体上显示“偶数”，否则显示“奇数
”，不能实现该代码段功能的是
(A)if x\2=x/2 then print"偶数" else print"奇数"
(B)if x mod2=0 then print"偶数"else print"奇数"
(C)if not x mod 2<>0 then print"偶数"else print"奇数"
(D)if x\2=int(x/2 )then print"偶数"else print"奇数"(对)
19、若要执行下列程序段后窗体上显示＂红＂字，则x可取的值为：
Select case int(x/10)
case2,4,6,8
print"黄"
case1,3,5,7,9
print"绿"
case else
print"红"
end select
(A)27 (B)38 (C)10 (D)5(对)
20、在程序代码中将图片文件mypic.jpg装入图片框Picture1的语句是______。
(A)Picture1.Picture="mypic.jpg"
(B)Picture1.Image="mypic.jpg"
(C)Picture1.Picture=LoadPicture("mypic.jpg")(对)
(D)LoadPicture("mypic.jpg")
21、大部分控件都没有的属性是______。
(A)Top (B)Name (C)Enabled (D)Interval(对)
22、下列属于正确的字符串常量的是____________
(A)#ABC" (B)$ABC$ (C)'ABC' (D)"ABC"(对)
23、设a=8,b=10，则以下表达式的值为真的是____________
(A)(-3+5>a)and(b>0) (B)a>=bandb>12 (C)not(b>0) (D)(a>b)or(b>0)(对)
24、语句Z=y+1代表________
(A)将变量Z存入变量y中，再加上1的表达式
(B)变量Z取得y+1的值(对)
(C)变量Z取得变量y的值，然后再加上1的一个表达式
(D)将变量Z存入变量y+1中
25、执行下面的语句后，所产生的信息框的标题是___________。A=MsgBox("AAAAA",3,"BBBBB")
(A)BBBBB(对) (B)AAAAA (C)空 (D)出错，不能产生信息框
26、执行下列代码，分别输入12和89，输出结果是_____。
Private Sub Form_Click()
a=InputBox("D")
b=InputBox("E")
Print a+b
End Sub
(A)101 (B)DE1289 (C)DE (D)1289(对)
27、为了暂时关闭计时器，应把该计时器的某个属性设置为False，这个属性是_______。
(A)Enabled(对) (B)Visible (C)Timer (D)Interval
28、下列表达式，哪一个可以产生1到6之间的随机整数（包括1和6）___。
(A)Int(Rnd*7) (B)Int(Rnd(6)+1) (C)Int(Rnd*6) (D)Int(Rnd*6+1)(对)
29、执行下列程序，从键盘输入10，运行结果是_________。
PrivateSubCommand1_Click()
S=InputBox("请输入一个数字：")
Select Case S
Case Is>0
Print ">0"
Case Is>3
Print ">3"
Case Is>5
Print ">5"
End Select
End Sub
(A)>0(对) (B)>3 (C)>5 (D)>0
30．? VB6.0共有3个版本，它们分别是___A____?
A． 学习版、专业版和企业版???? B． 标准版、专业版和企业版
C． 学习版、标准版和网络版???? D． 标准版、专业版和中文版
31．? VB的集成开发环境中有___C____工作状态
A． 一种???? B．? 两种 C． 三种???? D．? 四种
32．? VB6.0的集成开发环境不包括___D____
A． 窗体窗口??? B． 工具箱 C． 代码窗口??? D． 过程窗口
33．? VB6.0集成开发环境有三种工作状态，不属于三种工作状态之一的是___B____
A． 设计状态????? B．? 编写代码状态 C． 运行状态????? D． 中断状态
34．? 用VB设计的应用程序，文件的
扩展名中不含____D___
A． ?.Frx??? ??B．? .Bas C．? .Vbp???? D．? .Form
35．? 以下说法正确的是___B____
A． 属性窗口包括：标题栏、对象名称的单选按钮、选项卡、属性列表、属性含义说明
B． 属性窗口包括：标题栏、对象名称的下拉列表、选项卡、属性列表、属性含义说明
C．属性窗口包括：菜单栏、对象名称的单选按钮、选项卡、属性列表、属性含义说明
D．属性窗口包括：菜单栏、对象名称的下拉列表、选项卡、属性列表、属性含义说明
36．VB中，强制变量声明的语句是___A____。
A．Option Explicit B．Option Base C．REM D．PUBLIC
37．? VB6.0集成开发环境有三种工作状态，工作状态显示在____D___。
A． 状态栏的最左方?? B． 状态栏的最右方
C． 状态栏的中括号内 D． 标题栏的中括号内
38．? 在界面设计时，双击窗体中的对象后，VB将显示的窗口是__B____。
A． 立即窗口??? B． 代码窗口 C． 属性窗口??? D． 项目（工程）窗口
39．? 下述选项中，属于VB的程序设计方法是____B___。
A． 面向对象、顺序驱动??? B． 面向对象、事件驱动
C． 面向过程、事件驱动??? D． 面向过程、顺序驱动
40．VB集成开发环境中，功能键F5的功能是___D____。
A． 进入帮助窗口???????? B． 进入编辑状态
C． 进行上下窗口的切换?? D． 运行程序
41．VB设计的应用程序，扩展名为.Vbp的文件是____C__。
A． 窗体文件???? B． 类文件 C． 工程文件???? D． 标准模块文件
42．VB 设计的应用程序，扩展名为.Frm的文件是__A____。
A． 窗体文件???????? B．类文件 C． 工程文件????? ???D． 标准模块文件
43．用VB可视化程序设计语言设计应用程序的主要工作是完成___B___。
A． 设计流程和编写代码???????? B． 设计界面和编写代码
C． 设计算法和编写代码???????? D． 设计程序和编写代码
44．在VB 6.0中，12345&的数据类型是（B）
A． 整数型 B． 长整数型 C． 字符常数 D． 双精度常数
45．在VB6.0中，语句Dim M1#,Abc,Xyz As Single定义的M1、Abc 和Xyz的类型分别是（D）
A．双精度、整数型、单精度 B．双精度、单精度、单精度
C．双精度、整数型、整数型 D．双精度、可变类型、单精度
46．在VB6.0中，下列不正确的Integer型常数是_____A__________。
A． 32768 B． 0 C． 037% D． –22222
47．在VB6.0K ，12345678#的类型是__D____。
A． 整数型 B．长整数型 C． 字符常数 D．双精度常数
48．方法PRINT 20\30输出结果是__D___。
A． “20\30” B．20\30
C． 出现错误信息 D． 0
49．假定Bln1是逻辑型变量，下面赋值语句中正确的是__D___.
A． Bln1=’True’ B．Bln1=.True.
C． Bln1=#True# D．Bln1=
3<4
50．在以下运算符中，优先级最低的是（C）
A． / B． \
C． Mod D．^
51．VB6.0中，执行下面的四个语句时出现错误的是（C）
A． x=SGN(0) B． x=SQR(1)
C． x=LOG(0) D． x=SIN(1)
52．VB 6.0表达式COS（0）+ABS（-1）+INT（RND（1））的值是(D)
A． 1 B．–1
C． 0 D．2
53．设a为整型变量，不能正确表达数学关系6
54．骰子是一个正六面体，用1~6这六个数分别代表这六面，掷一次骰子出现的数可表示为（D）
A． INT（RND（6）+1） B．INT（RND*6）
C． INT（RND（1）*7） D．INT（RND（1）*6+1）
55．逻辑运算符And,Or和Not的优先顺序，从高到低是____C___
A． Or-And-Not B．And-Not-Or
C． Not-And-Or D．Not-Or-And
56．计算b的自然对数使用的Visual Basic表达式是____A_____
A． Log(b) B．Lg(b)
C． Loge(b) D．Lge(b)
57．方法Print 28 Mod –15 输出结果是____D____
A． “28 Mod –15” B． 28 Mod –15
C． -13 D．13
58．已字母A的ASCII码为十进制的65，表达式Asc（“A”）+Asc（“C”）的值是_______B__
A． 6567 B．132
C． “AC” D．AC
59．若X=5、Y=6，则表达式X+Y=11的值是___C___
A． X+Y=11 B．11
C． True D．False
60．下列执行语句后，V的值是____B____
A$=”54321”
V=Val(Mid$(A$,3,2))
A． 43 B．32
C． 432 D．0
61．执行下列语句后，E、F、G的值分别是___B___
E=5:F=4:G=3
E=F:F=G:G=E
A． 3 4 5 B． 4 3 4
C． 4 5 4 D． 4 5 5
62．m,n是整数，且n>m,在下面四个语句中，能将x赋值为一个m~n之间（含m,n）的任意整数，即满足m<=x<=n的是__A_____
A． x=INT(RND*(n-m+1))+m B．x=INT(RND*n)+m
C． x=INT(RND*m)+n D．x=INT(RND*n-m)+m
63．VB6.0表达式Log(1)+ABS(-1)+Int(Rnd(1))的值是 __C_____
A． -1 B． 0
C． 1 D． 2
64．VB表达式10^-2的值是____B___
A． –100 B．0.01
C． 100 D．–0.01
65．VB6.0表达式Len(Left(“abcd”,2)+Right(“济南学院”，2))的值为___B______
A． 2 B． 4
C． 6 D． 8
66． Load事件是在窗体被装入工作区时（D）触发的事件。
A． 用户 B． 程序员
C． 手工 D． 自动
67． 修改控件属性，一般可以使用属性窗口，也可以通过（D）为属性赋值。
A． 事件 B． 对象
C． 方法 D． 代码
68．下面是窗体的四个属性，在界面设计时，改变属性值就看不到窗体变化的属性是__D___。
A． Top B． Width
C． Left D． Enabled
69．下面四个选项，不是事件的是___B__。
A． Load B． Enabled
C． Unload D． DblClick
70．以下
叙述正确的是___A____。
A． 窗体（名称）属性是用来标识窗体的
B． 窗体（名称）属性的值显示在窗体的标题栏中
C． 可以在运行期间改变窗体的（名称）
D． 窗体的（名称）属性值可以为空
71．决定窗体标题条显示内容的属性是___C___。
A． (名称) B． Text
C． Caption D． Top
72．若要使某文本框获得控制焦点，可使用的方法是___C____。
A． LostFocus B． Point
C． SetFocus D． GotFocus
73．以下选项中，不是Visual Basic6.0缺省控件名称的是__D____。
A． Command1 B． Textl
C． labell D． Change
74．若要将某命令按钮设置为默认命令按钮，则应设置为True 的属性是____C_____。
A． Enabled B． Cancel
C． Default D． Value
75．命令按钮不能响应的事件是___A__。
A． DblClick B． click
C． MouseDown D． MouseUp
76．在VB6.0中，合法的字符串常数是______B______。
A． ABC$ B．“3+4” C． ‘ABC’ D．‘3+4’
二、填空题
1、下列哪些可以作为变量?
12fd x13 r2 a2 23a2
2、下列哪些可以作为常量？并说明是数值型还是字符型、逻辑型、日期型？ “asdf” asdf "1234" 1234 #2008/11/10# true false a3
3、把下列数学式子写成VB表达式
4、计算下列VB表达式的值(要求写出步骤)
5*3*6\2
8/4*2.5/1.25*(3.7+2.5)
18\4*4.0^2/1.6
25\3 Mod 3*2
26\3 Mod 0.4*Sqr(25)
8/4*5/2.5*(3.25+6.75)
3*7\2
14/5*2
15\5*2
27^1/3
27^(1/3)
sqr(100)\4*2
5、 按下列要求写出赋值语句
(1)把数值234赋给变量a
(2)把字符串abc赋给变量z1
(3)把标签Lblts的内容改为”姓名”
6、 写出下列函数的值
Int(-3.14159)
Sqr(sqr(16))
7、随机产生a-b范围内(包括b)整数的公式：_______________________
8、写出输入输出语句
输出对话框：要求使用图标，标题为：”输出对话框” ，对话框中的内容是”你输错了”
___________________________________
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、用户在屏幕上画出应用程序界面，并设置好对象的属性，即可完成界面的设计工作，这称为：（ D ）
A、面向对象的程序设计 B、结构化程序设计
C、
事件驱动的编程机制 D、可视化程序设计
5、VB6共有三个版本，按功能从弱到强的顺序排列应是（ C ）
A、学习版、专业版和工程版 B、学习版、工程版和专业版
C、学习版、专业版和企业版 D、学习版、企业版和专业版
6、VB集成开发环境有三种工作状态，不属于三种工作状态之一的是（ B ）
A、设计状态 B、编写代码状态 C、运行状态 D、中断状态
7、工程文件的扩展名是（B）
Ａ、.frm B、.vbp Ｃ、.bas Ｄ、.frx
8、窗体文件的扩展名是（A）
Ａ、.frm B、.vbp Ｃ、.bas Ｄ、.frx
9、VB集成开发环境可以（ D ）
A、编辑、调试、运行程序，但不能生成执行程序
B、编辑、生成可执行程序、运行程序，但不能调试程序
C、编辑、调试、生成可执行程序，但不能运行程序
D、编辑、调试、运行程序，也能生成执行程序
10、标准模块文件的扩展名是（C）
Ａ、.frm B、.vbp Ｃ、.bas Ｄ、.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属性)为Form1，则把窗体的标题设置为“VB Test”的语句为(B)?
A. Form1 = "VB Test" B.Caption ="VB Test"
C.Form1．Text = "VB Test" https://www.doczj.com/doc/5018219719.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. 要使一个命令按钮称为图形式命令按钮，应设置该队象的哪一个属性值？(BA)
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 ( 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 ＜ 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、-1，则输出结果为 (A)?
A.2 B.3 C.14 D.15
38．如果要在文本框中键入字符时，只显示某个字符，如星号(*)，应设置文本框的( B )属性。
A．Caption B．PasswordChar C．Text D．Char
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
Next i
Text1.Text = Sum
End Sub
上述程序的运行结果是 （C）?
A.在文本框Text1中输出55 B.在文本框Text1中输出0
C.出错 D.在文本框Text1中输出不定值
44.在窗体上画两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(其Name属性为Command1)，然后编写如下事件过程：
Private Sub Command1_Click()
x=0
Do While x ＜ 50
x=(x+2)*(x+3)
n=n+1
Loop
Text1.Text = Str(n)
Text2.Text = Str(x)
End Sub
程序运行后，单击命令按钮，在两个文本框中显示的值分别为 (B)?
A.1和0 B.2和72 C.3和50 D.4和168
45.在窗体上画一个命令
按钮，名称为Command1。然后编写如下程序：
Private Sub Command1_Click()
For I= 1 To 4
For J = 0 To I
Print Chr(65 + I);
Next J
Print
Next I
End Sub
程序运行后，如果单击命令按钮，则在窗体上显示的内容是(A)?
A.BB
CCC
DDDD
EEEEE
B.A
BB
CCC
DDDD
C.B
CC
DDD
EEEE
D.AA
BBB
CCCC
DDDDD
46.在窗体上画两个名称分别为Label1和Label2的标签，然后编写如下事件过程
Private Sub Form_Click()
x= -5:s= -5
Select Case s
Case Is ＞ 0
y=x+1
Case Is ＞= 0
y=x+2
Case Else
y=x+3
End Select
Label 1.Caption = x
Label2.Caption = y
End Sub
程序运行后，单击窗体，标签Label1和Label2中显示的内容分别是 (A)?
A.-5 和 -2
B.-5 和 -4
C.-5 和 -3
D.-5 和 –5
47. 下列程序段执行后输出的结果是(A)
Dim x as Integer
n=10
For k=n To 1
x = k^2
Next k
Print x
A.没有输出 B.-1 C.1 D.0
48 下列程序段执行后输出的结果是(A)
i=0
For k=10 To 19 Step 3
i=i+1
Next k
Print i
A. 4 B. 5
C. 3 D. 6
49 下列程序段执行后输出的结果是(B)
x=int (Rnd+4)
Slect Case x
Case 5
Print "优秀"K
Case 4
Print "良好"
Case 3
Print "及格"
Case Else
Print "不及格"
End Select
A. 优秀 B. 良好
C. 及格 D. 不及格
50. 在窗体上画一个命令按钮(其Name属性为Command1)，然后编写如下代码：
Option Base 1
Private Sub Command1_Click()
Dim ａ
a = Array(1, 2, 3, 4)
j=1
For i = 4 To 1 Step -1
s = s + a(i)*j
j =j * 10
Next i
Print s
End Sub
运行上面的程序，单击命令按钮，其输出结果是 (D)
A.4321
B.12
C.34
D.1234
51.定窗体标题条显示内容的属性是(C)
A.Text
https://www.doczj.com/doc/5018219719.html,
C.Caption
D.BackStyle
52．要求从文本框中输入密码时在文本框中只显示*号，则应用在此文本框的属性窗口中设置（ A ）
A．Passwordchar属性值为* B. Caption属性值为*
C．PasswordChar属性值为真 D. Text属性值为*
53决定窗体有无控制菜单的属性是(A)
A.ControlBox
B.MinButton
C.Enabled
D.MaxButton
54使文本框获得焦点的方法是(C)
A.Change
B.GotFocus
C.SetFocus
D.LostFocus`
55下列可以把当前目录下的图形文件pic1.jpg装入图片框Picture1中的语句为 （C）
A.Picture = "pic1.jpg"
B.Picture.Handle = "pic1 .jpg
"
C.Picture 1.Picture = LoadPicture("pic 1.jpg")
D.Picture = LoadPicture("pic 1.jpg")
56决定标签内显示内容的属性是(D)
A.Text
https://www.doczj.com/doc/5018219719.html,
C.Alignment
D.Caption
57假定在图片框Picture1中装入了一个图形，为了清除该图形(注意，清除图形，而不是删除图片框)，应采用的正确方法是(B)
A.选择图片框，然后按Del键
B.执行语句Picture1.picture=LoadPicture("")
C.执行语句Picture1.picture=""
D.选择图片框，在属性窗口中选择Picture属性条，然后按回车键
58.比较图片框（PictureBox）和图像框（Image）的使用，正确的描述是（A ）。
A． 当图片框（PictureBox）的AutoSize自属性为False时，只在装入图元文件（*.wmf）时，图形才能自动调整大小以适应图片框的尺寸
B． 当图像框（Image）的Stretch属性为True时，图像框会自动改变大小以适应图形的大小，使图形充满图像框
C． 两类控件都可以设置AutoSize属性，以保证装入的图形可以自动改变大小
D． 两类控件都可以设置Stretch属性，使得图形根据物件的实际大小进行拉伸调整，保证显示图形的所有部分
59删除列表框中指定的项目所使用的方法为(D)
A.Move
B.Remove
C.Clear
D.RemoveItem
60.若要向列表框添加列表项，可使用的方法是（ A ）。
A、AddItem B、Remove C、Clear D、Add
61当拖动滚动条中的滚动块时，将触发的滚动条的事件是(BC)
A.Move
B.Change
C.Scroll
D.SetFocus
62．滚动条控件的LargeChange属性所设置的是（B ）
A．滚动条中滚动块的最大移动范围
B．单击滚动条和滚动箭头之间的区域时，滚动条控件value属性值的改变量
C．滚动条中滚动块的最大移动位置
D． 滚动条控件无该属性
63用户在组合框中输入或选择的数据可以通过一个属性获得，这个属性是(C)
A.List
B.ListIndex
C.Text
D.ListCount
64．设置一个单选按钮（OptionButton）所代表选项的选中状态，应当在属性窗口中改变的属性是（D ）
A．Caption B．Name C．Text D．Value
65.在窗体(Name属性为Form1)上画两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(Name属性为Command1)，然后编写如下两个事件过程：
Private Sub Command1_Click()
a = Text1.Text + Text2.Text
Print a
End Sub
Private Sub Form_Load()
Text 1.Text = ""
Text2.Text = ""
End Sub
程序运行后，在第一个文本框(Text1)和第二个文本框(Text2)中分别输入123和321，然后单击命令按钮，则输出结果为(C)
A.444
B.321123
C.123321
D.132231
65． 运行下面程序后输出的结果是（B）
Private Sub Form_Click()
K = 4
If K <= 3 Then n = 5
If K <= 4 Then n = 4
If K <= 5 Then n = 3
Print n
End Sub
A． 无输
出 B． 3
C． 4 D． 5
66． 运行下面程序后输出的结果是（B）
Private Sub Form_Click()
score = Int(Rnd * 10) + 80
Select Case score
Case Is < 60: PingYu = "未通过"
Case 60 To 69: PingYu = "合格"
Case 70 To 79: PingYu = "中"
Case 80 To 89: PingYu = "良"
Case Else: PingYu = "优"
End Select
Print PingYu
End Sub
A． 优 B． 良
C． 中 D． 合格
67．有如下程序：
Private Sub Form_Click()
A = 3
If A <= 3 Then
Print 3;
End If
If A <= 4 Then
Print 4;
End If
If A <= 5 Then
Print 5;
End If
If A <= 6 Then
Print 6;
End If
Print
End Sub
运行后输出的结果是3 4 5 6
68．窗体上有两个文本框Text1和Text2，下面程序的功能是：在文本框Text1中输入一个0~6的整数，然后单击窗体；在文本框Text2中用英文显示是星期几。请将程序补充完整。
注意：不得增行或删行，也不得更改程序的结构！
Private Sub Form_Click()
Dim Var%
Var =Text1.Text
Select Case Var
Case 0
Text2.Text = "Sunday"
Case 1
Text2.Text = "Monday"
Case 2
Text2.Text = "Tuesday"
Case 3
Text2.Text = "Wednesday"
Case 4
Text2.Text = "Thursday"
Case 5
Text2.Text = "Friday"
Case 6
Text2.Text = "Saturday"
Case Else
Text2.Text = "Must be 0to 6"
___End Select_______________
End Sub
69．以下叙述正确的是（）
A．Select Case 语句中的测试表达式可以是任何形式的表达式
B．Select Case 语句的测试表达式只能是数值表达式或字符表达式
C．在执行Select Case 语句时，所有Case 子句均按出现的次序被顺序执行
D．如下Select Case 语句的Case表达式是错误的
Select Case
Case 1 TO 10
……
End Select
答案：A
70．窗体上画一个命令按钮，其名称为command1，然后编写如下事件过程：
Private Sub command1_click()
For I = 1 To 4
If I = 1 Then x = I
If I <= 4 Then x = x + 1
Print x;
Next I
End Sub
程序运行后，单击命令按钮，其输出结果为（）
A．1 2 3 4 B．2 3 4 5 C．2 3 4 4 D．3 4 5 6
答案：B
71．有如下程序。其输出结果为（）
Private Sub command1_click()
x = Sqr(2) \ 2 + Sgn(2) \ 2 + Rnd(2) \ 2
x = Sqr(3) \ 3 + Sgn(3) \ 3 + Rnd(3) \ 3
If x > y Then
Print "x>y"
ElseIf x = y Then
Print "x=y"
Else
Print "x
End Sub
A．x>y B．x=y C．x
72．有如下程序：
Private Sub Form_Click()
A = 0
For j = 1 To 20 Step 2
A = A + j \ 5
Next j
Print A
End Sub
运行后，
输出的结果是(B)
A． 12 B． 16
C． 40 D． 100
73．有一个分数序列：
2/1 3/2 5/3 8/5 13/8
求这个序列前20项的和。请将程序补充完整。
注意：不得增行或删行，也不得更改程序的结构。
Private Sub form_click()
Dim s As Single
Dim t1 As Integer, t2 As Integer, t As Integer
Dim I As Integer
s = 0
t1 = 2
t2 = 1
I = 0
DO while _______ I<20
S=_____________ s+t1/t2
t = t1 + t2
_____________ t2=t1
_____________ t1=t
I = I + 1
Print I; t1; t2; s
Loop
Print s
End Sub
74．有如下程序：
Private Sub Form_click()
A = 0
For j = 1 To 10
A = A + j \ 2 + j Mod 3
Next j
Print A
End Sub
运行后，输出的结果是___D______
A． 20 B．25
C． 30 D． 35
75．有如下程序：
Private Sub Form_clik()
Dim s%, i%
s = 0
i = 100
Do While i <= 120
If (i \ 3) * 3 = i Then
s = s + 1
i = i + 1
End If
i = i + 1
Loop
Print s
End Sub
运行后输出的结果是____A____
A． 7 B． 9
C． 11 D． 13
76．有如下程序：
Private Sub form_click()
s = 0
i = 1
Do While i <= 100
If i Mod 10 <> 0 Then
s = s + i
i = i + 1
Else
i = i + 1
End If
Loop
Print s
End Sub运行后输出的结果是____D_____
A． 4050 B． 5050
C． 4000 D． 4500
77．有如下程序：
Private Sub form_click()
A$ = "54321"
b$ = "abcde"
For j = 1 To 5
Print Mid$(b$, j, 1) + Mid$(A$, 6 - j, 1);
Next j
Print
End Sub运行后输出的结果是_____A______
A． a1b2c3d4e5 B． a5b4c3d2e1
C． 5a4b3c2d1e D． e1d2c3b4a5
78.定义数组 Array(1 to 5,5) 后，下列哪一个数组元素不存在（ C ）。
A、 Array(1,1) B、 Array(1,0) C、 Arry(0,1) D、 Array(5,5)
79.当运行程序时，系统会自动执行启动窗体的（ A ）事件过程。
A、Load B、Click C、UnLoad D、GotFocus
80.如果想让文本框中的内容在运行时不能编辑，需将文本框的( A )属性设置为True。
A．Locked B．MultiLine C．TabStop D．Visible
81. 下列VB程序语句正确的是(D).
A. If A ≥B Then T=A: A=B: B=T B. If A ≥B Then T=A; A=B; B=T
C. If A>=B Then T=A A=B B=T D. If A>=B Then T=A: A=B: B=T
二、填空题
1.在VB6集成开发环境中,可以编辑程序代码,但不能修改用户界面的工作状态是(中断模式).
2.控件和窗体的Name属性只能通过 (属性窗口) 设置,不能在 ( 运行) 期间设置.
3.VB的数值型数据有(整
型),(实型),(货币型).
4.当程序运行后用鼠标双击对象时触发的事件是__DblClick()____
5.当程序运行后用鼠标单击对象时触发的事件是__Click()______.
6 当程序运行后Tab键使一个对象获得焦点时触发的事件是__Gotfocus()
7.在Visual Basic中,字符串常量要用( 双引号) 括起来,日期/时间型常量要用( #) 括起来.
8.为了使标签能自动调整大小以显示全部文本内容,应把标签的 ( AutoSize ) 属性设置为True.
9.要想在文本框中显示垂直滚动条,必须把 ( ScrollBars) 属性设置为2,同时还应把 ( MultiLine) 属性设置为 True.
10.假定有一个文本框,其名称为Text1,为了使该文本框具有焦点,应执行的语句是 ( Text1.SetFocus) .
11.VB中若要产生一消息框,可用__MsgBox___函数来实现.
12.为了能自动放大或缩小图像框中的图形以与图像框的大小相适应,必须把该图像框的(Stretch)属性设置为 True.
13.窗体,图片框或图像框中的图形通过对象的( Picture) 属性设置
14.VB的"计时器"控件用于_计时___,时间间隔以___毫秒____为单位.
15.计时器事件之间的间隔通过 ( Interval) 属性设置.
16.VB的"滚动条"控件分为两种(水平滚动条)和(垂直滚动条).它们都有最小值和最大值.其取值范围是(-32768-32767).
17.组合框有3种不同的类型,这3种类型是下拉式组合框 ,简单组合框 ,下拉式列表框 ,分别通过把 Style 属性设置为0 ,1 ,2来实现.
18.在3种不同类型的组合框中,只能选择而不能输入数据的组合框是下拉式列表框
19.由Array函数建立的数组赋值时，数组必须是（动态可变类型），简单变量必须是 Variant 类型.
20.在VB中若要让某对对象获取焦点,则可通过_SetFocus_方法来实现.
21.在模块文件中的声明部分用__Dim___或_Private_定义的变量为模块级变量.
22.For循环中,当步长大于零时,初始值_小于等于__终止值,当步长小于零时,初始值_大于等于__终止值,不指明步长时,默认步长是__1___
23.VB中通用过程的参数传送有__按值传递___和_按地址传递___.
24.在过程定义中出现的变量名叫做 (形参),而在调用过程时传送给过程的 常数 ,变量 ,表达式 或 数组 叫做 (实参)
25. 下图为运行后的VB程序
（1）当按下[显示]按钮时，在文本框中显示“欢迎使用Visual Basic 6.0”， 按下[清屏]按钮时清除文本框中显示的内容，按下[退出]按钮时退出程序。请补全相对应的单击事件代码。
Private Sub Command1_Click( ) '按下[显示]按钮
______ Text1.text=”欢迎使用 Visual Basic 6.0”___________ （1）
End Sub
Private Sub Command2_Click( ) '按下[清屏]按钮
_____ Text1.text=””_____________ （2）
End Sub
Private Sub Command3_Clic
k( ) '按下[退出]按钮
___End_______ （3）
End Sub
（2）当选择字体外观和字体名称时，触发下面的事件，请补全代码。
Private Sub Check1_Click( ) '字体外观的多项选择
If Check1.Value = 1 Then
Text1.FontBold = ___True______ （4）'“粗体”被选中
Else
Text1.FontBold = False
End If
End Sub
Private Sub Check2_Click( )
If Check2.Value = ____1____ Then （5）'“斜体”被选中
Text1.FontItalic = True
____Else_______ （6）
Text1. __ Text1.FontItalic __ = False （7）
End If
End Sub
Private Sub Check3_Click( )
If Check3.Value = 1 Then
Text1._FontUnderline _ = True （8）'“下划线”被选中
Else
Text1.FontUnderline = False
End If
End Sub
Private Sub Option1_Click( ) '字体名称选宋体
Text1.FontName = "宋体"
End Sub
Private Sub Option2_Click( )
Text1.FontName = "__隶书____" （9）'字体名称选隶书
End Sub
Private Sub Option3_Click( )
___ Text1.FontName ____ = “黑体” （10）'字体名称选黑体
End Sub
（1） text1.text=”欢迎使用 Visual Basic 6.0”
（2） text1.text=””
（3） end
（4） true
（5） 1
（6） Else
（7） FontItalic
（8） FontUnderline
（9） 隶书
（10） Text1.FontName