模块设计练习试卷3(题后含答案及解析)

模块设计练习试卷3(题后含答案及解析)
全部题型 2. 填空题
填空题（每空2分，共30分）请将每一个空的正确答案写在答题卡上。

注意：以命令关键字填空的必须拼写完整。

1．VBA的全称是______。

正确答案：VisualBasicforApplication 涉及知识点：模块设计
2．模块包含了一个声明区域和一个或多个子过程或函数过程(以______开头)。

正确答案：Function 涉及知识点：模块设计
3．窗体模块和报表模块都属于______。

正确答案：类模块涉及知识点：模块设计
4．说明变量最常用的方法是使用______结构。

正确答案：Dim...As... 涉及知识点：模块设计
5．VBA中变量作用域分为3个层次，这3个层次是局部变量、模块变量和______。

正确答案：全局变量涉及知识点：模块设计
6．在Access中模块分为______和______两种类型。

正确答案：类模块、标准模块(次序无先后》涉及知识点：模块设计7．执行下面的程序段后，b的值为______。

正确答案：5 涉及知识点：模块设计
8．执行下面的程序，消息框的输出结果是______。

optionBase1PrivateSubCommandl_Click( )Dima(10),P(3)AsIntegerK=5Fori=1To1 0a(i)=iNextiFori=1To3p(i)=a(i*i)NextIFori=1To3k=k+p(i)*2NcxtiMsgBoxkEndsub 正确答案：33 涉及知识点：模块设计
9．以下是一个竞赛评分程序。

8位评委，去掉一个最高分和一个最低分，计算平均分(设满分为10分)。

请填空补充完整。

PrivateSubForm_Click( )DimMaxasInteger,MinasIntegerDimiasInteger,xasInteger, sasIntegerDimppasSingleMax=0Min=10Fori=1To8x=Vid(1nputBox(“请输入分数:”))If______IhenMax=xIf______ThhcnMin=xs=s+xNexti
正确答案：X＞9naK、x＜min、s-min-max 涉及知识点：模块设计
10．在窗体上添加一个命令按钮(名为Command1)，然后编写如下程序，Functionm(xasInteger,yasInteger)asIntegerm=If(x＞y,x,y)EndFunctionPrivateSubCununandl_Click( )DimaasInteger,basIntegera=1b=2 MsgBoxm(a,b)EndSub打开窗体运行后，单击命令按钮，消息框的输出结果为______。

正确答案：2 涉及知识点：模块设计
11．某个窗体已编写如下事件过程。

打开窗体运行后，单击窗体，消息框的输出结果为______。

PrivateSubForm_Click( )DimKasInteger,nasInteger,masIntegern=10：m=1:k=1DoWhileK＜=nm=m*2k=k+1LoopMsgBoxmEndSub
正确答案：1024 涉及知识点：模块设计
12．在窗体中添加一个名称为Commandl的命令按钮，然后编写如下程序：PrivateSubo(ByVidpAslnteger)p=p*2EndSubPrivateSubCommandl_C1kk( )Dimi AsIntcgerCails(1)Ifi＞4Thcni=i＾2MsgBoxiEndSub窗体打开运行后，单击命令按钮，则消息框的输出结果为______。

正确答案：36 涉及知识点：模块设计。