第一套试题
一、选择题（每题2分，共30分）
1.在VB环境中，工程文件的扩展名是( C )
（A）.frm （B）.bas （C）.vbp （D）.frx
2.下面4项中不属于面向对象系统三要素的是( A )
（A）变量 （B）事件 （C）属性 （D）方法
3. \、/、Mod、*这4个算述运算符中，优先级别最低的是( C )
（A）\ （B）/ （C）Mod （D）*
4.要使Print方法在Form_Load事件中起作用，要对窗体的( C )属性进行设置
（A）BackColor （B）ForeColor
（C）AutoRedraw （D）Caption
5.不论何控件，共同具有的属性是( B )
（A）Text （B）Name
（C）ForeColor （D）Caption
6.要使Form1窗体的标题栏显示“欢迎使用VB”，以下语句正确的是( D )
（A）Form1.Caption=“欢迎使用VB” （B）Form1.Caption=ˊ欢迎使用VBˊ
（C）Form1.Caption=欢迎使用VB （D）Form1.Caption=〞欢迎使用VB〞
7.VB提供了结构化程序设计的3种基本结构，这3种基本结构是( D )
（A）递归结构，选择结构，循环结构 （B）选择结构，过程结构，顺序结构
（C）过程结构，输入、输出结构，转向结构 （D）选择结构，循环结构，顺序结构
8.给变量赋值a=123+MID(“123456”,3,2)，a变量中的值是( D )
（A）“12334” （B）123 （C）12334 （D）157
9.下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是( D )
（A）If sex=“男”And age＜40 And InStr(duty,“教授”)＞0 Then n=n+1
（B）If sex=“男”And age＜40 And (duty=“教授”Or duty=“副教授”) Then n=n+1
（C）If sex=“男”And age＜40 And Right(duty,2)= “教授” Then n=n+1
（D）If sex=“男”And age＜40 And duty=“教授”And duty=“副教授” Then n=n+1
10.若要清除列表框的所有内容，可用来实现的方法是( C )
（A）RemoveItem （B）Cls
（C）Clear （D）以上均不可以
11.要使时钟控件Timer1的Timer事件不起作用，以下正确的语句是( B )
（A）Timer1.Visible=False （B）Timer1.Enabled=False
（A）Timer1.Interval=1000 （D）Timer1.Index=0
12.引用列表框(List1)最后一个数据项应使用的语( B )
(A)List1.List(List1.ListCount) (B)List1.List(List1.ListCount-1)
(C)List1.List(ListCount) (D)List1.List(ListCount-1)
13.如下数组声明语句，正确的是( B )
（A）Dim a[3,4]As Integer （B）Dim a(3,4)As Integer
（C）Dim a(n,n) As Integer （D）Dim a(3,4)As Integer
14.下面子过程语句说明合法的是(A、D )
（A）Sub f1(ByVal n%) （B）Sub f1(n%)As Integer
（C）Function f1%(f1%) （D）Function f1(ByVal n%)
15.假定有如下的命令按钮(名称为Command1)事件过程：
Private Sub Command1_Click()
x=InputBox("输入："，"输入整数")
MsgBox"输入的数据是：”，，”输入数据："+x
End Sub
16.程序运行后，单击命令按钮，如果从键盘上输入整数10，则以下叙述中错误的是( A )
（A）x的值是数值10 （B）输入对话框的标题是“输入整数”
（C）信息框的标题是“输入数据：10” （D）信息框中显示的是“输入的数据是：”
二、填空题（每题2分，共20分）
1、当进入VB集成环境后，发现没有显示“工具箱”窗口，应选择 视图 菜单
的 工具箱 选项，使“工具箱”窗口显示。
2、VB是一种面向 对象 的程序设计语言，采用了 事件驱动 编程机制。
3、Int(-5.5)、Int(5.5)、Fix(-5.5)、Round(-5.5)的值分别是 -6 、 5 、 -5 、 -6 。
4、表达式Ucase(Mid(“abcdefgh”,3,4))的值是 CDEF 。
5、将文本框的ScrollBar的属性设置为2(有垂直滚动条)，但没有垂直滚动条显示，原因是没有将 multline 属性设置为True。
6、VB的注释语句采用 ‘ 字符开头，若一行上书写多个语句，则各语句间
用 ： 字符分隔。
7、列表框中项目的序号是从 0 开始的。
8、列表框中的 list 和 selected 属性是数组。
9、如果要每隔15秒产生一个计时器事件，则Interval属性应设置为 15000 。
10、在VB中，事件过程名由 sub 和 function 构成。
三、请完成下列的程序（共15分）
1、以下程序的功能是：生成20个200到300之间的随机整数，输出其中能被5整除的数并求出它们的和。请填空。
Private Sub Commandl_C1ick()
Fori＝1To 20
x＝Int(_ rnd*101+200 __)
If_ x mod 5=0 __ Then
Print x
S＝S十x
End If
Next i
Print "Sum＝"：S
End Sub (5分)
2、某次大奖赛，有7个评委打分，如下程序对一名参赛者，输入7个评委的打分分数，去掉一个最高分和一个最低分后，求出平均分为该参赛者的得分。请在下划线处填入相应的内容。
Private Sub Command1_Click()
Dim mark!,aver!I%,max1!min1!
aver=0
For i=1 To 7
Mark=InputBox(“输入第”&i&“位评委的打分”)
If i=1 Then
Max1=mark: min1=mark
Else
If mark＜min1 Then
Min1=mark
ElseIf mark＞max1 Then
Max1=mark
End If
End If
Aver=aver+mark
Next i
Aver=
Print aver
End Sub
四、操作题(第一题15分，第二小题20分，共计35分)
提示：请同学们在E盘下面建立一个以自己的名字和学号命名的文件夹，然后将自己设计的窗体保存在这个文件夹下面即可，工程文件可以不保存，但窗体一定要保存
1、斐波纳契（Fibonacci）数列的第一项是1.第二项是1，以后各项都是前两项的和。试用递归算法编写一个程序，求斐波纳契数列第N项的值。（15分）
2、设计一个窗体，在窗体中设置3个标签、1个文本框、2个单选按钮、3个复选按钮和两个命令按钮。在文本框中输入某人的姓名，并在性别和爱好项目中进行选择，单击“显示资料”命令按钮，将个人资料显示出来；单击“充填”按钮，将文本内容清楚，选项回复到初始状态（20分）
第二套试题
一、选择题（每题2分，共30分）
1. 在VB集成环境创建VB应用程序时，除了工具箱窗口、窗体窗口、属性窗口外，必不可少的窗口是( C )
（A）窗体布局窗口 （B）立即窗口 （C）代码窗口 （D）监视窗口
2．表达式16/4-2^5*8/4MOD5\2的值为 ( B )
（A）14 （B）4 （C）20 （D）2
3．Int(198.555*100+0.5)/100的值为 ( C )
（A）198 （B）199.6 （C）198.56 （D）200
4．已知A$=“”，则表达式Val(Left$(A $,4)+Mid$(a $,4,2))的值为 ( B )
（A）123456 （B）123445 （C）8 （D）6
5．表达式DateDiff（“y”,#12/30/1999#,#1/13/2000#）的结果是 ( C )注：一个Y表示相隔
vb程序设计教程答案第四版刘炳文天数，四个Y表示相隔年数。
版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。
发表评论