第10章 模块与VBA程序设计习题(二)

run，事件代码如下：
Private Sub run_Click( )
result = "" For i= 1 To Me!n
For j = 1 To Me!n result = result + "*"
A、 **** **** **** ****
B、 *
*** ***** *******
Next j result=result+Chr(13)+Chr(10) Next i MsgBox result End Sub
A、21 B、22 C、23 D、24
16. 执行语句：MsgBox "AAAA"，vbOKCancel+vbQuestion，"BBBB"
之后，弹出的信息框___C___。
A、标题为"BBBB"、框内提示符为"惊叹号"、提示内容为"AAAA"
B、标题为"AAAA"、框内提示符为"惊叹号"、提示内容为"BBBB"
第10章 模块与VBA程序设计
25. 在窗体中添加一个名称为C1的命令按钮，然后编写如下事件代码：
Private Sub C1_Click( )
a = 75
If a>60 Then
k=1
ElseIf a>70 Then
k=2
ElseIf a>80 Then
k=3
ElseIf a>90 Then
k=4
D、,
5. InputBox函数的返回值类型是___B___。
A、数值 B、字符串
C、变体 D、数值或字符串（视输入的数据而定）
2020年3月4日星期三
信息技术学院本科公共基础部
版权所有 董晓莹
第10章 模块与VBA程序设计
6. 下列Case语句中错误的是___C___。
A、Case 0 To 10
2020年3月4日星期三
信息技术学院本科公共基础部
版权所有 董晓莹
第10章 模块与VBA程序设计
20. 假定有以下程序段 n=0 for i=1 to 3 for j=-4 to -1 n=n+1 next j next i
运行完毕后，n的值是____D__。
A、0 B、3 C、4 D、12
21. 以下程序段运行结束后，变量
B、Case Is>10
C、Case Is>10 And Is<50 D、Case 3,5,Is>10
7. 下列不是分支结构的语句是___B___。
A、If … Then … EndIf
B、While … Wend
C、If … Then … Else … EndIf D、Select … Case … End Select
C、标题为"BBBB"、框内提示符为"问号"、提示内容为"AAAA"
D、标题为"AAAA"、框内提示符为"问号"、提示内容为"BBBB"
2020年3月4日星期三
信息技术学院本科公共基础部
版权所有 董晓莹
第10章 模块与VBA程序设计
17. 以下程序运行后，消息框的输出结果是___B___。
a=sqr(3)
2020年3月4日星期三
信息技术学院本科公共基础部
版权所有 董晓莹
第10章 模块与VBA程序设计
1. VBA程序流程控制的方式是___D___。
Байду номын сангаас
A、顺序控制和分支控制
B、顺序控制和循环控制
C、循环控制和分支控制 D、顺序、分支和循环控制
2. 在Access中，如果要处理具有复杂条件或循环结构的操作，则应该使用
x的值为___C___。
x=2
y=4
Do
x=x*y
y=y+1
Loop While y<4
A、2
B、4
C、8 D、20
2020年3月4日星期三
信息技术学院本科公共基础部
版权所有 董晓莹
第10章 模块与VBA程序设计
22. 在窗体中添加一个命令按钮 （名称为Command1），然后 编写如下代码：
Private Sub Command1_Click() a=0:b=5:c=6 MsgBox a=b+c
第10章 模块与VBA程序设计
章节习题练习（二）
2020年3月4日星期三
信息技术学院本科公共基础部
版权所有 董晓莹
第10章 模块与VBA程序设计
第二部分 VBA程序流程控制部分小结
1. 程序结构类型（顺序/选择/循环） 2. 程序语句组成(注释语句/赋值语句/输入输出语句/变量声明) 3. 语句书写规则（连写/换行/缩进格式) 4. 输入函数InputBox的使用 5. 输出语句（函数）MsgBox使用 6. 分支结构的四种格式 7. 具有选择功能的三个函数(IIF/Switch/Choose) 8. 循环结构（for/do/For Each/GoTo）
x=n/i n=n+1 sum = sum + x
sum=0,n=0,x=0 i=1,x=0/1,n=0+1,sum=0+0/1 i=2,x=1/2,n=2,sum=0+1/2 i=3,x=2/3,n=3,sum=1/2+2/3 i=4,x=3/4,n=4,sum=1/2+2/3+3/4 i=5,x=4/5,n=5,sum=1/2+2/3+3/4+4/5
循环体 Loop While 条件式
2020年3月4日星期三
信息技术学院本科公共基础部
版权所有 董晓莹
第10章 模块与VBA程序设计
24. 设有如下程序
Private Sub Command1_Click( )
Dim sum As Double, x As Double
sum = 0
n=0 For i=1 To 5
EndIf
MsgBox k
End Sub
窗体打开运行后，单击命令按钮，则消息框的输出结果是___A___。
A、1 B、2 C、3
D、4
2020年3月4日星期三
信息技术学院本科公共基础部
版权所有 董晓莹
第10章 模块与VBA程序设计
26. 在窗体中使用一个文本框（名为n）接受输入的值，有一个命令按钮
A、对输入的10个数据求累加和 B、对输入的10个数据求各自的余数，然后再进行累加
num = InputBox("请输入数据:", "输入",1)
If Int(num/2) = num/2 Then
a=a+1
Else b=b+1
C、对输入的10个数据分别统计有几个是整数，有几个是非整数 D、对输入的10个数据分别统计有几个是奇数，有几个是偶数
13. 设a=6，则执行
x=IIF(a>5,-1,0)
后，x的值为___D___。
A、6 B、5 C、0
D、-1
14. 已知程序段：
s=0
For i = 1 To 10 Step 2
s=s+1
i=i*2
Next i
C
第1次循环： i=1,s=1,i=i*2=2,step后，i=4
第2次循环： i=4,s=2,i=i*2=8,step后,i=10
如果输入的成绩不在0到100分之间，则要求重新输入；如果输入的成绩正确，
则进入后续程序处理。run35命令按钮的Click的事件代码如下：
Private Sub run35_Click( )
A、x<=7 B、x<7 C、x>=7 D、x>7
12. 若变量i的初值为8，则下列循环语句中循环体的执行次数为___C___。
Do While i<=17 i= i+2
Loop A、3次 B、4次 C、5次 D、6次
2020年3月4日星期三
信息技术学院本科公共基础部
版权所有 董晓莹
第10章 模块与VBA程序设计
A、 a=5:b=8 Do a=a+1 Loop While a < b
B、 a=5:b=8 Do a=a+1 Loop Until a < b
C、 a=5:b=8 Do Until a < b b=b+1 Loop
D、 a=5:b=8 Do Until a > b a=a+1 Loop
2020年3月4日星期三
信息技术学院本科公共基础部
版权所有 董晓莹
第10章 模块与VBA程序设计
28. 在窗体中有一个命令按钮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
x=5 For I = 1 To 20 Step 2
x = x + I \5 Next I
X=5 I=1,3 X=5+1\5+3\5=5 I=5,7,9 X=5+5\5+7\5+9\5=8 I=11,13 X=8+11\5+13\5=12 I=15,17,19 X=12+15\5+17\5+19\5=21
End If
Next i