大学VB期末考试试题
年度考核登记表范文-生物工程专业排名
VB期末考试试题 A卷
一、 填空题
1、VB程序设计的主要特点是 可视化设计 和 事件编程 。
2、在VB中，最主要的两种对象是 窗体（form） 和 控件 。
3、工程是构成应用程序文件的 集合 。
4、方法是VB提供的一种
特殊子程序 ，用来完成一定的操作。
5、浮点类型数据包括单精度型和___双精度__数据。
6、事件是窗体或控件对象识别的__动作____。
7、可用窗体的__print_
方法在窗体中显示文字。
8、
复选框控件Value属性指示复选框处于____选中___或禁止状态(暗淡的)中的某一种。
9、在VB中，修改窗体的 高度（height）和 宽度（width）
属性值，可改变窗体的大小。
10、双击工具箱中的控件图标，可在窗体的 中央
出现一个尺寸为缺省值的控件。
11、在MsgBox函数中，如果缺省title参数，则使用
工程1 作为消息框的标题。
12、设x＝34.58，语句Print
Format(x,“000.0”)的输出结果是 34.6 。
13、在VB
中，数值型变量的初值为 0 ，Varant型变量的初值为 空 ，布尔型变量的初值
为
FALSE 。
14、设置窗体的 picture 属性，可在窗体上显示图片。
15、程序运行工程中，清除MP图片框中的图片应使用语句 cls 。
二、选择题
1、菜单控件只包括一个事件，即 C ，当用鼠标单击或键盘选中后按“回车”
键时触发该
事件，除分隔条以外的所有菜单控件都能识别该事件。
A、GotFocus
B、Load C、Click D、KeyDown
2、滚动条控件(如图所示)的Max属性所设置的是 A 。
A、滚动框处于最右位置时，一个滚动条位置的Value属性最大设置值
B、
单击滚动条和滚动箭头之间的区域时，滚动条中滚动块的最大移动量
C、单击滚动条的箭头区域时，滚动条中滚动块的最大移动量
D、滚动条控件无该属性
3、SQL 语句 Select * Form student 中的 *表示 B
。
A、所有记录 B、所有字段 C、所有表 D、都不对
4、以下选项中，不属于标签的属性是 C 。
A、Enabled
B、Caption C、Default D、Font
5、要求改命令按钮显示的文本，应当在属性窗口中改变的属性是 A 。
A、Caption B、Name C、Text
D、Label
6、设置一个单选按钮(OptionButton)所代表选项的选中状态，应当在
属性窗口中改变的属性
是 D 。
A、Caption
B、Name C、Text D、Value
7、允许在菜单项的左边设置打勾标记，下面哪种论述是正确的？ D 。
A、在标题项中输入&，然后打勾 B、在索引项中打勾
C、在有效项中打勾 D、在复选项中打勾
8、当执行以下过程时，在窗体上将显示 A 。
Private Sub
Command1_Click( )
Print
Print
Print
End Sub
A、 VBHello!VB
B、VB C、 VB
D、 VB
Hello!VB
Hello! VB Hello!
VB
9、语句Print 的结果为 B 。
A、The answer
is 204-2 B、The answer is 3 C、The answer
is 、非法语句
10、下列哪个控件是容器控件 B 。
A、Image
B、Picture C、ComboBox D、FileListBox
11、若要将窗体从内存中卸载出去，其实现的方法是 D 。
12、以下选项中，不是 Visual Basic控件的是 A 。
A.窗体
B.定时器 C.单选框 D.命令按钮
13、双击窗体中的对象后，Visual Basic将显示的窗口是 A 。
A.代码窗口 B．工具箱 C．项目（工程）窗口 D．属性窗口
14、可决定窗体的左上角是否有控制菜单的属性是
A 。 lBox
ton ton Style
15、设有如下语句：
Strl＝InputBox（输人，，练习）
从键盘上输人字符 “示例”后，Strl的值是
D 。
A．“输入” B．“ ” C．“练习”
D．“示例”
16、窗体Form1的Name属性是Frm1,它的单击事件过程名是 C 。
A. Form1_Click _Click C. Frm1_Click D.
Me_Click
17、窗体的hide属性的含义是 A 。
A.隐藏 B.展现 C.装入
D.卸载
18、若要设置定时器控件的定时时间，需设置的属性是 C 。
A．Enabled B．Value C．Interval D．Text
19、能够改变复选框中背景颜色的属性是 C 。
A．Value
B．FontColor C．BackColor D．Font
20、窗体能响应的事件是 B 。
A．ActiveForm
B．Load C．Drive D．Change
三、判断题(判断下列正确与否，正确的打√，错误的打ⅹ。)
1、三种方式的组合框都允许用户输入哪些不在列表框中的选项。X
2、图象框中的Stretch属性为true时，其作用是图形自动调整大小以适应图象控件。X
3、在菜单编辑器中使用“索引”时，可有一组菜单项具有相同的“名字”。X
4、通过改变属性窗口中的Name属性，来改变窗体的标题。
5、创建VB应用程序的三个主要步骤是：(1)创建应用程序界面(2)设置控件(3)编写代码。X
6、变量是指在程序运行过程中其值可以改变的那些量，而值不能改变的是常量。
7、已知
P＝MsgBox(“Howareyou?，VbYesNo+VbQuestion，“Hello!”)，
变量P是Integer
数据类型。
8、工程文件的扩展名是 .vbg 。
9、VB允许设计和使用用户自己设计的控件。
10、OptionButton控件没有DblCliek事件。X
11、同一条记录中的各数据具有相同的类型。
12、使用Data控件可以直接显示数据库中的数据。X
13、ImageList
是一个图像容器控件，可用作工具栏的图像库。
14、当用户单击工具栏按钮时，将触发工具栏按钮的ButtonClick事件。
15
、在VB的工程资源管理器中，如果从工程中移除已经保存过的文件，该文件仍然被物理
删除（真正删除
）。X
16、如果列表框的ListConut的属性为10，则列表框最后一项的ListInd
ex值为10。X
17、要是某个命令按钮不起作用，应将该按钮的Enabeld属性设置为False。
18、使用数组定义语句：Dim D$$（10），则数组D中各元素的值为空。X
19、如果在一行中输入多条语句，各语句之间用使用 ；分隔。X
20、在代码窗口中输
入某行代码并按回车键之后，如果代码变成红色，说明该行代码有语法
错误。
四、读程序题，写出程序运行结果
1、 Private Sub
Form_Click()
Static SUM As Integer
I = 1
Do While I<=10
SUM = SUM + I
I = I + 1
Loop
Print SUM
End Sub
运行程序，第一次单击窗体： 55
第二次单击窗体： 110
2、 Private Sub
Form_Click()
Print
Print
For I = 15 To 16
Print I;
For j = 2 To 6 Step 3
Print Tab(3 * j); j * I;
Next j
Print
Next I
End Sub
程序运行结果： * 2 5
15 30 75
16 32 80
五、编程题
（一）窗体中有图片框(Picture1)和计时器(Timer1)两
个控件，运行程序时，将图片加载到图
片框中，然后图片框以每2秒钟一次的速度向窗体的右下脚移动，
每次向左、向右移动
100twip（20分之一像素）。请填空：
Private Sub Form_load( )
e =loadPicture(“c:”)
Timer1 .Interval=200
End Sub
Private Sub Timer1_Timer( )
Static x , y As Integer
x=x+100
y=y+100
x , y
End Sub
（二）有一个单
击按钮过程，其作用是产生50个60～100的随机数，统计其中被6整除余
2的个数，并将这些数输
出。请填空：
Private Sub Command1_Click()
Dim x As Integer, N%
Dim Counter As Integer
randomize Timer
For N=1
To 50
X=Rnd()* rnd()*41+60
If x Mod 6 =2 Then
Print x
Counter=
Counter+1
End if
Next N
Print Counter
End Sub
大学VB期末考试试题 B卷
一、 填空题
1.ＶＢ中若要产生一消息框，可用（1）MsgBox函数来实现。
2．常量是指在程序运行过程中，（2）其值不能改变的的量。
3．整数类型数据分别包括整型和 （3）长整型 数据。
4、在ＶＢ集成开发环境中，运
行应用程序的方法有三种：一是（4）(单击“运行”菜单下
的启动；二是(5) 单击工具栏上的启动
按钮_；三是（6）按F5键
5、在ＶＢ中若要让某对对象获取焦点，则可通过（7）
Setfocus 方法来实现。
6．列表框（ListBox控件）显示 （8） 项目列表
，用户可从中选择一个或多个项目。
7．框架（Frame控件）可以用来 (9)
对其它控件 进行分组，以便于用户识别，主要用
于为单选按钮分组。
8、在ＶＢ中，用来描述对象外部特征的量称之为对象的（10）属性。
9、为使某窗口中的命令按钮“取消(C)”具有如下特性：按“Alt＋C”键或按 “ESC”
键，
均可代替用鼠标单击该按钮的操作，应设置该按钮的Caption属性值为
（11）取消(&C)，
并且设置其（12） Cancel属性值为（13）True 。
10、在过程内用（14）Static
声明的变量为静态变量，在执行一个过程结束时，过程中所用
到的
Static变量的值会保留，下次再调用此过程时，变量的初值是上次调用结束时被保留的
值。
11、在模块文件中的声明部分用Global或（15）public关键字声明的变量为全局变量。
12、在模块文件中的声明部分用（16）Dim或（17）private定义的变量为模块级变量。
13．计时器控件通过定期激活Timer事件，使得Timer控件 （18） 可以每隔一段时间
就执
行一次Timer事件中的代码。
14．要获得滚动条的当前位置，可以访问通过
（19） value 属性来实现。
15．关闭正在运行的VB窗口将自动触发的事件是 （20） Unload。
二、选择题
1．工程文件的扩展名是（ B ）。
A．vbg
2.在以下窗体中没有采用的控件是（ B ）。
A.文本框
B 垂直滚动条 C．框架 D 命令按钮
3．滚动条控件（如图所示）的Largechange属性所设置的是（ A ）
A． 单击滚动条和滚动箭头之间的区域时，滚动条控件Value属性值的改变量
B． 滚动条中滚动块的最大移动位置 C． 滚动条中滚动块的最大移动范围 D．
滚动条控
件无该属性
4、用于从字符串左边截取字符的函数是（ C ）
Ａ、Ltrim( ) Ｂ、Trim( ) Ｃ、Left( ) Ｄ、Instr( )
5、可获得当前系统日期的函数是 （ A ）
Ａ、Date( ) Ｂ、Time(
) Ｃ、IsDate( ) Ｄ、Year( )
6、退出For循环可使用的语句为（
A ）
Ａ、Exit For Ｂ、Exit Do Ｃ、End For Ｄ、End
Do
7、窗体的标题栏显示内容由窗体对象的（D ）属性决定。
Ａ、BackColor Ｂ、BackStyle Ｃ、Text Ｄ、Caption <
br>8、程序运行时，若要通过回车键调用某命令按钮的Click事件过程，则可设置该命令按钮
的
（ C ）属性值为True来实现。
Ａ、Value Ｂ、Enabled
Ｃ、Default Ｄ、Cancel
9、当用户在窗体上单击鼠标时，不会触发的事件是（ D
）
Ａ、Click Ｂ、MouseDown Ｃ、MouseUp
Ｄ、DblClick
10、在设计阶段，当双击窗体上的某个控件时，所打开的窗口是 （ C
）
Ａ、工程资源管理器窗口 Ｂ、工具箱窗口 Ｃ、代码窗口 Ｄ、属性窗口
11、设a=“Visual Basic”，下面使b=“Visual”的语句是 （ D ）
Ａ、b=Left(a,8,12) Ｂ、b=Mid(a,8,5)
C、b=Rigth(a,6) D、b=Left(a,6)
12、若要使命令按钮不可用，则可设置其（ C ）属性为False来实现。
Ａ、Value Ｂ、Cancel Ｃ、Enabled Ｄ、Default
13．允许在菜单项的左边设置打勾标记，下面哪种论述是正确的？（ C ）
A．在标题项中输入&然后打勾 B 在索引项中输入“√” C．在复选项中输入“√”
D 在
有效项中输入“√”
14．当执行以下过程时，在窗体上将显示
（ B ）。
Private Sub Commandl_Click( ) Print “VB”
Print
“Hello!”； Print “VB” End Sub
A.
VB Hello! VB B. VB C. VB
D. VB
Hello!VB
Hello! VB Hello!
VB
15、以下不属于键盘事件的是（ C ）
Ａ、KeyDown
Ｂ、KeyUp Ｃ、Unload Ｄ、KeyPress
16、以下叙述中正确的是（ A
）
A、窗体的Name属性指定窗体的名称，用来标识一个窗体
B、窗体的Name属性的值是显
示在窗体标题栏中的文本
C、可以在运行期间改变对象的Name属性的值 D、对象的Name
属性值可以为空
17、图像框或图片框中显示的图形文件，由它们的（ B ）属性值决定。
Ａ、DownPicture Ｂ、Picture Ｃ、Image Ｄ、Icon
18、文本框的（ A ）属性用于设置或返回文本框中的文本内容。
Ａ、Text
Ｂ、(名称) Ｃ、Caption Ｄ、Name
19、复选框或单选钮的当前状态可通过（
B ）属性来返回或设置。
Ａ、Checked Ｂ、Value Ｃ、Selected
Ｄ、Caption
20、VB提供（ C ）属性用于控制对象是否可用。
Ａ、Default Ｂ、Cancel Ｃ、Enabled Ｄ、Visible
三、判断题(判断下列正确与否，正确的打√，错误的打ⅹ。)
１、设置属性的语句格式为：“对象名．属性名＝属性值”． （ ）
２、若用户在键盘上按下一个键，则会产生一个单击事件（ ）．
３、ＶＢ的赋值语句只能给变量赋值． （ ）
４、在ＶＢ中，字符型常量应使用＂＃＂号将其括起来．（ ）
５、窗体大小只能通过鼠标拖动窗体边框来设置．（ ）
6．在定义了一个函数后，可
以象调用任何一个VB内部函数一样使用它，即可以在任何表
达式、语句或函数中引用它。（
）
7．Visual Basic表达式为：1284+COS（28 ）
8．Visual Basic表达式为：3*cos (c+d)^2或3*cos
(c+d)*cos (c+d)( )
程序语言两个基本特点是：结构化和事件驱动编程。（ ）
10．工程资源管理器用于查看和管理工程类的文件，不能删除文件。（ ）
四、读程序题，写出程序运行结果
e Sub Form_Click( )
Static Sum As Integer
For I=1 To 10
Sum= Sum+I
Next I
Print Sum
End Sub 55
e Sub Form_Click ( )
Print ；Tab(9);3,Tab(18);6
Print
For I=15 to 16
Print I;
For j=3 To
6 Step 3
Print Tab(3*j);j*I;
Next j
Print
Next I
End Sub
e
Function Fac(n As Integer)As Integer
Dim f
As Integer
f=f+n
Fac =f
End
Function
Private Sub Form_Click( )
Dim I As Integer
For I=1 To 5
Print Σ；I &
Next I
End Sub
e
Sub Command1_Click( )
=努力
End Sub
Private Sub Command2_Click( )
=学习
End Sub
单击Command2按钮，又单击Command1按钮，在文本框中显示什么？
五、编程题
1、在窗体上有一个文本框控件，名称为TxtTime；一个计时器控件
，名称为Timer1。要求
每一秒钟在文本框中显示一次当前的时间。程序如下，请在下划线上填入恰
当的内容。
Private Sub Timer1_ _____()
=_____
End Sub
2、在窗体上画一个命令按钮，名称为Command1。然后编写如下程序：
Private Sub Command1_Click()
For
a=1 To 4
For b=0 To a
Print Chr(65+a)
Next b
Print
Next a
End Sub
程序运行后，如果单击命令按钮，则在窗体上显示的内容是什么？
3、在窗体上画一个文本框和一个图片框，然后编写如下两个事件过程：
Private Sub Form_Load()
=”计算机”
End Sub
Private Sub Text1_Change()
“等级考试”
End Sub
程序运行后，在文本框中显示的内容是
而在图片框中显示的内容是
参考答案：
一、
填空题
（１）MsgBox函数 （２）其值不能改变 （３）长整型
（４）单击“运行”菜单下的启
动 （５）单击工具栏上的启动按钮 （６）按Ｆ5键
（７）Setfocus
（８）项目列表 （９）对其它控件 （10）属性
（11）取消(&C) （12）Cancel
(13) True
（14）Static （15）Public （16）Dim （17）private
（18）可以每隔一个时间段
（19）Value （20）Unload
二、选择题
1.B2.B3.A4.A5.A6.A7.D8. C9.D10.C11.D12.
C13. C 14. B 15.C 16. A 17. B 18. A 19. B 20 .
C
三、判断题
1．√ 2. 3. √ 4. X
在ＶＢ中，字符型常量应使用＂＂号将其括起来． 5. X 6. 7. X
正确
的形式是：1284+COS（28*3.14159180） 8. √9. X
VB的两个基本特点是：可视化设计和
事件驱动编程。 10. X
四、读程序题，写出程序运行结果
1． 结果为：55
2． 结果为：*
3 6
15 45
90
16 48 96
3．
结果为：
Σ1=1
Σ2=2
Σ3=3
Σ4=4
Σ5=5
4. 结果为：努力
五、综合题 1． Timer time
2． B BC C C
D D D D E E E E E
3. 在文本框中显示的内容是
计算机
而在图片框中显示的内容是 等级考试
一、单选题
1. 计算机程序的三种结构是顺序结构、 B
、选择结构。
A．模块结构 B．循环结构 C．多重循环结构
D．IF块结构
2. B
是指用户操作引发或由系统引发，能被对象所识别并做出响应的动作。
A．任务 B．事件
C．控件 D．过程
3. 在VB系统中，一个对象内部的函数或过程，称为对象的 C 。
A．代码 B．属性 C．方法 D．事件
4.
在VB中，窗口坐标系的原点在 A ，x轴向右为正，y轴向下为正。
A．窗口左上角
B．窗口右下角 C．窗口正中间 D．窗口右上角
5.
在VB应用程序设计中，通常应对 D 编写程序代码。
A．所有对象
B．窗体
C．Timer D．有事件的对象
6.
在面向对象程序设计中， D 用来描述对象的特征信息。
A．事件 B．方法
C．代码 D．属性
7. 在VB编程中，如果需要返回鼠标的当前位置，应该使用 C
事件。
A．Click B．Change C．MouseDown
D．KeyPress
8.
在VB应用程序设计中，如果想让Timer控件每秒钟响应一次，应该将其Inerval属性设
置为
D 。
A．1 B．60 C．100 D．1000
9.
下列过程中， A 是程序开始运行时，窗体一加载就运行的程序
段。 A．Form_Load
B．Form_Click C．Form_MouseDown D．Form_KeyPress
10. 正确的Visual Basic表达式是 B 。
A．(-b+b^2-4ac)2a
B．(-b+sqr(b^2-4*a*c))(2*a)
C．(-b+sqr(b^2-4ac))(2a) D．(-b+sqr(b^2-4ac))2a
11. 在VB系统中， A 代表内存单元，是命了名的存储空间。
A．变量
B．常量 C．函数 D．字节
12. B
语句用于声明变量，并定义变量的数据类型，给变量分配存储空间。
A．Sub B．Dim
C．Call D．End
13. 在VB程序设计语言中， C
语句的功能是使系统产生的随机数真正随机化。
A．Rnd B．Circle
C．Randomize D．Dim
14. 关系表达式的值为 C 。
A． 数值 B．字符串 C．逻辑值 D．逻辑表达式
15.
下列控件中“单选按钮”是 C 。
A. Label B. TextBox C.
OptionButton D. CommandButton
16.若改变一文本框中所显示文本的颜色，需改变此文本框的哪个属性?B
A.
Caption B. Forecolor C. Backcolor D. Text
17. 在VB环境中，如果设计时将命令按钮的 C
属性设置为False，则运行时该按钮从窗体上
消失。
A．Default
B．Enabled C．Visible D．DisabledPicture
18、在VB环境中，修改对象的BackColor的属性值，则对象的 B 将发生改变。
A. 文字颜色 B. 背景色 C. 前景色 D. 边框颜色
19、.
用VB工具箱中的哪个控件可以建立命令控制按钮 B 。
20、在VB应用程序中，修改控制代码，使Command1按钮显示“end”，正确的设置是
B 。
A. =“end” B. n=“end” C. ＝
end
D. n=end
21、在VB程序中，当变量H的值等于8时，执行“IF H>8 then
R=10 else R=20”语句后，
R值为 C 。
A．5 B．10
C．20 D．10或20
22．Dim a As
Integer，当a=123: b=Str(a)，则 C
A．a和b均是字符型变量
B．a是字符型变量，b是数值型变量 C．a是数值型变量，b
是字符型变量
D．a和b均是数值型变量
23、用循环结构解决问题时，如果循环的次数已知，通常采用
；当循环的次数未知，
需要靠判断条件是否成立来决定循环的执行和退出时，通常采用
。 A
A．For„Next循环、Do„Loop循环
B．Do„Loop循环、For„Next循环 C．Do„Next循环、
For„Loop循环
24、 A 函数的作用是建立一个弹出窗口。
A．MsgBox()
B．InputBox() C．RGB() D．Print
25．A=5，B=8，则（B-A）*Rnd+A的结果是介于__C___之间的实数。
A. [5，8] B.（5，8） C.[5，8） D.（3，5）
26． For i=1 to 10 Step 2
„„
‘循环体中循环变量的值保持不变。 Next i
在程序运行时循环体将被执行__C____几次。
A.3次 B.4次
C.5次 D.6次
27．执行后将会清空文本框Text1中文本的语句是___C__。
A.
B. t=
28．在机场托运行李，每人免费25千克，超过25千克不到50千克，则超出部分按每
千克
10元收费，如果超过50千克，则超过部分按每千克20元收费。这种计费程序最适合用到
的程序结构是 C A.循环 B.赋值 C.分支 D. 顺序
29．下面是一段循环结构的程序段： D
s=0
x=2
Do
s=s+1
x=x+3
Loop Until (x>12)
该程序段运行后，循环体的执行次数是 A.1 B.2 C.3
D. 4
30. 算法是 C 。
A．计算方法 B．计算公式
C．对解决问题的方法和步骤的描述
31．下列句子中， D 不是赋值语句。
A．A=”123” +”456” B．=”你好！”
C．r=Val() D．x+1=y
32． D
函数的作用是建立一个输入对话框。
A．MsgBox() B．Print
C．RGB() D．InputBox()
33．下列数学表达式写成VB表达式，正确的是： B
A．数学表达式0＜x≤10对应的VB表达式为x＞0 or x<=10
B．数学表达式x2-（x+2）+5对应的VB表达式为 x^2- (x+2) +5
C．数学表达式b2-4ac≥0对应的VB表达式为b^2-4ac>=0
D．
数学表达式 对应的VB表达式为Sqr(x2-1)
34． B 的思想是依据题目的部分条件确
定答案的大致范围，在此范围内不重复、不遗漏地
列出所有可能情况，从中找出满足条件
的结果。
A．求最值法 B．穷举法 C．累加法 D．递归法
二、多选题
1． 在VB应用程序设计中，以下说法正确的是： ABC
A．对象包括窗体和控件
B．属性用来描述和确定对象的特征信息
C．事件是指用户操作引发或由系统引发，能被对象所识别并做出响应的动作
D．方法是指程序设计的方法
2．在VB应用程序设计中，以下说法正确的是： AB
A．要显示不想让用户修改的文本时，应该使用Label控件
B．要显示可以让用户编辑的文本时，应该使用TextBox控件
C．要显示图片，只能使用PictureBox控件
D．要想画图形，只能在窗体中实现
3．下列字符串中，不能作为变量名使用的有： AD
A．End
B．a1 C．xx D．Sub
4．在VB应用程序设计中，以下说法正确的是： BCD
A．Abs(
)是转换英文大小写的函数 B．MsgBox( ) 是消息函数 C．RGB( )是颜色函数
D．Sqr( )是求平方根函数
5．VB简单应用程序的设计步骤为： ABCD
A．设计图形用户界面 B．设置对象属性
C．编写对象事件过程及通用过程代码
D．运行调试程序并保存工程
三、读程序运行结果
1.
下列程序运行后，变量s= C 。
Dim a,b,c,s As
Integer
a=9
b=41
c=2*(a+b)
s=a*c
A．100 B．50 C．900 D．300
2. 下列程序运行后，变量x= D 。
Dim n,x
As Integer
n=5
Private Sub
Form_Load()
x=1
For i=1 To n
x=x*i
Next i
End Sub
A．5 B．15 C．24 D．120
3. 阅读以下程序
Private Sub
Command1_Click()
Print “* * Hi ,”
Print
“how are you * *”
End Sub
当程序执行时，单击command1后，输出结果是 * * Hi ,
how are you * *
4. 阅读以下程序段
Private Sub
Command1_Click()
For R =100 to 520 step 100
b1 = 255 * Rnd( )
b2 = 255 * Rnd( )
b3 = 255 * Rnd( )
(1000,1000),
R,RGB(b1,b2,b3)
Next R
End Sub
当程序执
行时，单击command1后，将在（何处）__1000，1000___显示___5___个颜色__<
br>不同__（填相同或不同）的同心圆。
5. 以下是求任意圆面积的程序
Private Sub Command1_Click()
R =
Val(InputBox(“请输入圆的半径”,“数据输入”))
print
“S=”；3.14*R*R
End Sub
在程序执行过程中单击command1
时，出现了右图所示的窗口，请根据如图所示信息，在空
白处补充对应的程序语句。
6.阅读程序代码并填空。
Private Sub Command1_Click()
Dim a, b As Integer
a = InputBox(输入
b
= InputBox(输入
If a > b Then
Print a
Else: Print b
End If
End Sub
（1）程序的基本结构包括顺序结构、分支结构和循环结构，本程序主要使用的是___分支_
结
构。
（2）本程序的主要作用是__打印a,b两个数中的最大数___。
（3）假如输入的两个数分别是 7和 9，程序执行后，输出的结果是___9_____。
7．请填写以下流程图
编写一元二次方程ax2+bx+c=0的求解程序，要求能够判断
方程是否有根，如果没有根则给
出相应的提示信息。
直接用的4个command控件
Dim a As Integer, b As Integer, c As
Integer
Private Sub Command1_Click()
a =
InputBox(请输入二次项系数输入
End Sub
Private Sub
Command2_Click()
b =
InputBox(请输入一次项系数输入
End Sub
Private Sub
Command3_Click()
c = InputBox(请输入常数项输入
End
Sub
Private Sub Command4_Click()
If b ^ 2
- 4 * a * c >= 0 Then
If b ^ 2 - 4 * a * c
> 0 Then
X1 = (-b + Sqr(b ^ 2 - 4 * a
* c)) (2 * a)
X2 = (-b - Sqr(b ^ 2 -
4 * a * c)) (2 * a)
MsgBox
End If
If b ^ 2 - 4 * a * c = 0 Then
X1 = (-b + Sqr(b ^ 2 - 4 * a * c)) (2 * a)
MsgBox
End If
Else
d = (-b (2
* a))
s = Sqr(-b ^ 2 + 4 * a * c)
MsgBox
& Format(d,
End If
End
Sub
VB期末考试试题
A卷
一、 填空题
1、VB程序设计的主要特点是 可视化设计
和 事件编程 。
2、在VB中，最主要的两种对象是 窗体（form）
和 控件 。
3、工程是构成应用程序文件的 集合 。
4、方法是VB提供的一种 特殊子程序 ，用来完成一定的操作。
5、浮点类型数据包括单精度型和___双精度__数据。
6、事件是窗体或控件对象识别的__动作____。
7、可用窗体的__print_
方法在窗体中显示文字。
8、
复选框控件Value属性指示复选框处于____选中___或禁止状态(暗淡的)中的某一种。
9、在VB中，修改窗体的 高度（height）和 宽度（width）
属性值，可改变窗体的大小。
10、双击工具箱中的控件图标，可在窗体的 中央
出现一个尺寸为缺省值的控件。
11、在MsgBox函数中，如果缺省title参数，则使用
工程1 作为消息框的标题。
12、设x＝34.58，语句Print
Format(x,“000.0”)的输出结果是 34.6 。
13、在VB
中，数值型变量的初值为 0 ，Varant型变量的初值为 空 ，布尔型变量的初值
为
FALSE 。
14、设置窗体的 picture 属性，可在窗体上显示图片。
15、程序运行工程中，清除MP图片框中的图片应使用语句 cls 。
二、选择题
1、菜单控件只包括一个事件，即 C ，当用鼠标单击或键盘选中后按“回车”
键时触发该
事件，除分隔条以外的所有菜单控件都能识别该事件。
A、GotFocus
B、Load C、Click D、KeyDown
2、滚动条控件(如图所示)的Max属性所设置的是 A 。
A、滚动框处于最右位置时，一个滚动条位置的Value属性最大设置值
B、
单击滚动条和滚动箭头之间的区域时，滚动条中滚动块的最大移动量
C、单击滚动条的箭头区域时，滚动条中滚动块的最大移动量
D、滚动条控件无该属性
3、SQL 语句 Select * Form student 中的 *表示 B
。
A、所有记录 B、所有字段 C、所有表 D、都不对
4、以下选项中，不属于标签的属性是 C 。
A、Enabled
B、Caption C、Default D、Font
5、要求改命令按钮显示的文本，应当在属性窗口中改变的属性是 A 。
A、Caption B、Name C、Text
D、Label
6、设置一个单选按钮(OptionButton)所代表选项的选中状态，应当在
属性窗口中改变的属性
是 D 。
A、Caption
B、Name C、Text D、Value
7、允许在菜单项的左边设置打勾标记，下面哪种论述是正确的？ D 。
A、在标题项中输入&，然后打勾 B、在索引项中打勾
C、在有效项中打勾 D、在复选项中打勾
8、当执行以下过程时，在窗体上将显示 A 。
Private Sub
Command1_Click( )
Print
Print
Print
End Sub
A、 VBHello!VB
B、VB C、 VB
D、 VB
Hello!VB
Hello! VB Hello!
VB
9、语句Print 的结果为 B 。
A、The answer
is 204-2 B、The answer is 3 C、The answer
is 、非法语句
10、下列哪个控件是容器控件 B 。
A、Image
B、Picture C、ComboBox D、FileListBox
11、若要将窗体从内存中卸载出去，其实现的方法是 D 。
12、以下选项中，不是 Visual Basic控件的是 A 。
A.窗体
B.定时器 C.单选框 D.命令按钮
13、双击窗体中的对象后，Visual Basic将显示的窗口是 A 。
A.代码窗口 B．工具箱 C．项目（工程）窗口 D．属性窗口
14、可决定窗体的左上角是否有控制菜单的属性是
A 。 lBox
ton ton Style
15、设有如下语句：
Strl＝InputBox（输人，，练习）
从键盘上输人字符 “示例”后，Strl的值是
D 。
A．“输入” B．“ ” C．“练习”
D．“示例”
16、窗体Form1的Name属性是Frm1,它的单击事件过程名是 C 。
A. Form1_Click _Click C. Frm1_Click D.
Me_Click
17、窗体的hide属性的含义是 A 。
A.隐藏 B.展现 C.装入
D.卸载
18、若要设置定时器控件的定时时间，需设置的属性是 C 。
A．Enabled B．Value C．Interval D．Text
19、能够改变复选框中背景颜色的属性是 C 。
A．Value
B．FontColor C．BackColor D．Font
20、窗体能响应的事件是 B 。
A．ActiveForm
B．Load C．Drive D．Change
三、判断题(判断下列正确与否，正确的打√，错误的打ⅹ。)
1、三种方式的组合框都允许用户输入哪些不在列表框中的选项。X
2、图象框中的Stretch属性为true时，其作用是图形自动调整大小以适应图象控件。X
3、在菜单编辑器中使用“索引”时，可有一组菜单项具有相同的“名字”。X
4、通过改变属性窗口中的Name属性，来改变窗体的标题。
5、创建VB应用程序的三个主要步骤是：(1)创建应用程序界面(2)设置控件(3)编写代码。X
6、变量是指在程序运行过程中其值可以改变的那些量，而值不能改变的是常量。
7、已知
P＝MsgBox(“Howareyou?，VbYesNo+VbQuestion，“Hello!”)，
变量P是Integer
数据类型。
8、工程文件的扩展名是 .vbg 。
9、VB允许设计和使用用户自己设计的控件。
10、OptionButton控件没有DblCliek事件。X
11、同一条记录中的各数据具有相同的类型。
12、使用Data控件可以直接显示数据库中的数据。X
13、ImageList
是一个图像容器控件，可用作工具栏的图像库。
14、当用户单击工具栏按钮时，将触发工具栏按钮的ButtonClick事件。
15
、在VB的工程资源管理器中，如果从工程中移除已经保存过的文件，该文件仍然被物理
删除（真正删除
）。X
16、如果列表框的ListConut的属性为10，则列表框最后一项的ListInd
ex值为10。X
17、要是某个命令按钮不起作用，应将该按钮的Enabeld属性设置为False。
18、使用数组定义语句：Dim D$$（10），则数组D中各元素的值为空。X
19、如果在一行中输入多条语句，各语句之间用使用 ；分隔。X
20、在代码窗口中输
入某行代码并按回车键之后，如果代码变成红色，说明该行代码有语法
错误。
四、读程序题，写出程序运行结果
1、 Private Sub
Form_Click()
Static SUM As Integer
I = 1
Do While I<=10
SUM = SUM + I
I = I + 1
Loop
Print SUM
End Sub
运行程序，第一次单击窗体： 55
第二次单击窗体： 110
2、 Private Sub
Form_Click()
Print
Print
For I = 15 To 16
Print I;
For j = 2 To 6 Step 3
Print Tab(3 * j); j * I;
Next j
Print
Next I
End Sub
程序运行结果： * 2 5
15 30 75
16 32 80
五、编程题
（一）窗体中有图片框(Picture1)和计时器(Timer1)两
个控件，运行程序时，将图片加载到图
片框中，然后图片框以每2秒钟一次的速度向窗体的右下脚移动，
每次向左、向右移动
100twip（20分之一像素）。请填空：
Private Sub Form_load( )
e =loadPicture(“c:”)
Timer1 .Interval=200
End Sub
Private Sub Timer1_Timer( )
Static x , y As Integer
x=x+100
y=y+100
x , y
End Sub
（二）有一个单
击按钮过程，其作用是产生50个60～100的随机数，统计其中被6整除余
2的个数，并将这些数输
出。请填空：
Private Sub Command1_Click()
Dim x As Integer, N%
Dim Counter As Integer
randomize Timer
For N=1
To 50
X=Rnd()* rnd()*41+60
If x Mod 6 =2 Then
Print x
Counter=
Counter+1
End if
Next N
Print Counter
End Sub
大学VB期末考试试题 B卷
一、 填空题
1.ＶＢ中若要产生一消息框，可用（1）MsgBox函数来实现。
2．常量是指在程序运行过程中，（2）其值不能改变的的量。
3．整数类型数据分别包括整型和 （3）长整型 数据。
4、在ＶＢ集成开发环境中，运
行应用程序的方法有三种：一是（4）(单击“运行”菜单下
的启动；二是(5) 单击工具栏上的启动
按钮_；三是（6）按F5键
5、在ＶＢ中若要让某对对象获取焦点，则可通过（7）
Setfocus 方法来实现。
6．列表框（ListBox控件）显示 （8） 项目列表
，用户可从中选择一个或多个项目。
7．框架（Frame控件）可以用来 (9)
对其它控件 进行分组，以便于用户识别，主要用
于为单选按钮分组。
8、在ＶＢ中，用来描述对象外部特征的量称之为对象的（10）属性。
9、为使某窗口中的命令按钮“取消(C)”具有如下特性：按“Alt＋C”键或按 “ESC”
键，
均可代替用鼠标单击该按钮的操作，应设置该按钮的Caption属性值为
（11）取消(&C)，
并且设置其（12） Cancel属性值为（13）True 。
10、在过程内用（14）Static
声明的变量为静态变量，在执行一个过程结束时，过程中所用
到的
Static变量的值会保留，下次再调用此过程时，变量的初值是上次调用结束时被保留的
值。
11、在模块文件中的声明部分用Global或（15）public关键字声明的变量为全局变量。
12、在模块文件中的声明部分用（16）Dim或（17）private定义的变量为模块级变量。
13．计时器控件通过定期激活Timer事件，使得Timer控件 （18） 可以每隔一段时间
就执
行一次Timer事件中的代码。
14．要获得滚动条的当前位置，可以访问通过
（19） value 属性来实现。
15．关闭正在运行的VB窗口将自动触发的事件是 （20） Unload。
二、选择题
1．工程文件的扩展名是（ B ）。
A．vbg
2.在以下窗体中没有采用的控件是（ B ）。
A.文本框
B 垂直滚动条 C．框架 D 命令按钮
3．滚动条控件（如图所示）的Largechange属性所设置的是（ A ）
A． 单击滚动条和滚动箭头之间的区域时，滚动条控件Value属性值的改变量
B． 滚动条中滚动块的最大移动位置 C． 滚动条中滚动块的最大移动范围 D．
滚动条控
件无该属性
4、用于从字符串左边截取字符的函数是（ C ）
Ａ、Ltrim( ) Ｂ、Trim( ) Ｃ、Left( ) Ｄ、Instr( )
5、可获得当前系统日期的函数是 （ A ）
Ａ、Date( ) Ｂ、Time(
) Ｃ、IsDate( ) Ｄ、Year( )
6、退出For循环可使用的语句为（
A ）
Ａ、Exit For Ｂ、Exit Do Ｃ、End For Ｄ、End
Do
7、窗体的标题栏显示内容由窗体对象的（D ）属性决定。
Ａ、BackColor Ｂ、BackStyle Ｃ、Text Ｄ、Caption <
br>8、程序运行时，若要通过回车键调用某命令按钮的Click事件过程，则可设置该命令按钮
的
（ C ）属性值为True来实现。
Ａ、Value Ｂ、Enabled
Ｃ、Default Ｄ、Cancel
9、当用户在窗体上单击鼠标时，不会触发的事件是（ D
）
Ａ、Click Ｂ、MouseDown Ｃ、MouseUp
Ｄ、DblClick
10、在设计阶段，当双击窗体上的某个控件时，所打开的窗口是 （ C
）
Ａ、工程资源管理器窗口 Ｂ、工具箱窗口 Ｃ、代码窗口 Ｄ、属性窗口
11、设a=“Visual Basic”，下面使b=“Visual”的语句是 （ D ）
Ａ、b=Left(a,8,12) Ｂ、b=Mid(a,8,5)
C、b=Rigth(a,6) D、b=Left(a,6)
12、若要使命令按钮不可用，则可设置其（ C ）属性为False来实现。
Ａ、Value Ｂ、Cancel Ｃ、Enabled Ｄ、Default
13．允许在菜单项的左边设置打勾标记，下面哪种论述是正确的？（ C ）
A．在标题项中输入&然后打勾 B 在索引项中输入“√” C．在复选项中输入“√”
D 在
有效项中输入“√”
14．当执行以下过程时，在窗体上将显示
（ B ）。
Private Sub Commandl_Click( ) Print “VB”
Print
“Hello!”； Print “VB” End Sub
A.
VB Hello! VB B. VB C. VB
D. VB
Hello!VB
Hello! VB Hello!
VB
15、以下不属于键盘事件的是（ C ）
Ａ、KeyDown
Ｂ、KeyUp Ｃ、Unload Ｄ、KeyPress
16、以下叙述中正确的是（ A
）
A、窗体的Name属性指定窗体的名称，用来标识一个窗体
B、窗体的Name属性的值是显
示在窗体标题栏中的文本
C、可以在运行期间改变对象的Name属性的值 D、对象的Name
属性值可以为空
17、图像框或图片框中显示的图形文件，由它们的（ B ）属性值决定。
Ａ、DownPicture Ｂ、Picture Ｃ、Image Ｄ、Icon
18、文本框的（ A ）属性用于设置或返回文本框中的文本内容。
Ａ、Text
Ｂ、(名称) Ｃ、Caption Ｄ、Name
19、复选框或单选钮的当前状态可通过（
B ）属性来返回或设置。
Ａ、Checked Ｂ、Value Ｃ、Selected
Ｄ、Caption
20、VB提供（ C ）属性用于控制对象是否可用。
Ａ、Default Ｂ、Cancel Ｃ、Enabled Ｄ、Visible
三、判断题(判断下列正确与否，正确的打√，错误的打ⅹ。)
１、设置属性的语句格式为：“对象名．属性名＝属性值”． （ ）
２、若用户在键盘上按下一个键，则会产生一个单击事件（ ）．
３、ＶＢ的赋值语句只能给变量赋值． （ ）
４、在ＶＢ中，字符型常量应使用＂＃＂号将其括起来．（ ）
５、窗体大小只能通过鼠标拖动窗体边框来设置．（ ）
6．在定义了一个函数后，可
以象调用任何一个VB内部函数一样使用它，即可以在任何表
达式、语句或函数中引用它。（
）
7．Visual Basic表达式为：1284+COS（28 ）
8．Visual Basic表达式为：3*cos (c+d)^2或3*cos
(c+d)*cos (c+d)( )
程序语言两个基本特点是：结构化和事件驱动编程。（ ）
10．工程资源管理器用于查看和管理工程类的文件，不能删除文件。（ ）
四、读程序题，写出程序运行结果
e Sub Form_Click( )
Static Sum As Integer
For I=1 To 10
Sum= Sum+I
Next I
Print Sum
End Sub 55
e Sub Form_Click ( )
Print ；Tab(9);3,Tab(18);6
Print
For I=15 to 16
Print I;
For j=3 To
6 Step 3
Print Tab(3*j);j*I;
Next j
Print
Next I
End Sub
e
Function Fac(n As Integer)As Integer
Dim f
As Integer
f=f+n
Fac =f
End
Function
Private Sub Form_Click( )
Dim I As Integer
For I=1 To 5
Print Σ；I &
Next I
End Sub
e
Sub Command1_Click( )
=努力
End Sub
Private Sub Command2_Click( )
=学习
End Sub
单击Command2按钮，又单击Command1按钮，在文本框中显示什么？
五、编程题
1、在窗体上有一个文本框控件，名称为TxtTime；一个计时器控件
，名称为Timer1。要求
每一秒钟在文本框中显示一次当前的时间。程序如下，请在下划线上填入恰
当的内容。
Private Sub Timer1_ _____()
=_____
End Sub
2、在窗体上画一个命令按钮，名称为Command1。然后编写如下程序：
Private Sub Command1_Click()
For
a=1 To 4
For b=0 To a
Print Chr(65+a)
Next b
Print
Next a
End Sub
程序运行后，如果单击命令按钮，则在窗体上显示的内容是什么？
3、在窗体上画一个文本框和一个图片框，然后编写如下两个事件过程：
Private Sub Form_Load()
=”计算机”
End Sub
Private Sub Text1_Change()
“等级考试”
End Sub
程序运行后，在文本框中显示的内容是
而在图片框中显示的内容是
参考答案：
一、
填空题
（１）MsgBox函数 （２）其值不能改变 （３）长整型
（４）单击“运行”菜单下的启
动 （５）单击工具栏上的启动按钮 （６）按Ｆ5键
（７）Setfocus
（８）项目列表 （９）对其它控件 （10）属性
（11）取消(&C) （12）Cancel
(13) True
（14）Static （15）Public （16）Dim （17）private
（18）可以每隔一个时间段
（19）Value （20）Unload
二、选择题
1.B2.B3.A4.A5.A6.A7.D8. C9.D10.C11.D12.
C13. C 14. B 15.C 16. A 17. B 18. A 19. B 20 .
C
三、判断题
1．√ 2. 3. √ 4. X
在ＶＢ中，字符型常量应使用＂＂号将其括起来． 5. X 6. 7. X
正确
的形式是：1284+COS（28*3.14159180） 8. √9. X
VB的两个基本特点是：可视化设计和
事件驱动编程。 10. X
四、读程序题，写出程序运行结果
1． 结果为：55
2． 结果为：*
3 6
15 45
90
16 48 96
3．
结果为：
Σ1=1
Σ2=2
Σ3=3
Σ4=4
Σ5=5
4. 结果为：努力
五、综合题 1． Timer time
2． B BC C C
D D D D E E E E E
3. 在文本框中显示的内容是
计算机
而在图片框中显示的内容是 等级考试
一、单选题
1. 计算机程序的三种结构是顺序结构、 B
、选择结构。
A．模块结构 B．循环结构 C．多重循环结构
D．IF块结构
2. B
是指用户操作引发或由系统引发，能被对象所识别并做出响应的动作。
A．任务 B．事件
C．控件 D．过程
3. 在VB系统中，一个对象内部的函数或过程，称为对象的 C 。
A．代码 B．属性 C．方法 D．事件
4.
在VB中，窗口坐标系的原点在 A ，x轴向右为正，y轴向下为正。
A．窗口左上角
B．窗口右下角 C．窗口正中间 D．窗口右上角
5.
在VB应用程序设计中，通常应对 D 编写程序代码。
A．所有对象
B．窗体
C．Timer D．有事件的对象
6.
在面向对象程序设计中， D 用来描述对象的特征信息。
A．事件 B．方法
C．代码 D．属性
7. 在VB编程中，如果需要返回鼠标的当前位置，应该使用 C
事件。
A．Click B．Change C．MouseDown
D．KeyPress
8.
在VB应用程序设计中，如果想让Timer控件每秒钟响应一次，应该将其Inerval属性设
置为
D 。
A．1 B．60 C．100 D．1000
9.
下列过程中， A 是程序开始运行时，窗体一加载就运行的程序
段。 A．Form_Load
B．Form_Click C．Form_MouseDown D．Form_KeyPress
10. 正确的Visual Basic表达式是 B 。
A．(-b+b^2-4ac)2a
B．(-b+sqr(b^2-4*a*c))(2*a)
C．(-b+sqr(b^2-4ac))(2a) D．(-b+sqr(b^2-4ac))2a
11. 在VB系统中， A 代表内存单元，是命了名的存储空间。
A．变量
B．常量 C．函数 D．字节
12. B
语句用于声明变量，并定义变量的数据类型，给变量分配存储空间。
A．Sub B．Dim
C．Call D．End
13. 在VB程序设计语言中， C
语句的功能是使系统产生的随机数真正随机化。
A．Rnd B．Circle
C．Randomize D．Dim
14. 关系表达式的值为 C 。
A． 数值 B．字符串 C．逻辑值 D．逻辑表达式
15.
下列控件中“单选按钮”是 C 。
A. Label B. TextBox C.
OptionButton D. CommandButton
16.若改变一文本框中所显示文本的颜色，需改变此文本框的哪个属性?B
A.
Caption B. Forecolor C. Backcolor D. Text
17. 在VB环境中，如果设计时将命令按钮的 C
属性设置为False，则运行时该按钮从窗体上
消失。
A．Default
B．Enabled C．Visible D．DisabledPicture
18、在VB环境中，修改对象的BackColor的属性值，则对象的 B 将发生改变。
A. 文字颜色 B. 背景色 C. 前景色 D. 边框颜色
19、.
用VB工具箱中的哪个控件可以建立命令控制按钮 B 。
20、在VB应用程序中，修改控制代码，使Command1按钮显示“end”，正确的设置是
B 。
A. =“end” B. n=“end” C. ＝
end
D. n=end
21、在VB程序中，当变量H的值等于8时，执行“IF H>8 then
R=10 else R=20”语句后，
R值为 C 。
A．5 B．10
C．20 D．10或20
22．Dim a As
Integer，当a=123: b=Str(a)，则 C
A．a和b均是字符型变量
B．a是字符型变量，b是数值型变量 C．a是数值型变量，b
是字符型变量
D．a和b均是数值型变量
23、用循环结构解决问题时，如果循环的次数已知，通常采用
；当循环的次数未知，
需要靠判断条件是否成立来决定循环的执行和退出时，通常采用
。 A
A．For„Next循环、Do„Loop循环
B．Do„Loop循环、For„Next循环 C．Do„Next循环、
For„Loop循环
24、 A 函数的作用是建立一个弹出窗口。
A．MsgBox()
B．InputBox() C．RGB() D．Print
25．A=5，B=8，则（B-A）*Rnd+A的结果是介于__C___之间的实数。
A. [5，8] B.（5，8） C.[5，8） D.（3，5）
26． For i=1 to 10 Step 2
„„
‘循环体中循环变量的值保持不变。 Next i
在程序运行时循环体将被执行__C____几次。
A.3次 B.4次
C.5次 D.6次
27．执行后将会清空文本框Text1中文本的语句是___C__。
A.
B. t=
28．在机场托运行李，每人免费25千克，超过25千克不到50千克，则超出部分按每
千克
10元收费，如果超过50千克，则超过部分按每千克20元收费。这种计费程序最适合用到
的程序结构是 C A.循环 B.赋值 C.分支 D. 顺序
29．下面是一段循环结构的程序段： D
s=0
x=2
Do
s=s+1
x=x+3
Loop Until (x>12)
该程序段运行后，循环体的执行次数是 A.1 B.2 C.3
D. 4
30. 算法是 C 。
A．计算方法 B．计算公式
C．对解决问题的方法和步骤的描述
31．下列句子中， D 不是赋值语句。
A．A=”123” +”456” B．=”你好！”
C．r=Val() D．x+1=y
32． D
函数的作用是建立一个输入对话框。
A．MsgBox() B．Print
C．RGB() D．InputBox()
33．下列数学表达式写成VB表达式，正确的是： B
A．数学表达式0＜x≤10对应的VB表达式为x＞0 or x<=10
B．数学表达式x2-（x+2）+5对应的VB表达式为 x^2- (x+2) +5
C．数学表达式b2-4ac≥0对应的VB表达式为b^2-4ac>=0
D．
数学表达式 对应的VB表达式为Sqr(x2-1)
34． B 的思想是依据题目的部分条件确
定答案的大致范围，在此范围内不重复、不遗漏地
列出所有可能情况，从中找出满足条件
的结果。
A．求最值法 B．穷举法 C．累加法 D．递归法
二、多选题
1． 在VB应用程序设计中，以下说法正确的是： ABC
A．对象包括窗体和控件
B．属性用来描述和确定对象的特征信息
C．事件是指用户操作引发或由系统引发，能被对象所识别并做出响应的动作
D．方法是指程序设计的方法
2．在VB应用程序设计中，以下说法正确的是： AB
A．要显示不想让用户修改的文本时，应该使用Label控件
B．要显示可以让用户编辑的文本时，应该使用TextBox控件
C．要显示图片，只能使用PictureBox控件
D．要想画图形，只能在窗体中实现
3．下列字符串中，不能作为变量名使用的有： AD
A．End
B．a1 C．xx D．Sub
4．在VB应用程序设计中，以下说法正确的是： BCD
A．Abs(
)是转换英文大小写的函数 B．MsgBox( ) 是消息函数 C．RGB( )是颜色函数
D．Sqr( )是求平方根函数
5．VB简单应用程序的设计步骤为： ABCD
A．设计图形用户界面 B．设置对象属性
C．编写对象事件过程及通用过程代码
D．运行调试程序并保存工程
三、读程序运行结果
1.
下列程序运行后，变量s= C 。
Dim a,b,c,s As
Integer
a=9
b=41
c=2*(a+b)
s=a*c
A．100 B．50 C．900 D．300
2. 下列程序运行后，变量x= D 。
Dim n,x
As Integer
n=5
Private Sub
Form_Load()
x=1
For i=1 To n
x=x*i
Next i
End Sub
A．5 B．15 C．24 D．120
3. 阅读以下程序
Private Sub
Command1_Click()
Print “* * Hi ,”
Print
“how are you * *”
End Sub
当程序执行时，单击command1后，输出结果是 * * Hi ,
how are you * *
4. 阅读以下程序段
Private Sub
Command1_Click()
For R =100 to 520 step 100
b1 = 255 * Rnd( )
b2 = 255 * Rnd( )
b3 = 255 * Rnd( )
(1000,1000),
R,RGB(b1,b2,b3)
Next R
End Sub
当程序执
行时，单击command1后，将在（何处）__1000，1000___显示___5___个颜色__<
br>不同__（填相同或不同）的同心圆。
5. 以下是求任意圆面积的程序
Private Sub Command1_Click()
R =
Val(InputBox(“请输入圆的半径”,“数据输入”))
print
“S=”；3.14*R*R
End Sub
在程序执行过程中单击command1
时，出现了右图所示的窗口，请根据如图所示信息，在空
白处补充对应的程序语句。
6.阅读程序代码并填空。
Private Sub Command1_Click()
Dim a, b As Integer
a = InputBox(输入
b
= InputBox(输入
If a > b Then
Print a
Else: Print b
End If
End Sub
（1）程序的基本结构包括顺序结构、分支结构和循环结构，本程序主要使用的是___分支_
结
构。
（2）本程序的主要作用是__打印a,b两个数中的最大数___。
（3）假如输入的两个数分别是 7和 9，程序执行后，输出的结果是___9_____。
7．请填写以下流程图
编写一元二次方程ax2+bx+c=0的求解程序，要求能够判断
方程是否有根，如果没有根则给
出相应的提示信息。
直接用的4个command控件
Dim a As Integer, b As Integer, c As
Integer
Private Sub Command1_Click()
a =
InputBox(请输入二次项系数输入
End Sub
Private Sub
Command2_Click()
b =
InputBox(请输入一次项系数输入
End Sub
Private Sub
Command3_Click()
c = InputBox(请输入常数项输入
End
Sub
Private Sub Command4_Click()
If b ^ 2
- 4 * a * c >= 0 Then
If b ^ 2 - 4 * a * c
> 0 Then
X1 = (-b + Sqr(b ^ 2 - 4 * a
* c)) (2 * a)
X2 = (-b - Sqr(b ^ 2 -
4 * a * c)) (2 * a)
MsgBox
End If
If b ^ 2 - 4 * a * c = 0 Then
X1 = (-b + Sqr(b ^ 2 - 4 * a * c)) (2 * a)
MsgBox
End If
Else
d = (-b (2
* a))
s = Sqr(-b ^ 2 + 4 * a * c)
MsgBox
& Format(d,
End If
End
Sub