《VBA模块习题幻灯片》由会员分享，可在线阅读，更多相关《VBA模块习题幻灯片（60页珍藏版）》请在金锄头文库上搜索。
1、1,Ch 8 模块习题,2,目录,基本概念 模块 面向对象程序设计 编程基础 数据类型 常量、变量、运算符与表达式、函数 数组 流程控制 顺序结构 分支结构 循环结构 过程 数据库编程,3,基本概念：模块,模块,标准模块,类模块,宏,VBA代码容器，实现复杂数据库应用,声明,过程,4,在下列关于宏和模块的叙述中，正确的是（ ）。 A 模块是能够被程序调用的函数 B 通过定义宏可以选择或更新数据 C 宏或模块都不能是窗体或报表上的事件代码 D 宏可以是独立的数据库对象，可以提供独立的操作动作 能被“对象所识别的动作”和“对象可执行的活动”分别称为对象的（ ）。 A 方法和事件 B 事件和方法 C
2、 事件和属性 D 过程和方法,5,基本概念：面向对象程序设计,对象,属性（静态特征）,方法（动态特征）,事件,静态赋值： 属性窗口,动态赋值： 代码,对象可执行的活动,对象所识别的动作,6,窗体上添加有3个命令按钮，分别命名为command1、command2、command3。编写command1的单击事件过程，完成的功能为：当单击command1时，按钮command2可用，按钮command3不可见，以下正确的是（） A Private Sub command1_Click() command2.Visible=True command3.Visible=False End Sub C
3、Private Sub command1_Click() command2.Enabled=True command3.Visible=False End Sub,B Private Sub command1_Click() command2.Enabled=True command3.Enabled=False End Sub D Private Sub command1_Click() command2.Visible=True command3.Enabled=False End Sub,7,假定窗体的名称为frmTest，则把窗体的标题设置为“Access Test”的语句是（）。 A
4、 Me=Access Test B Me.Caption=Access Test C Me.text=Access Test D Me.Name=Access Test“ Access的控件对象可以设置某个属性来控制对象是否可用（不可用时显示为灰色状态）。需要设置的属性是（）。 A Default B Cancel C Enabled D Visible,8,在窗体中有一个标签Label0，标题为“测试进行中”；有一个命令按钮Command1，事件代码如下： Private Sub Command_Click() Label0.Caption=标签 End Sub Private Sub Fo
5、rm_Load() Form.Caption=举例 Command1.Caption=移动 End Sub 打开窗体后单击命令按钮，屏幕显示（）。,9,发生在控件接受焦点之前的事件是（）。 A Enter B Exit C GotFocus D LostFocus,窗体打开时事件发生的顺序：Open-Load-Resize 窗体关闭时事件发生的顺序：DeActive-Unload-Close,10,编程基础：数据类型,数据类型,基本,自定义,Byte, String$,Integer%, Long4 As Integer D Dim A(3;4) As Integer 语句Dim NewArr
6、ay(10) As Integer的含义是（） A 定义了一个整型变量且初值为10 B 定义了10个整数构成的数组 C 定义了11个整数构成的数组 D将数组的第10个元素设置为整型,28,流程控制,顺序结构,分支结构,循环结构,29,VBA程序的多条语句可以写在一行中，其分隔符必须使用符号（）。 A : B , C ; D . 在Access中，如果要处理具有复杂条件或循环结构的操作，则应该使用的对象是（）。 A 窗体 B 模块 C 宏 D 报表,30,流程控制：分支结构,If 条件1 Then 语句块1 ElseIf 条件2 Then 语句块2 Else 语句块N End If,Select
7、 Case 表达式 Case 值1 语句块1 Case 值2 语句块2 Case Else 语句块n End Select,IIF(条件，语句块1，语句块2) Switch(条件1，语句1，条件2，语句2，) Choose(表达式，值1，值2),条件1,语句1,语句1,语句N,条件2,Yes,No,Yes,No,31,在窗体上添加一个命令按钮command1，代码如下： Private Sub command1_Click() A=75 If A60 Then I=1 If A70 Then I=2 If A80 Then I=3 If A90 Then I=4 MsgBox I End Su
8、b 打开窗体后单击命令按钮，消息框的输出结果是（） A 1 B 2 C 3 D 4,Private Sub command1_Click() A=75 If A60 Then I=1 ElseIf A70 Then I=2 ElseIf A80 Then I=3 ElseIf A90 Then I=4 End If MsgBox I End Sub I=1,32,在窗体上添加一个文本框Text1，代码如下： Private Sub Form_Click() x=Val(InputBox(“请输入x的值”) y=1 if x0 then y=2 text1.value=y End Sub 打开窗
9、体后在输入框中输入12，text1的输出结果是（） A 1 B 2 C 3 D 4 下列Case语句中错误的是（） A Case 0 To 10B Case Is10 C Case Is10 And Is 10,33,流程控制：循环结构1,For 循环变量=初值 to 终值 Step 步长 循环体 Next,循环条件,语句,循环体,No,Yes,Do While 循环条件 循环体 Loop,Do Until 循环条件 循环体 Loop,循环条件,语句,循环体,No,Yes,While 循环条件 循环体 Wend,34,流程控制：循环结构,循环条件,语句,循环体,No,Yes,Do 循环体 Lo
10、op While 循环条件,Do 循环体 Loop Until 循环条件,循环条件,语句,循环体,Yes,No,不论条件是否为真，至少执行一次循环体,35,在窗体上添加一个命令按钮command1，代码如下： Private Sub command1_Click() for i=1 to 4 x=4 for j=1 to 3 x=3 for k=1 to 2 x=x+6 next k next j next I MsgBox x End Sub 打开窗体后单击命令按钮，消息框的输出结果是（） A 7 B 15 C 157 D 538,i=4 x=4 j=1 x=3 k=1 x=x+6=3+6=
11、9 k=2 x=x+6=3+6=15 j=2 x=3 k=1 x=x+6=3+6=9 k=2 x=x+6=3+6=15,36,运行以下程序段： X=2 Y=4 Do x=x*y y=y+1 Loop While y4 X的值是（） A 2 B 4 C 8 D 20,37,在窗体上添加一个命令按钮command1，代码如下： Private Sub command1_Click() s=“ABBACDDCBA” for i=6 to 2 step -2 x= mid (s,i,i) y= left (s,i) z= right (s,i) z=x & y & z next I MsgBox z
12、End Sub 打开窗体后单击命令按钮，消息框的输出结果是（） A. AABAAB B. ABBABA C. BABBA D BBABBA,s=“ABBACDDCBA” i=2 x=mid(s,2,2)=“BB” y=left(s,2)=“AB” z=right(s,2)=“BA” z=x & y & z =“BBABBA”,38,窗体代码如下： 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 打开窗体
13、后单击窗体，结果是（） A 3 B 4 C 5 D 6,39,窗体代码如下： Private Sub Form_Click() dim sum as double, x as double sum=0 n=0 for I=1 to 5 x=n/I n=n+1 sum=sum+x next I End Sub 该程序计算的是下面哪个表达式的值（） A 1+1/2+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,40,在窗体中使有一个文本框（名为n）接受输入的值，有一个命令 按钮run，事件代码如下： Priv
14、ate Sub run_Click() result= For i=1 To Me!n For j=1 To Me!n result=result+* Next j result=result+Chr(13)+Chr(10) Next i MsgBox result End Sub 打开窗体后，如果通过文本框输入的值为4，单击命令按钮后输出的图型是 A B C D * * * * * * * * * * * * * * * *,41,下列四种形式的循环设计中，循环次数最少的是： （） A a=5: b=8 DO a=a+1 Loop While ab C a=5: b=8 DO Until a
15、b b=b+1 Loop,B a=5: b=8 DO a=a+1 Loop Until ab,D a=5: b=8 DO Until ab a=a+1 Loop,42,在窗体中有一个命令按钮run35，对应的事件代码如下： Private Sub run35_Enter() Dim num As Integer Dim a As Integer Dim b As Integer Dim i As Integer For i=1 To 10 num=Input(“请输入数据：”，“输入”，1) If Int(num/2)=num/2 Then a=a+1 偶数分支，4/2取整 = 4/2 Else b=b+1 奇数分支，5/2取整 5/2 End if Next i MsgBox(“运行结果：a=”& Str(a)&”,b=”&Str(b) End Sub A 对输入的10个数据求累加和 B 对输入的10个数据求各自的余数，然后再进行累加 C 对输入的10个数据分别统计有几个整数，有几个非整数 D 对输入的10个数据分别统计有几个奇数，有几个偶数,43,在窗体中有一个命令按钮（名称为run34），对应的事件代码如下： Private Sub run34_
