模块与VBA选择题详解

1、 模块与VBA选择题详解 第 21页 /共 21页1. 模块与VBA编程基础 选择题 详解能被“对象所识别的动作”和“对象可执行的活动”分别称为对象的（）（A） 方法和事件 （B）事件和方法 （C）事件和属性 （D）过程和方法答案（B）事件大部分是鼠标或键盘的动作，如单击、双击等等。2. 在下列关于宏和模块的叙述中，正确的是（）（A） 模块是能够被程序调用的函数（B） 通过定义宏可以选择或更新数据（C） 宏或模块都不能是窗体或报表上的事件代码（D） 宏可以是独立的数据库对象，可以提供独立的操作动作答案（D）A不对，函数是模块中代码的一种形式，B不对，宏不能直接选择更新数据 C不对3. 在Acc

2、ess数据库中，如果要处理具有复杂条件或循环结构的操作，则应该使用的对象（）（A） 窗体 （B）模块 （C）宏 （D）报表答案（B）只有模块能实现复杂的功能。4. 下列不属于类模块对象基本特征的是（）（A）事件 （B）属性 （C）方法 （D）函数答案（D）查看对应的定义5. 下列关于VBA事件的叙述中，正确的是（）（A）触发相同的事件可以执行不同的事件过程（B）每个对象的事件都是不相同的（C）事件都是由用户操作触发的（D）事件可以由程序员定义答案（A）显然相同的事件中可以执行不同的代码，打开模块编辑代码的一种方式就是在事件中添加代码，这里的代码是由编程者自己编写的，可以修改。6. 发生在控件接

3、收焦点之前的事件是（）（A）Enter （B）Exit （C）GotFocus （D）LostFocus答案（A）以文本框为例，当光标“I”在一个文本框中（假设名字为text1）闪烁时，说明焦点在此控件中，鼠标点击到另一个文本框（假设名字为text2）中时，首先触发text1的Exit事件，然后触发text2的Enter事件。7. 在VBA中，如果没有显示声明或用符号来定义变量的数据类型，变量的默认数据类型为（）（A）Boolean （B）Int （C）String （D）Variant答案（D）。查看课本208页最上方。8. 下列数据类型中，不属于VBA的是（）（A）长整型 （B）布尔型 （

4、C）变体型 （D）指针型答案（D）。指针型是C语言中使用的，选项C中的变体型指的是Variant类型9. 如下程序段定义了学生成绩的记录类型，由学号、姓名和三门课程成绩(百分制)组成。 Type Stud no As Integer name As String score(1 to 3)As Single End Type 若对某个学生的各个数据项进行赋值，下列程序段中正确的是( )（A）Dim S As Stud Stud.no=1001 S="舒宜" Stud.score=78,88,6（B）Dim S As Stud S.no=1001 S.name

5、="舒宜" S.score=78,88,96（C）Dim S As Stud Stud.no=1001 S="舒宜" Stud.score(1)=78 Stud.score(2)=88 Stud.score(3)=96（D）Dim S As Stud S.no=1001 S.name="舒宜" S.score(1)=78 S.score(2)=88 S.score(3)=96答案（D）。解释如下图，需要用到数组如何赋值的知识10、下列变量名中，合法的是（）（A）4A （B）A-1 （C）ABC_1 （D）private

6、答案（C）。选项A以字母开头，选项B是一个运算表达式，选项D中private是VBA的关键字，参考课本中207页变量的命名规则12、下列给出的选项中，非法的变量名是（）（A）Sum （B）Integer_2 （C）Rem （D）Form1答案（C）。Rem是关键字，代表注释13、VBA中定义符号常量可以用关键字_。（A）Const （B）Dim （C） Public （D）Static答案（A）。记忆，课本208页。14、以下可以得到“2*5=10”结果的VBA表达式为_。 （A）“2*5”&“=”&2*5 （B）“2*5”+“=”+2*5（C） 2*5 &“=”&am

7、p;2*5 （D）2*5+“=”+2*5答案（A）。15、下列逻辑表达式中，能正确表示条件“x和y都是奇数”的是( )。 （A） x Mod 2=1 Or y Mod 2=1（B） x Mod 2=0 Or y Mod 2=0（C） x Mod 2=1 And y Mod 2=1（D） x Mod 2=0 And y Mod 2=0答案（C）。为奇数等同于除以2余数是116、下列逻辑表达式中，能正确表示条件“x和y都是偶数”的是( )。（A） x Mod 2=1 Or y Mod 2=1（B） x Mod 2=0 Or y Mod 2=0（C） x Mod 2=1 And y Mod 2=1（

8、D） x Mod 2=0 And y Mod 2=0答案（D）。为奇数等同于除以2余数是017、在使用Dim语句定义数组时，在默认情况下数组下标的下限为（）（A）0 （B）1 （C）2 （D）3答案（A）。参见课本上209页下方关于数组下标的说明。18、语句Dim NewArray(10) As Integer的含义是_。 （A）定义了一个整型变量且初值为10（B）定义了10个整数构成的数组（C）定义了11个整数构成的数组（D）将数组的第10元素设置为整型答案（C）。理解数组定义时小括号里的数值代表编号的上限，而不是数组中数据的个数，数组从0开始编号，所以有编号分别为0,1,2,3,4,5,6

9、,7,8,9,10的11个整数19、定义了二维数组A(2 to 5,5)，该数组的元素个数为( )。 A20B24C25D36答案（B）。同上题，行编号为2,3,4,5有4个，列编号为0,1,2,3,4,5有6个，组合起来有4*6=2420、在模块的申请部分使用“Option Base 1”语句，然后定义二维数组A（2 to 5,5），则该数组元素个数为（）A20B24C25D36答案（A）通过定义题中的语句，编号下线改为1，所以行编号2,3,4,5有4个，列编号1,2,3,4,5有5个，共4*5=20个。21、VBA程序的多条语句可以写在一行中，其分隔符必须使用符号（）（A）： （B） (C

10、)； （D），答案（A）记忆22、VBA程序中，可以实现代码注释功能的是（）（A）方括号 （A）冒号: （A）双引号” （D）单引号答案（D） 记忆23、VBA程序流程控制的方式有（）A)顺序控制和分支控制 B)顺序控制和循环控制C)循环控制和分支控制 D)顺序、分支和循环控制答案（D）查看课本上流程控制的方式24、假定窗体的名称为fmTest，则把窗体的标题设置为“Access Test”的语句是（）（A）Me = “Access Test” （B）Me.Caption = “Access Test”（C）Me.text = “Access Test” （D）Me.Name = “Acces

11、s Test”答案（B）记忆设置标题的语句，应该设置Caption属性，Caption翻译为中文就是标题25、下列能够交换变量X和Y值的程序段是（）（A）Y=X： X=Y （B）Z=X: Y=Z：X=Y（C）Z=X: X=Y: Y=Z （D）Z=X: W=Y: Y=Z: X=Y答案（C）交换之前需要先把只保存到另一个变量中26、Access的控件对象可以设置某个属性来控制对象是否可用（不可用时显示为灰色状态）。需要设置的属性是A）Default B）Cancel C）Enabled D）Visible答案（C）。记忆。Enable的英文意思就是 “使可用”27、窗体上添加有3个命令按钮，分别命

12、名为Command1、Command2和Command3。编写Command1的单击事件过程，完成的功能为：当单击按钮Commandl时，按钮Command2可用，按钮Command3不可见。以下正确的是A）Private Sub Command1_Click() C）Private Sub Command1_Click()Command2.Visible=True Command2.Enabled=TrueCommand3.Visible=False Command3.Visible=FalseEnd Sub End SubB）Private Sub Command1_Click() D）P

13、rivate Sub Command1_Click()Command2.Enabled=True Command2.Visible=TrueCommand3.Enabled=False Command3.Enabled=FalseEnd Sub End Sub答案（C）。需要理解Enable属性和Visible属性，和上体相同28、22.以下程序段运行后，消息框的输出结果是Sqr(n)求n的平方根a=sqr(3)True:-1False:0b=sqr(2)c=a>bMsgBox c+2A）-1 B）1 C）2 D）出错答案：（B）参见黄色文本框中的说明29、13.在窗体中添加一个命令按钮

14、（名称为Command1），然后编写如下代码：Private Sub Command1_Click( )a=0 : b=5 : c=6MsgBox a=b+cEnd Sub窗体打开运行后，如果单击命令按钮，则消息框的输出结果为A）l1 B）a=11 C）0 D）False答案：（D）需要记忆，此时a=b+c中的=被当做了判断是否相等DBCA30、在窗体中有一个标签Label0，标题为"测试进行中"；有一个命令按钮Command1，事件代码如下：Private Sub Command1_Click() Label0.Caption="标签"End SubP

15、rivate Sub Form_Load() Form.Caption="举例" Command1.Caption="移动"End Sub打开窗体后单击命令按钮，屏幕显示答案（D）如图所示，每条语句所做设置在图中做了标注31、在窗体中有一个标签Lb1和一个命令按钮Command1，事件代码如下：Option Compare DatabaseDim a As String*10 定义字符变量a，其长度为10。Private Sub Command1_Click() a="1234" b=Len(a) 注意a的值是 “1234”Me.Lb

16、1.Caption=bEnd Sub打开窗体后单击命令按钮，窗体中显示的内容是A)4 B)5 C)10 D)40答案（C）32、在窗体上添加一个命令按钮（名为Command1）和一个文本框（名为Text1），并在命令按钮中编写如下事件代码：Private Sub Command1_Click( ) m=2.17 n=Len(Str(m)+Space(5) Me!Text1 =nEnd Sub打开窗体运行后，单击命令按钮，在文本框中显示A）5 B）8 C）9 D）10答案（D）需要注意Str(m)的长度是5不是433、在窗口中有1个标签Label10和1个命令按钮Command1，Command

17、1的事件代码如下：Private Sub Command1_Click()Label0.Left = Label0.Left+100End Sub打开窗口，单击命令按钮，结果是（）（A）标签向左加宽 （B）标签向右加宽（C）标签向左移动 （D）标签向右移动答案（D），需要理解该语句改变了标签控件的左边距，因此标签控件向右移动34、在窗体上有1个命令按钮Command1，编写事件代码如下：Private Sub Command_Click（）Dim d1 As DateDim d2 As Dated1 = #12/25/2009#d2 = #1/5/2010#MsgBox DateDiff(“w

18、w”, d1, d2)End Sub打开窗体运行后，单击命令按钮，消息框中输出的结果是（）（A） 1 （B） 2 （C） 10 （D） 11 答案（B）。需要理解DateDiff函数的使用，ww参数代表比较两日期之间的周数，且以星期日的个数计数，因此是2，如果参数是w，也是统计周的个数，但是以实际发生的周数统计，本题中两日期间隔12天，所以如果参数是w，结果是1。35、下列不是分支结构的语句是A)IfThenEndIf B)WhileWendC)IfThenElseEndIf D)SelectCaseEndSelect答案（B）。不是分支是循环结构36、下列不属于VBA函数的是（）（A）Cho

19、ose （B）If （C）IIf （D）Switch答案（B）If是关键字，用在分支结构中，但不是函数37、在窗体中添加一个名称为Command1的命令按钮，然后编写如下事件代码：Private Sub Command1_Click( ) A=75 If A>60 Then I=1 If A>70 Then I=2 If A>80 Then I=3 If A>90 Then I=4 MsgBox IEnd Sub窗体打开运行后，单击命令按钮，则消息框的输出结果是A）1 B）2 C）3 D）4答案（B）因为每条判断语句都要执行，执行完第一条判断句是 I=1，第二句后I=2

20、，第三句、第四局由于条件不满足，所以I值不变。38、在窗体中添加一个名称为Command1的命令按钮，然后编写如下事件代码：Private Sub Command1_Click( ) a=75 If a>60 Then k=1 Else If a>70 Then k=2 Else If a>80 Then k=3 Else If a>90 Thenk=4 End IfMsgBox IEnd Sub窗体打开运行后，单击命令按钮，则消息框的输出结果是A）1 B）2 C）3 D）4答案（A）因为在该分支结构中从上至下，只要一个条件满足，就执行该条件下语句，其它分支不执行，所以

21、只判断一次a>60成立，执行完k=1后直接到结尾。39、窗体中有一个命令按钮run35，对应的事件代码如下：Private Sub run35_Enter()Dim num As IntegerDim a As IntegerDim b As IntegerDim i As IntegerFor i=1 To 10 num=InputBox("请输入数据："，"输入"，1) If Int(num/2)=num/2 Then a=a+1 偶数个数累加；Else b=b+1 奇数个数累加；End IfNext iMsgBox("运行结果：a=

22、" & Str(a) & ",b=" &Str(b)End SubA)对输入的10个数据求累加和B)对输入的10个数据求各自的余数，然后再进行累加C)对输入的10个数据分别统计有几个整数，有几个非整数D)对输入的10个数据分别统计有几个奇数，有几个偶数答案（D）参见图中，对代码的解释。40、窗体中有命令按钮Command32，其Click事件代码如下。该事件的完整功能是：接收从键盘输入的10个大于0的整数，找出其中的最大值和对应的输入位置Private Sub Command32_Click()max =0max_n=0For i=1 To

23、 10Num = Val(InputBox(“请输入第” & i & “个大于0的整数:”)If_ Thenmax = nummax_n=iEnd If Next i MsgBox(“最大值为第” & max_n & “个输入的 ” & max)End Sub程序空白处应该填入的表达式是（）（A）num>i （B）i<max （C）num>max （D）num<max答案（C）需要理解max里储存的是当前的最大值，当它闭某个输入数字num小的时候需要把num里的值赋给max，所以比较条件是C。41、有“For I=1 To 16

24、Step 3”决定的循环结构被执行（）（A） 4次（B）5次 （C）6次 （D）7次答案（C）当I分别等于1,4,7,10,13,16时被执行，共6次42、运行下列程序段，结果是（）For m=10 To 1 Step 0k=k+3Next m（A）形成死循环 （B）循环体不执行（C）出现语法错误 （D）循环体执行一次后结束循环答案（B）参见课本216页中部对决定循环是否执行和步长Step之间关系的说明43、由“For i=1 To 9 Step -3”决定的循环结构，其循环体江北执行（）（A） 0次（B）1次 （C）4次 （D）5次答案（A）同上题，参见课本44、在窗体中有一个命令按钮（名称

25、为run34），对应的事件代码如下：Private Sub run34_Click()sum =0For i=10 to 1 Step -2sum = sum+iNext iMsgbox sumEnd Sub运行以上事件，程序的输出结果是A)10 B)30 C)55 D)其他结果答案（B）i的取值分别为10,8,6,4,2，所以sum的值10+8+6+4+2=3045、若有以下窗体单击事件过程：Private Sub Form_Click()result = iFor i=1 To 6 Step 3result = result*iNext iMsgbox resultEnd Sub打开窗体运

26、行后，单击窗体，则消息框的输出内容是（）（A）1 （B）4 (C)15 (D) 120答案：（B）。i的取值为1,4，因此result的取值为1*4=4。i=1x=n/i=0/1n=n+1=1sum=sum+x=0i=3x=n/i=2/3n=n+1=3sum=sum+x =1/2+2/3i=2x=n/i=1/2n=n+1=2sum=sum+x =0+1/2i=4x=n/i=3/4n=n+1=4sum=sum+x=1/2+2/3+3/4i=5x=n/i=4/5n=n+1=5sum=sum+x=1/2+2/3+3/4+4/546、设有如下程序：Private Sub Command1_Click(

27、)Dim sum As Double, x As Doublesum=0n=0For i=1 To 5 x=n/in=n+1sum=sum+xNext iEnd Sub该程序通过For循环来计算一个表达式的值，这个表达式是A）1+1/2+2/3+3/4+4/5 B）1+1/2+1/3+1/4+1/5C）1/2+2/3+3/4+4/5 D）1/2+1/3+1/4+1/5：答案（C）如图所示，为程序执行过程的说明。47、在窗体中添加一个名称为Command1的命令按钮，然后编写如下事件代码：Private Sub Command1_Click( ) s="ABBACDDCBA"

28、I=6，4，2Mid(s,I,I)从第I个位置向后取I字符。 For I=6 To 2 Step 2 x=Mid(s,I,I) BB y=Left(s,I) AB z=Right(s,I) BA注意：只有I=2时起作用 z=x & y & z BBABBA Next I MsgBox zEnd Sub窗体打开运行后，单击命令按钮，则消息框的输出结果是A）AABAAB B）ABBABA C）BABBA D）BBABBA答案（D）如图所示48、42.设有如下窗体单击事件过程Private Sub Form_Click()a = 1For i=1 To 3 i=1,2,3Select

29、 Case iCase 1,3 i=1 i=3a=a+1 a=2 a=5Case 2,4 i=2 a=a+2 a=4End SelectNext iMsgBox aEnd Sub打开窗体运行后，单击窗体，则消息框的输出的结果是A）3 B）4 C）5 D）6答案（C）49、在窗体中有1个Command1的命令按钮，编写事件代码如下：Private Sub Command1_Click()Dim m(10)10987654321 循环结束后m取值如下For k=1 To 10m(k) = 11-kNext kx =6 Msgbox m(2+m(x) m(x)=5, m(2+5)=4End Sub打

30、开窗体，单击命令按钮，消息框的输出结果是（）（A）2 （B）3 （C）4 （D）5答案（C）50、在窗体中有1个run34的命令按钮，编写事件代码如下：Private Sub run34_Click（）f1=1f2=1n=3 4 5 6 7f=2 3 5 8 13f1=1 2 3 5 8f2=2 3 5 8 13For n=3 To 7f = f1+f2f1=f2f2=fNext nMsgbox fEnd Sub打开窗体，单击命令按钮，消息框的输出结果是（）（A）8 （B）13 （C）21 （D）其它结果答案（B）具体过程如图所示该程序生成的数列 1,1,2,3,5,8,13实际上是斐波那契数

31、列51、假设有以下程序段n=0For i=1 To 3 i=1,2,3For j=-4 To -1 j=-4,-3,-2,-1 n=n+1Next jNext i运行完毕后，n的值是（）（A）0 （B）3 （C）4 （D）12答案（D）i和j分别取3个和4个值，n=n+1共运行3*4=12次所以结果为1252、在窗体中有一个命令按钮Command1和一个文本框Text1，编写事件代码如下：Private Sub Command1_Click() For i = 1 To 4 x = 3 注意：i=1,2,3,4 都执行x=3 因此只有x=4有意义。 For j = 1 To 3 j=1,2,3

32、 3次 For k = 1 To 2 k=1,2 2次 x = x + 3 x=x+3 执行次数为3*2=6 x=21 Next k Next j Next i Text1.Value = Str(x)End Sub打开窗体运行后，单击命令按钮，文本框Text1输出的结果是A)6 B)12 C)18 D)21答案（D）53、在窗体中有一个命令按钮Command1和一个文本框Text1，编写事件代码如下：Private Sub Command1_Click() x =4 For i = 1 To 4 i=1,2,3,4 4次 For j = 1 To 3 j=1,2,3 3次 For k = 1

33、 To 2 k=1,2 2次 x = x + 3 x=x+3 执行次数为4*3*2=24次，结果为24*3+4=76 Next k Next j Next i Text1.Value = Str(x)End Sub打开窗体运行后，单击命令按钮，文本框Text1输出的结果是A)6 B)12 C)21 D)76答案（D）54、在窗体上添加一个命令按钮（名为Command1），然后编写如下事件过程Private Sub Command1_Click（） For i=1 To 4 x = 4注意实际有效值：i=4j=3k=1 to 2x=x+6 For j=1 To 3 x = 3 For k=1 T

34、o 2 x = x+6 Next k Next j Next i MsgBox xEnd Sub打开窗体后，单击命令按钮，消息框的输出结果是A）7 B）15 C）157 D）538答案（B）最后只在i=4，j=3时执行两次 x=x+6，由于x=4和x=3两条语句放在了循环体汇总，前面执行的对x值的修改都是无意义的。55、在窗体上有一个命令按钮Command1和1个文本框Text1，编写事件代码如下：Private Sub Command1_Click()Dim i,j,xFor i=1 To 20 step 2x=0For j=i To 20 step 3x=x+1Next jNext iTe

35、xt1.Value = Str(x)End Sub打开窗体后，单击命令按钮，文本框的显示结果是（A）1 （B）7 （C）17 （D）400答案（A）同上题，有效的是i=19时的循环，此时j=19，因此x=x+1只执行一次56、在窗体中添加一个名称为Command1的命令按钮，然后编写如下事件代码：Private Sub Command1_Click( ) Dim a(10,10)a(m,n)=a(2,5)=2*5=10a(m,n)=a(3,4)=3*4=12a(m,n)=a(4,5)=4*5=20a(2,5)+a(3,4)+a(4,5)=10+12+20=42 For m=2 To 4 For

36、 n=4 To 5 a(m,n)=m*n Next n Next m MsgBox a(2,5)+a(3,4)+a(4,5)End Sub窗体打开运行后，单击命令按钮，则消息框的输出结果是A）22 B）32 C）42 D）52答案（C）57、在窗体中，有1个文本框（名为n）接受输入的值，有一个命令按钮run，事件代码如下：Private Sub run_Click()result=""For i=1 To Me!n i=1, 2, 3, 4 4次For j=1 To Me!n j=1, 2, 3, 4 4次result=result+"*" 内层：* *

37、 * * Next j空 格回 车result=result+Chr(13)+Chr(10) 外层：* * * * Next i chr将ASCII转换成字符MsgBox resultEnd Sub打开窗体后，如果通过文本框输入的值为4，单击命令按钮后输出的图型是A)* B) * * * *C) * D) * * * *答案（A）58、在VBA中，错误的循环结构是A) Do While 条件式 B) Do Until 条件式循环体 循环体Loop LoopC) Do Until D) Do循环体 循环体Loop 条件式 Loop While 条件式答案（C）。Until关键字后面必须跟条件59

38、、假定有以下循环结构Do Until 条件 条件为假时执行循环体。循环体Loop则正确的叙述是A）如果"条件"值为0，则一次循环体也不执行B）如果"条件"值为0，则至少执行一次循环体C）如果"条件"值不为0，则至少执行一次循环体D）不论"条件"是否为"真"，至少要执行一次循环体答案（B），参照课本217页内容理解until循环结构的使用。60、若变量i的初值为8，则下列循环语句中循环体的执行次数为（）Do While i<=17i=i+2Loop（A）3次 （B）4次 （C）5次 （D）6

39、次答案（C）。i=8,10,12,14,16时执行共5次61、设有如下过程：x=1Dox=x+2Loop until_运行程序，要求循环执行3次后结束循环，空白处应该填入的语句是（）（A）x<=7 （B）x<7 （C）x>=7 （D）x>7答案（C）。对于until语句，条件满足时结束循环，执行3次后x=7，所以条件为C，如果设置为A，第一次就会结束循环62、以下程序段运行结束后，变量x的值为（）x=2y=4Dox=x*yy=y+1Loop While y<4（A）2 （B）4 （C）8 （D）20答案（C），循环体中语句仅执行一次，x=2*4=863、下列四种形

40、式的循环设计中，循环次数最少的是a=5a=65<6 真退出1次a=5a=6a=7a=8 退出3次A) a=5:b=8 B) a=5:b=8 DO DO a=a+1 a=a+1 Loop While a<b Loop Until a<ba=5a=85<8 真一次不执行C) a=5: b=8 D) a=5:b=8 DO Until a<b DO Until a>b a=a+1 a=a+1 Loop Loopa=5a=6a=7a=8 a=9 9>8真退出4次答案（C）64、在窗体中有一个名称为run35的命令按钮，单击该按钮从键盘接收学生成绩，如果输入的成绩

41、不在0到100分之间，则要求重新输入；如果输入的成绩正确，则进入后续程序处理。run35命令按钮的Click的事件代码如下：Private Sub run35_Click() Dim flag As Boolean result = 0 flag=True Do while flagresult = Val(InputBox("请输入学生成绩：","输入") If result >=0 And result <=100 Then _Else MsgBox "成绩输入错误，请重新输入"End IfLoopRem 成绩输入正确

42、后的程序代码略End Sub程序中有一空白处，需要填入一条语句使程序完成其功能，下列选项中错误的语句是A)flag= False B)flag=Not flag C)flag = True D)Exit Do答案（C）用flag=True标记输入的数值是否正确，如果正确就可以跳过输入步骤，继续执行后续程序。65、在窗体上有1个命令按钮Command1，编写事件代码如下：Private Sub Command1_Click()Dim y As Integery=0Doy=InputBox(“y=”)If (y Mod 10)+Int(y/10) = 10 Then Debug.Print y;

43、Loop Until y=0End Sub打开窗体运行后，单击命令按钮，依次输入10、37、50、55、64、20、28、19、-19、0，立即窗口上输出的结果是（）（A）37 55 64 28 19 19 （B） 10 50 20（C） 10 50 20 0（D）37 55 64 28 19答案（D）。在这些语句中 y Mod 10获得了y个位数，Int(y/10)获得了y十位上的数，所以If条件实际上就是判断输入的数个位+十位是不是等于10，选项D中的数都满足，需要验证的-19，它的余数是1，因为-19-（-2）*10=1，而它除以10取整是-1，所以不满足条件。66、运行下列程序，输入数

44、据8、9、3、0后，窗体中显示结果是（）Private Sub Form_Click()Dim sum As Integer, m As Integersum =0Dom=InputBox(“输入m”)sum=sum+mLoop Until m=0MsgBox sumEnd Sub（A）0（B） 17（C） 20（D）21答案（C）该程序段实现的其实就是将输入的数求和，如果输入的数为0则停止计算，所以结果是8+9+3=2067、运行下列程序，结果是（）Private Sub Command32_Click()f0=1:f1=1:k=1Do While k<=5f=f0+f1f0=f1f1

45、=fk=k+1LoopMsgbox “f=” & fEnd Sub（A）f=5（B） f=7（C） f=8（D）f=13答案（D）。与第50题有相似之处，都是求了斐波那契数列68、有如下事件程序，运行该程序后输出结果是（）Private Sub Command33_Click()Dim x As Integer, yAs Integerx=1: y=0Do Until y<=25y=y+x*xx=x+1LoopMsgbox “x=” & x & “,y=” & yEnd Sub（A）x=1,y=0（B） x=4,y=25（C） x=5,y=30（D）输出其

46、它结果答案（A）由于一开始y就满足条件y<=25，所以循环不执行。69、运行下列程序，显示的结果是（）Private Sub Command34_Click()i=0Doi=i+1Loop While i<10MsgBox iEnd Sub（A）0 （B） 1 （C）10 （D）11答案（C）。70. 下列程序的功能是计算N=2+(2+4)+(2+4+6)+(2+4+6+40)的值。Private Sub Command34_Click()t=0m=0sum = 0Dot =t+msum=sum+tm=_Loop While m<41Msgbox “Sum=” & s

47、umEnd Sub空白处应该填写的语句是（）（A）t+2 （B） t+1 （C）m+2 （D）m+1答案（C）。71、下列Case语句中错误的是A）Case 0 To 10 B）Case Is>10C）Case Is>10 And Is<50 D）Case 3,5,Is>10注意Case语句参数说明：Case 1,3,5,9 单个值或多个值，中间用逗号隔开；Case 1 To 10 用To指定范围；Case Is>=10 用Is指定条件;Private Sub cmd1_Click()X1,x2End Sub72、在Access中，如果变量定义在模块的过程内部，当

48、程序代码执行时才可见，则这种变量的作用域为A)程序范围 B)全局范围 C)模块范围 D)局部范围答案（D），如图所示X1，X2变量作用域为局73、Sub 过程与 Function 过程最根本的区别是A）Sub过程的过程名不能返回值，而Function过程能通过过程名返回值B）Sub 过程可以使用Call语句或直接使用过程名调用，而Function过程不可以C）两种过程参数的传递方式不同D）Function过程可以有参数，Sub过程不可以答案（A）参见课本10.7.2与10.7.3对过程和函数的定义74、下列叙述中，正确的是（）（A）Sub过程无返回值，不能定义返回值类型（B）Sub过程有返回值

49、，返回值类型只能是符号常量（C）Sub过程有返回值，返回值类型可在调用过程时动态决定（D）Sub过程有返回值，返回值类型可由定义时As字句声明答案（A）Function才有返回值，Sub过程没有，所以选A75、使用Function语句定义一个函数过程，其返回值的类型A)只能是符号常量 B)是除数组之外的简单数据类型C)可在调用时由运行过程决定 D)由函数定义时As子句声明例：Public Function f(m As Integer , n As Integer ) As IntegerPrivate Sub s1( ) x = x + 20 End SubPrivate Sub s2( ) Dim x As Integer Call s1x = x + 20 End Sub76、在VBA中，下列关于过程的描述中正确的是A)过程的定义可以嵌套，但过程的调用不能嵌套B)过程的定义不可以嵌套，但过程的调用能嵌