vb程序设计试题(含答案)

第一套试题

一、选择题（每题 2 分，共30 分）

1. 在VB环境中，工程文件的扩展名是( C )

（A）.frm （B）.bas （C）.vbp （D）.frx

2. 下面4 项中不属于面向对象系统三要素的是( A )

（A）变量（B）事件（C）属性（D）方法

、/ 、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）以上均不可以

3. 要使时钟控件Timer1 的Timer 事件不起作用，以下正确的语句是( B ) （A）Timer1.Visible=False （B）Timer1.Enabled=False

（A）Timer1.Interval=1000 （D）Timer1.Index=0

4. 引用列表框(List1) 最后一个数据项应使用的语( B )

(A)List1.List(List1.ListCount) (B)List1.List(List1.ListCount-1)

(C)List1.List(ListCount) (D)List1.List(ListCount-1)

5. 如下数组声明语句，正确的是( 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

6. 下面子过程语句说明合法的是(A、D )

（A）Sub f1(ByVal n%) （B）Sub f1(n%)As Integer

（C）Function f1%(f1%) （D）Function f1(ByVal n%)

7. 假定有如下的命令按钮( 名称为Command1事) 件过程：

Private Sub Command1_Click()

x=InputBox(" 输入："，"输入整数")

MsgBox"输入的数据是：”，，”输入数据："+x

End Sub

8. 程序运行后，单击命令按钮，如果从键盘上输入整数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&“位评委的打分”)