1、模块设计练习试卷 3及答案与解析 1 VBA的全称是 _。 2 模块包含了一个声明区域和一个或多个子过程或函数过程 (以 _开头 )。 3 窗体模块和报表模块都属于 _。 4 说明变量最常用的方法是使用 _结构。 5 VBA中变量作用域分为 3个层次，这 3个层次是局部变量、模块变量和_。 6 在 Access中模块分为 _和 _两种类型。 7 执行下面的程序段后， b的值为 _。 8 执行下面的程序，消息框的输出结果是 _。 optionBase1 PrivateSubCommandl_Click() Dima(10),P(3)AsInteger K=5 Fori=1To10 a(i)=i
2、Nexti Fori=1To3 p(i)=a(i*i) NextI Fori=1To3 k=k+p(i)*2 Ncxti MsgBoxk Endsub 9 以下是一个竞赛评分程序。 8位评委，去掉一个最高分和一个最低分，计算平均分 (设满分为 10分 )。请填空补充完整。 PrivateSubForm_Click() DimMaxasInteger,MinasInteger DimiasInteger,xasInteger,sasInteger DimppasSingle Max=0 Min=10 Fori=1To8 x=Vid(1nputBox(“请输入分数 :“) If_IhenMax=x
3、 If_ThhcnMin=x s=s+x Nexti 10 在窗体上添加一个命令按钮 (名为 Command1)，然后编写如下程序， Functionm(xasInteger,yasInteger)asInteger m=If(x y,x,y) EndFunction PrivateSubCununandl_Click() DimaasInteger,basInteger a=1 b=2 MsgBoxm(a,b) EndSub 打开窗体运行后，单击命令按钮，消息框的输出结果为 _。 11 某个窗体已编写如下事件过程。打开窗体运行后，单击窗体，消息框的输出结果为 _。 PrivateSubFor
4、m_Click() DimKasInteger,nasInteger,masInteger n=10： m=1:k=1 DoWhileK =n m=m*2 k=k+1 Loop MsgBoxm EndSub 12 在窗体中添加一个名称为 Commandl的命令按钮，然后编写如下程序： PrivateSubo(ByVidpAslnteger) p=p*2 EndSub PrivateSubCommandl_C1kk() DimiAsIntcger Cails(1) Ifi 4Thcni=i 2 MsgBoxi EndSub 窗体打开运行后，单击命令按钮，则消息框的输出结果为 _。 模块设计练习试
5、卷 3答案与解析 1 【正确答案】 VisualBasicforApplication 【知识模块】 模块设计 2 【正确答案】 Function 【知识模块】 模块设计 3 【正确答案】 类模块 【知识模块】 模块设计 4 【正确答案】 Dim.As. 【知识模块】 模块设计 5 【正确答案】 全局变量 【知识模块】 模块设计 6 【正确答案】 类模块、标准模块 (次序无先后 【知识模块】 模块设计 7 【正确答案】 5 【知识模块】 模块设计 8 【正确答案】 33 【知识模块】 模块设计 9 【正确答案】 X 9naK、 x min、 s-min-max 【知识模块】 模块设计 10 【正确答案】 2 【知识模块】 模块设计 11 【正确答案】 1024 【知识模块】 模块设计 12 【正确答案】 36 【知识模块】 模块设计
