模块与VBA编程基础(8)

模块与VBA编程基础习题

一、选择题

1.VBA中定义符号常量可以用关键字 A) Const B) Dim C) Public D) Static

2.Sub过程和Function过程最根本的区别是

A) Sub过程的过程名不能返回值，而Function过程能通过过程名返回值 B) Sub过程可以使用Call语句或直接便用过程名，而Function过程不能 C) 两种过程参数的传递方式不同

D) Function过程可以有参数，Sub过程不能有参数

3.定义了二维数组A(2 to 5.5)，则该数组的元素个数为 A) 25 B) 36 C) 20 D) 24

4，已知程序段： s=0

For i=1 to 10 step 2 s=s+1 i=i*2 Next i

当循环结束后，变量i的值为 a ，变量s的值为 b 。 a.A) 10 B) 11 C) 22 D) 16 b.A) 3 B) 4 C) 5 D) 6

5.以下内容中不属VBA提供的数据验证函数是

A) IsText B) IsDate C) IsNumeric D) IsNull

6.已定义好有参函数f(m)，其中形参m是整型量。下面调用该函数，传递实参为5，将返回的函数值赋给变量t。以下正确的是

A) t=f(m) B) t=Call f(m) C) t=f(5) D) t=Call f(5)

7.在有参函数设计时，要想实现某个参数的“双向”传递，就应当说明该形参为“传址”调用形式。其设置选项是

A) ByVal B) ByRef C) Optional D) ParamArray

8.在VBA代码调试过程中，能够显示出所有在当前过程中变量声明及变量值信息的是 A) 快速监视窗口 B) 监视窗口 C) 立即窗口 D) 本地窗口

9.VBA的逻辑值进行错误处理的语句结构是

A) 0 B) -1 C) 1 D) 任意值

10.VBA中不能进行错误处理的语句结构是

A) On Error Then 标号 B) On Error GoTo 标号 C) On Error Resume Next D) On Error GoTo 0

11.VBA中用实际参数a和b调用有参过程Area(m,n)的正确形式是 A) Area m,n B) Area a,b C) Call Area(m,n) D) Call Area a,b

12.给定日期DD，可以计算该日期当月最大天数的正确表达式是 A) Day( DD )

B) Day( DateSerial( Year( DD ),Month( DD ),Day( DD ) ) ) C) Day( DateSerial( Year( DD ),Month( DD ),0 ) ) D) Day( DateSerial( Year( DD ),Month( DD )+1,0 ) )

13.下列关于宏和模块的叙述中，正确的是 A) 模块是能够被程序调用的函数 B) 通过定义宏可以选择或更新数据

C) 宏或模块都不能是窗体或报表上的事件代码

D) 宏可以是独立的数据库对象，可以提供独立的操作动作 14.有如下VBA代码，运行结束后，变量n的值是 n=0

For i=1 To 3 For j=-4 To -1 n=n+1 Next j Next i

A) 0 B) 3 C) 4 D) 12

15.假设有如下Sub过程

Sub sfun( x As Single,y As Single ) t=x x=t/y

y=t Mod y End Sub

在窗体中添加一个命令按钮（名为Command1）,编写如下事件过程： Private Sub Command1_Click() Dim a As Single Dim b As Single a=5 : b=4 sfun( a,b )

MsgBox a&char(10)+chr(13)&b End Sub

打开窗体运行后，单击命令按钮，消息框中有两行输出，内容分别为 A) 1和1 B) 1.25和1 C) 1.25和4 D) 5和4 16.有如下VBA程序段： sum=0 n=0

For i=1 To 5 x=n/i n=n+1

sum=sum+x

Next i

以上For循环计算sum，完成的表达式是 A) 1+1/1+2/3+3/4+4/5 B) 1+1/2+1/3+1/4+1/5 C) 1/2+2/3+3/4+4/5 D) 1/2+1/3+1/4+1/5

17.在窗体中有一个命令按钮run16，对应的事件代码如下： Private Sub run16_Enter() Dim num As Integer Dim a As Integer Dim b As Integer Dim i As Integer For i=1 To 10

num=InputBox(\请输入数据：\输入\If Int(num/2)=num/2 Then a=a+1 Else b=b+1 End If Next i

MsgBox(\运行结果：a=\End Sub

运行以上事件所完成的功能是 A) 对输入的10个数据求累加和

B) 对输入的10个数据求各自的余数，然后再进行累加

C) 对输入的10个数据求分别统计有几个是整数，有几个是非整数 D) 对输入的10个数据求分别统计有几个是奇数，有几个是偶数 二、填空题

1.VBA的全称是________。

2.模块包含了一个声明区域和一个或多个子过程（以________开头）或函数过程（以________开头）。 3.说明变量最常用的方法，是使用________结构。

4.VBA中变量作用域分为3个层次，这3个层次是________、________和________。

5.在模块的说明区域中，用________关键字说明的变量是模块范围的变量；而用________或________关键字说明的变量是属于全局范围的变量。

6.要在程序或函数的实例间保留局部变更的值，可以用________关键字代替Dim。 7.用户定义的数据类型可以用________关键字间说明。

8.VBA的3种流程控制结构是顺序结构、________和________。 9.VBA中使用的3种选择函数是________、________和________。

10.VBA提供了多个用于数据验证的函数。其中IsDate函数用于________；________函数用于判定输入数据是否为数值。

11.VBA的有参过程定义，形参用________说明，表明该形参为传值调用；形参用ByRef说明，表明该形参为________。

12.VBA的错误处理主要使用________语句结构。 13.On Error Goto 0语句的含义是________。

14.On Error Resume Next语句的含义是________。

15.VBA语言中，函数InputBox的功能是________；________函数的功能是显示消息信息。

16.在VBA中双精度的类型标识是________。

17.在VBA中，分支结构根据________选择执行不同的程序语句。 18.VBA的逻辑值在表达式当中进行算术运算时，True值被当作________、False值被当作________来处理。 19.VBA编程中，要得到[15,75]上的随机整数可以用表达式________。 20.设有如下代码： x=1 Do x=x+2

Loop Until________

运行程序，要求循环体执行3次后结束循环，请在空白处填入适当的语句。 21.设有以下窗体单击事件过程： Private Sub Form_Click() a=1

For i=1 To 3 Select Case i Case 1,3 a=a+1 Casw 2,4 a=a+2 End Select Next i MsgBox a End Sub

打开窗体运行后，单击窗体，则消息框的输出内容是________。

22.在窗体中添加一个命令按钮（名为Command1）和一个文本框（名为Text1），编写事件代码如下： Private Sub Command1_Click()

Dim a As Integer,y As Integer,z As Integer x=5:y=7:z=0 Me! Text1=\ Call p1(x,y,z) Me! Text1=z End Sub

Sub p1(a As integer,b As Integer,c As Integer) c=a+b End Sub

打开窗体后，单击命令按钮，文本框中显示的内容是________。 23.在下面的VBA程序段运行时，内层循环的循环次数是________ …… 此处隐藏：3166字，全部文档内容请下载后查看。喜欢就下载吧 ……