VB考试题及答案

1、VB应用程序中可以包括三种模块：( 窗体模块)、( 标准模块) 和类模块。

2、下列过程不能在标准模块中定义的是( A )。

A、事件过程

B、子过程

C、函数过程

D、公共过程

3、以下叙述中错误的是D

A、如果过程被定义为Static类型，则该过程中的局部变量都是Static类型

B、Sub过程中不能嵌套定义Sub过程

C、Sub过程中可以嵌套调用Sub过程

D、事件过程可以像通用过程一样由用户定义过程名

2、在某一窗体模块中定义的全局级过程，若被该模块外的模块所调用，必须在该过程名前加上( 窗体名称)。

2、自定义的过程有两种形式：＿Sub＿和＿Function＿。

3、用于退出过程的语句是( D )。

A、Exit

B、Exit For

C、Exit Do

D、Exit Sub

4、在过程的参数列表中列入__ Optional __关键字，就可以指定过程的参数为可选的。

5、如果使用Call关键字来调用一个需要参数的过程，参数就必须要加上__括号__。

1、在窗体代码中有以下事件过程的声明，其中Private表示( B )

Private Sub lblAbc_Change()

……

End Sub

A、此过程可以被任何其它过程调用

B、此过程只可以被本窗体模块中的其它过程调用

C、此过程不可以被其它过程调用

D、此过程只可以被本工程中的其它过程调用

9、假定已定义了一个过程Sub Add(a As Single,b As Single)，则正确的调用语句是( A )。

A、Add 12,5

B、Call(2*x,Add(1.57))

C、Call Add x,y

D、Call Add(12,12,x)

10、要想在过程调用后返回两个结果，下面的过程定义语句合法的是( C )。

A、Sub Procl(ByVal,n,ByVal m)

B、Sub Procl(n,ByVal m)

C、Sub Procl(n,m)

D、Sub Procl(ByVal n,m)

6、写出单击命令按钮Command1时的窗体显示结果。

Public Sub Proc(ByRef n As Integer,ByVal m As Integer)

n=n Mod 10

m=m\10

End Sub

Private Sub Command1_Click()

Dim x as Integer,y As Integer

x=15:y=30

Call Proc(x,y)

Print x;y

End Sub 显示结果：5 30

7、下列程序代码的功能是计算

!8!7

!5+

=

s的值，在横线上填上适当内容。Private Sub Command1_Click()

Dim f1 As Long,f2 As Long,f3 As Long,s As single

Call fact(5,f1)

Call fact(7, f2)

Call fact(8,f3)

s= (f1+f2)/f3

Print “s=”;s

End Sub

Sub fact(Byval n As Integer,Byref f As Long)

Dim t As Long,i As Integer

t=1

For i=1 To n

t=t*i

Next i

f=t

End Sub

11、单击命令按钮，在输入对话框中输入234，窗体输出结果为__24__。Function Fun(num As Integer) As Integer

Dim k As Integer

k = 1

num = Abs(num)

Do While num

k = k * (num Mod 10)

num = num \ 10

Loop

Fun = k

End Function

Private Sub Command1_Click()

Dim n As Integer

Dim r As Integer

n = InputBox("请输入一个数")

n = Val(n)

r = Fun(n)

Print r

End Sub

12、编程实现显示以下图形：

**

****

******

****

**

Private Sub p(ByVal i As Integer)

Dim j%, k%

For j = 0 To 7 - i

Print " ";

Next j

For k = 0 To 2 * i - 1

Print "*";

Next k

Print

End Sub

Private Sub Command1_Click()

Dim i%

For i = 1 To 2

p i

Next i

For i = 3 To 1 Step -1

p i

Next i

End Sub

20、补全程序题：以下过程实现求2到50以内奇数的和，请在划线处将过程补充完整：Sub mult()

Dim sum as Integer

sum=0

Dim I as Integer

For I=2to 50

if I MOD2=___0___Then __ Loop__

___ sum=sum+I___

___ Next I ______

Print sum

End Sub

16、补全程序题：以下Prime过程，用于判断一个数是否为素数。请在划线处将过程补充完整：

Sub Prime(inputvar As Integer)

For i = __2 To inputvar - 1

If inputvar Mod i = _ 0___ Then

GoTo comfinish