课后习题第十章
2011-05-16 09:44阅读：
第十章 模块
一、选择题
1、在VBA 语言中，以下关于运算优先级比较，叙述正确的是（
）。
A.算术运算符
> 关系运算符 >连接运算符 > 逻辑运算符
B.算术运算符
> 连接运算符 >关系运算符 > 逻辑运算符
C.关系运算符
>算术运算符 >连接运算符 > 逻
辑运算符
D.关系运算符
>连接运算符 >算术运算符 > 逻辑运算符
2、一般用于存放其他ACCESS数据库对象使用的公共过程称为（ ）。
A.类模块
B.标准模块
C.宏模块
D.窗体模块
3、表示“标签”控件对象的标题属性是（
）。
A.caption 属性
B.reports 属性 C.docmd
属性 D.text 属性
4、布尔型数据转换为其他类型数据时，false转换为（ ）。
A.0
B.1
C.-1
D.2
5、连接式“3+4”&”=”&”( 3+4)的运算结果为（
）。
A.3+4
B.&3+4 C.
(3+4) &
D.3+4=7
6、根据条件选择执行路径，又可称选择结构的执行语句是（
）。
A.顺序结构
B.条件结构
C.循环结构 D.层次结构
7、用于实现无条件转移的是（
）。
A.goto语句
B.if语句 C.switch 语句
D.if...else ...语句
8、执行语句：msgbox
“AAAA”,VBOKCancel+vbQuestion,”BBBB”之后，弹出的信息框外观样式是（
）。
A
图10-1
B
图10-2
C
图10-3
D
图10-4
9、能被“对象所识别的动作”和“对象可执行”的活动分别称为对象的（
）。
A.方法和事件
B.事件和方法 C.事件和属性
D.过程和方法
10、下列逻辑表达式中，能正确表示条件“X和Y至少有一个是偶数”的是（ ）。
A.X Mod 2=0 OR Y Mod 2=0
B.X Mod 2=1 OR Y Mod
2=1
C.X Mod 2=0 And Y Mod 2=0
D.X Mod 2=1 And Y Mod
2=1
11、定义了二维数组
A(3 to 5,6)，则该数组的元素个数为（
）。
A.18
B.27
C.21
D.30
12、以下内容中不属于VBA提供的数据验证函数是（ ）。
A.isdate
B.isnull
C.isnumeric
D.istest
13、以下程序段运行后，消息框的输出结果是（
）。
a=sqr(5)
b=sqr(4)
c=a>b
msgbox
c+2
A.-1
B.1 C.2
D.出错
14、假定有以下循环结构
Do
Until 条件
循环体
Loop
则正确的叙述是（
）
A.如果“条件”值为0，则一次循环体也不执行
B.如果“条件”值为0，则至少执行一次循环体
C.如果“条件”值不为0，则至少执行一次循环体
D.不论“条件”是否为“真”，至少要执行一次循环体
15、已定义好有参数f(n)，其中形参n是整型量。下面调用该函数，传递实参为5，将返回的函数值赋给变量s。以下正确的是（ ）。
A.s=f(5)
B.s=f(n) C.s=call f5)
D.s=call f(n)
16、以下可以得到“2+6=8”的结果的VBA表达式是（ ）。
A.“2+6” &”=” & 2+6
B.” 2+6”+”=”+2+6
C.2+6& “=” & 2+6
D.2+6 +”=” +
2+6
17、假定窗体的名称为fmTest，则把窗体的标题设置为“ACCESS”的语句是（ ）。
A.Me=”ACCESS”
B.Me.caption=”ACCESS”
C.ME.text=”ACCESS ”
D.Me.name=”ACCESS”
18、窗体上添加3个命令按钮，分别命名为command1、command2和command3，编写command1的单击事件过程，完成的功能为：当单击按钮command1时，按钮comand2可用，按钮command3不可见，以下正确的是（ ）。
A.
Private sub command1_click(
)
Command2.visible=true
Command3.visible=false
End sub
B.
Private sub command1_click(
)
Command2.visible=true
Command3.visible=false
End sub
C.
Private sub command1_click(
)
Command2.Enabled=true
Command3. visible
=false
End sub
D.
Private sub command1_click(
)
Command2.visible=true
Command3.enabled=false
End sub
19、用于获得字符串str从第二个字符开始的3个字符的函数是（ ）。
A .mid(str,2,3)
B .middle(str,2,2)
C .right(str,2,3)
D .left(str,2,3)
20、假定有以下程序段
n=0
for a=1 to 5
for b=2 to 10 step
2
n=n+1
next b
next a
运行完毕后，n的值是（
）。
A.0
B.1
C.10
D.25
21、VBA代码调试过程中，能够显示出所有在当前过程中变量声明及变量值信息的是（
）。
A.本地窗口
B.立即窗口
C.监视窗口
D.快速监视窗口
22、假定有以下程序段
n=0
for i=1 to 3
for j=-4 to -1
n=n+1
next j
next I
运行完毕后，n的值是（
）。
A.0
B.3
C.4
D.12
23、在Access中编写事件过程使用的编程语言是（
）
A.QBASIC
B.VBA
C.SQL
D. C++
24、在VBA中有返回值的处理过程是（
）
A．声明过程
B．Sub过程
C．Function 过程
D．控制过程
25、当前对象（如窗体）的引用关键字是（
）
A．Active
B．Me
C．Docmd
D．Ctrol
二、填空题
1、窗体模块和报表模块都属于（
）。
2、VBA语言中，函数InputBox的功能是（ ）。
3、在VBA中字符串的类型标识符是（ ），整型的类型标识符是(
)，日期时间型的类型标识符是( )。
4、在VBA中，布尔型数据转换为其他类型数据时，false转换为：(
)，true转换为：(
)。
5、以下程序段运行后，消息框的输出结果为(
)。
a=abs (3)
b=abs (-2)
c=a>b
msgbox
c+1
6、用逻辑表达式表达出“X和Y都是偶数”，则表达式为：(
)。
7、连接式“2*8”&”=”&”( 2*8)的运算结果为：(
)。
8、在函数中每个形参必须有(数据类型)。
9、select case结构运行时，首先计算（
）的值。
10、重复结构分为当型和（
）循环。
11、写出下列表达式的值：
(2+8*3)/2 (
)
3^2+8
(
)
#11/22/99#-
( )
″ZYX″& 123 &″ABC″(
)
12、模块包含了一个声明区域和一个或多个子过程( )或函数过程（
）。
13、说明变量最常用的方法，是使用（
结构。
14、VBA的错误处理主要使用（
）语句结构。
15、VBE的代码窗口顶部包含两个组合框，左侧为对象列表，右侧为(
)。
16、VBA中打开报表的命令语句是（
）。
17、VBA中变量作用域分为3个层次，这3个层次是局部变量、模块变量和(
)。
18、VBA的全称是（
）。
19、下列程序的执行结果是（
）。
x=100
y=50
if x>y then x=x-y else x=y+x
Print x,y
20、下列程序运行的结果为(
),执行完该程序后，共循环了(
)次。
Dim x As Integer
Dim I As Integer
Dim j As Integer
For I=1 to 17 step 2
For j=l to 3 step
2
x=x+j
Next j
Next I
Print
x
21、下列程序，当a的输入值为5，10，15时的结果为（ ）
Dim x As Integer
x=InputBox(“请输入a的值”)
if x>10 then
if x>=15 then print“A”else
print“B”
else
if x>=5 then print“C”else
print“D”
end if
22、以下程序段的输出结果是(1 2 3)
num=0
While num<=2
num=num+1
Print num
Wend
23、设有以下窗体单击事件过程：
Private
Sub Form_Click（）
a＝1
For
i＝1 to
3
Select
Case i
Case
1，3
a＝a＋1
Case
2，4
a
＝a ＋2
End
Select
Next
i
MsgBox
a
End
Sub
打开窗体运行后，单击窗体，则消息框的输出内容是（ ）
24、某窗体已编写以下事件过程。打开窗体运行后，单击窗体，消息框的输出结果为（
）
private
sub form_click()
dim k as integer , n as integer
, m as integer
n=10 : m=1 :k=1
do while
k<=n
m=m*2
k=k+1
loop
msgbox
m
end sub
25、在窗体上添加一个命令按钮（名为command1），然后编写如下程序：
function m (x as integer) as
integer
m=iif(x>y , x ,
y)
end function
private sub
command1_click(0
dim a as integer ,b as
interger
a=10
b=20
msgbox m(a,b)
end sub
打开窗体运行后，单击命令按钮，消息框的输出结果为（ ）
26、设有以下窗体单击事件过程：
在窗体上添加一个命令按钮（名为command1）和一个文本框（名为text1）,然后编写如下事件过程：
private sub command1_click(
)
dim x as integer,y as integer,z
as integer
x=5:y=7:z=0
me!text1=””
call pi(x,y,z)
me!text1=z
end sub
sub pi(a as integer,b as
integer,c as integer)
c=a+b
end sub
打开此窗体运行后，单击命令按钮，文本框中显示的内容是（
）
27、执行下面程序，当输入的值为5时输出为（ ）。
Private Sub
Form-Click()
Dim x As Single
x=InputBox(″X″)
if x<0 then
y=1:print y
elseif x>=0
then
y=3:print y
else
y=4:print y
end if
End
Sub
Sub
28、下面的For语句循环体要执行100次，请填空。
For k=（ ）to-7 step-3
29、下面程序段运行后，输出结果为（
）。
Dim x As Integer
Dim I As Integer
x=0
for I=0 to 50 step
10
x=x+I
next I
Print x
30、设a=2,b=3,c=4,d=5,求下列表达式的值：
(1)a>b AND c<=d OR 2*a>=c
（ ）
(2)3>2*b OR a=c AND b<>c OR c>d
(
)
(3)NOT a<=c OR 4*c=b^2 AND b<>a+c
(
)
三、简答题
1、什么是模块？它有什么作用？
2、有一个VBA计算程序的功能如下，该程序用户界面由四个文本框和三个按钮组成。4个文本框的名称分别为text1，text2，text3，text4。3个命令按钮分别为：清除（名为command1），计算（名为command2）和退出（名为command3）。窗体打开运行后，单击清除按钮，则清除所有文本框中显示的内容；单击计算按钮，则计算在text1、text2和text3三个文本框中输入的3科成绩的平均成绩并将结果存放在text4文本框中；单击退出按钮则退出。如何用代码实现？
3、新建一个窗体，放置两个按钮和一个文本框，按钮的名称分别为“com显示”、“com清除”；按钮的标题分别为“显示”、“清除”，文本框的名称定义为“txt 你好”。编写代码，使按钮实现相应的功能。
4、程序运行的结果为
1
11 12
21 22 23
31 32 33 34
编写代码实现。
5、设计一个用户登录窗体，输入用户名和密码，如用户名或密码为空，则给出提示，重新输入，如用户名(“abc”)或密码(123)不正确，则给出错误信息，结束程序运行，如用户和密码正确，则显示“欢迎”。
6、用代码实现程序的功能：由输入的分数确定结论，分数是百分制，0到59分的结论是“不及格”；60到79分的结论是“及格”：80到89分的结论是“良好”：90到100的结论是“优秀”；分数小于0或大于100是“数据错误!”。
7、下面的程序段是检查输入的文字段中大括号是否配对，并显示相应的结果。本程序在文本框中边输入，边统计大括号的个数，以Enter键作为输入结束的标志，然后显示结果。请将程序填写完整。
Dim x%,str
As String
Private Sub
Text1-KeyPress(KeyAscii As Integer)
Str=_______
If str″{″then
x=x+1
Elseif
str=″}″
then_______
if KeyAscii=13then
if _______
then
Print″左右大括号配对″
Else if
____
then
Print″左大括号多″；x；″个″
else
Print″右大括号多″；x；″个″
end
if
end if
End Sub
8、什么是类模块？什么是标准模块？它们各有什么特点？
9、什么是函数过程？什么是子过程？
10、什么是事件过程？它有什么特点？
11、ＶＢＡ程序包含几种流程控制？
12、以下是一个竞赛评分程序的作用是什么？
Private sub
form_click()
Dim max as integer, min as
integer
Dim I as interger, x as
integer, s as interger
Dim j as single
max=0
min =10
For i=1 to 10
x=val(inputbox(“请输入分数：“))
If
x>max then
max=x
If
x<min then
min=x
s=s+x
s=s-max-min
j=s/8
Msgbox
“最后得分“+j
End sub
13、变量类型对整个程序的运行速度有没有影响？在定义变量时应遵循哪些原则？
14、在VBA中选择结构一共有几种？循环结构呢？
15、如何在窗体中调用模块的功能？
16、编写一个求解圆面积的函数过程Ａrea（）
