1003考前复习VBA讲稿

1、,2010 年 3 月 考前复习资料-VBA,全国二级Access,VBA基础复习,2,以下关于VBA运算符优先级比较，正确的是 A）算术运算符 逻辑运算符 比较运算符 B）逻辑运算符 比较运算符 算术运算符 C）算术运算符 比较运算符 逻辑运算符 D）以上均是错误的,答案C,VBA基础复习,3,在VBA中，如果没有显式声明或符号来定义变量的数据类型，变量的默认数据类型为 A）Boolean B）Int C）String D）Variant,在定义变量时，没有指定数据类型的变量默认是变体（ Variant ）数据类型。常见的定义格式如下： 1.a=5 2.Dim a,答案D,VBA基础复习,4

2、,使用VBA的逻辑值进行算术运算时，True值被处理为 A）1 B）0 C）1 D）任意值,布尔型数据类型进行算术运算时，True值被处理为-1，False值被处理为0，其他数值转换为布尔型数据类型时0值被处理为False，其他值被处理为True,答案A,VBA基础复习,5,定义了二维数组A（2 to 5,5），该数组的元素个数为 A）20 B）24 C）25 D）36,定义数组元素变量时，默认的下标下限为0,a(5),a(2 to 3,3),2,3,0 1 2 3,0 1 2 3 4 5,答案B,语句Dim NewArray（10）As Integer的含义是 A）定义了一个整形变量且初值为

3、10 B）定义了10个整数构成的数组 C）定义了11个整数构成的数组 D）将数组的第10元素设置为整形,VBA基础复习,6,答案C,VBA基础复习,7,以下可以得到“2*5=10”结果的VBA表达式为 A）”2*5” D),程序语句书写原则 1.语句书写规定 下划线( _ ) :语句较长，一行写不下时，可通过此符号连序写在下一行 冒 号 ( : ) : 将几个语句分隔写在一行中,2.注释语句 REM : 需换行写注释或在REM前加上冒号 :可直接在其后跟注释语句 注：F1可获得帮助信息,答案 A,VBA基础复习,39,VBA程序流程控制的方式是 A）顺序控制和分支控制 B）顺序控制和循环控制

4、C）循环控制和分支控制 D）顺序、分支和循环控制,答案 D,VBA基础复习,40,执行下面的程序段后，b的值为【12】。 a = 5 b = 7 a = a + b b = a - b a = a - b,答案 5,VBA基础复习,41,在名为“Form1”的窗体上添加三个文本框和一个命令按钮，其名称分别为“Text1”、“Text2”、“Text3”、和“Command1”，然后编写如下两个事件过程： Private Sub Command1_Click() Text3 = Text1 + Text2 End Sub Private Sub Form1_Load() Text1 = “” T

5、ext2 = “” Text3 = “” End Sub 打开窗体Form1后，在第一个文本框（Text1）和第二个文本框（Text2）中分别输入5和7，然后单击命令按钮Command1，则文本框（Text3）中显示的内容为【14】。,答案 57,VBA基础复习,42,以下程序段运行后，消息框的要付出结果是 a=sqr (3) b=sqr (2) c=ab Msgbox c+2 A）-1 B）1 C）2 D）出错,答案 B,VBA基础复习,43,（28）在窗体中添加了一个文本框和一个命令按钮（名称分别为tText和bCommand），并编写了相应的事件过程。运行此窗体后，在文本框中输入一个字符

6、，则命令按钮上的标题变为“计算机等级考试”。以下能实现上述操作的事件过程是A）Private Sub bCommand_Click（） Caption“计算机等级考试” End SubB）Private Sub tText_Click（） bCommand.Caption“计算机等级考试” End SubC）Private Sub bCommand_Change（） Caption“计算机等级考试” End SubD）Private Sub tText_ Change（） bCommand.Caption“计算机等级考试” End Sub,答案 D,VBA基础复习,44,在窗体中添加一个命令按

7、钮（名称为Command1），然后编写如下代码：Private Sub Command1_Click（） a0：b0：c6 MsgBox abcEnd Sub窗体打开运行后，如果单击命令按钮，则消息框的输出结果为_。A）11 B）a11 C）0 D）False,答案 D,VBA基础复习,45,在窗体中添加一个命令按钮（名称为Command1），然后编写如下代码：Private Sub Command1_Click（）Static b As integerbb1End Sub窗体打开运行后，三次单击命令按钮后，变量b的值是 【11】。,答案 3,VBA基础复习,46,直接在属性窗口设置对象的属性

8、，属于“静态”设置方法，在代码窗口中由VBA代码代码设置对象的属性叫做设置方法,答案 动态,VBA基础复习,47,有一个VBA计算程序的功能如下，该程序用户界面由4个文本框和3个按钮组成。4个文本框的名称分别为：Text1、Text2、Text3和Text4。3个按钮分别为：清除（名为Command1）、计算（名为Command2）和退出（名为Command3）。窗体打开运行后，单击清除按钮，则清除所有文本框中显示的内容；单击计算按钮，则计算在Text1、Text2和Text3三个文本框中输入的3科成绩的平均成绩并将结果存放在Text4文本框中；单击退出按钮则退出。请将下列程序填空补充完整。,

9、VBA基础复习,48,Private Sub Command1_Click( ) Me!Text1 = :Me!Text2 = Me!Text3 = :Me!Text4 = End Sub Private Sub Command2_Click( ) If Me!Text1 = Or Me!Text2 = Or Me!Text3 = Then MsgBox 成绩输入不全 Else Me!Text4 = ( 【13】 + Val(Me!Text2)+ Val(Me!Text3) / 3 End Sub Private Sub Command3_Click( ) Docmd. 【14】 End Su

10、b,答案 13 Val(Me!Text1) 14 Close,VBA基础复习,49,窗体中有两个命令按钮：“显示”（控件名为cmdDisplap）和“测试”（控件名为cmdTest）。以下事件过程的功能是：单击“测试”按钮时，窗体上弹出一个消息框。如果单击消息框的“确定”按钮，隐藏窗体上的“显示”命令按钮；单击“取消”按钮关闭窗体。请按照功能要求，将程序补充完整。 Private Sub cmdTest_Click() Answer = 【14】 (“隐藏按钮”，vbOKCancel) If Answer = vbOK Then CmdDisplay.Visibe = 【15】 Else Do

11、cmd.Close End If End Sub,答案 14 MsgBox 15 False,VBA基础复习,50,在窗体中添加一个名称为Command1的命令按钮，然后编写如下事件代码：Private Sub Command1_Click（）A75if A60 Then i1if A70 Then i2if A80 Then i3if A90 Then i4MsgBox iEnd Sub窗体打开运行后，单击命令按钮，则消息框的输出结果是_。A）1 B）2 C）3 D）4,答案 B,VBA基础复习,51,在窗体中添加一个名称为Command l的命令按钮，然后编写如下事件代码： Private

12、 Sub Command I一lick（） a= 75 If a60 Then k1 EIseIf a70 Then k2 EIseIf a80 Then k3 E1seIf a90 Then k4 EndIf MsgBox kEnd Sub 窗体打开运行后，单击命令按钮，则消息框的输出结果是 A）1 B）2 C）3 D）4,答案 A,VBA基础复习,52,在窗体中使用一个文本框（名为num1）接受输入值，有一个命令按钮run13，事件代码如下：Private Sub run13_Click()If Me!num1 = 60 Thenresult = 及格ElseIf Me!num1 = 70

13、 Thenresult = 通过ElseIf Me!num1 = 80 Thenresult = 合格End IfMsgBox resultEnd Sub打开窗体后，若通过文本框输入的值为85，单击命令按钮，输出结果是 【13】,答案 及格,VBA基础复习,53,下列Case语句中错误的是A）Case 0 To 10 B）Case Is 10 C）Case Is 10 And Is 10 下列不是分支结构的语句是A. If.Then.EndIf B. While.WendC. If.Then.Else.EndIf D. Select.Case.End Select,答案 C,答案 B,VBA基

14、础复习,54,在这个式子中1这个数值增加了3次，像这种连续重复执行某个操作或一系列操作且要执行的操作次数是确定的，我们也可以采用For循环 For i=1 to 3 step 1 s=s+1 Next msgbox s 掌握: 1、三个循环关键字 For: 循环开始 Step: 每次循环执行完成后循环变量的变化量 Next: 新一轮循环 2、一个名词循环变量，循环执行过程值会发生变化且通过该值可以控制循环是否继续;本例i为循环变量,1. i=1=3 s=0+1=1 2. i=1+1=2=3 s=1+1=2 3. i=2+1=3=3 s=2+1=3 4. i=3+1=3 不满足条件，跳出循环,例

15、1 For i=6 to 2 step -2 x=x+1 Next MsgBox i & chr(13) & x 输出i和x的值，i为 ，x为 。 说明: 1.MsgBox “提示信息”,命令按钮及消息框类型,”标题” 2.Chr(13) :换行显示内容,1. i=6时，满足大于等于2，x=0+1=1 2. i=6+(-2)=4,满足大于等于2，x=1+1=2 3. i=4+(-2)=2,满足大于等于2，x=2+1=2 4. i=2+(-2)=0,不满足大于等于2，跳出循环,55,VBA基础复习,VBA基础复习,56,2. For i=2 To 4 i=i+1 s=s+1 Next i Msg

16、Box i & chr(13) & s 输出i和x的值，i为 ，x为 。 说明: 对比本题目和上例不同处,1. i=2时，满足=4,i=2+1=3,s=0+1=1 2. i=3+1=4,满足=4,i=4+1=5,s=1+1=2 3. i=4+1=5,不满足=4,跳出循环,VBA基础复习,57,在窗体上添加一个命令按钮（名为Command1），然后编写如下事件过程：Private Sub Command1_ClickDim b，kFor k1 to 6 b23kNext kMsgBox bkEnd Sub打开窗体后，单击命令按钮，消息框的输出结果是 【15】。,答案 36,VBA基础复习,58,

17、设有如下程序：Private Sub Commandl Click（）Dim sum As Double, x As Doublesum0n0For i=l To 5xninn1sum=sumxNext 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,VBA基础复习,59,执行下面的程序，消息框里显示的结果是【13】。 Private Sub Form_Click() Dim Str As String，k As

18、 Integer Str = ”ab” For k = Len (Str) To 1 Step -1 Str = Str & Chr(Asc(Mid(Str，k，1) + k) Next k MsgBox Str End Sub,答案 abdb,VBA基础复习,60,在窗体中添加一个名称为Command1的命令按钮，然后编写如下事件代码：Private Sub Command1_Click（） s“ABBACDDCAB” For i6 To 2 Step -2 xMid（s，i，i） yLeft（s，i） zRight（s，i） zx&yz Next i MsgBox zEnd Sub窗体打开

19、运行后，单击命令按钮，则消息框的输出结果是_。A）AABAAB B）ABBABA C）BABBA D）BBABAB,答案 D,VBA基础复习,61,执行下面的程序，消息框的输出结果是【15】。 Option Base 1 Private Sub Command1_Click() Dim a (10), p(3) As Integer k = 5 For I = 1 To 10 a(i) = i Next i For i = 1 To 3 p(i) = a(i*i) Next i For i=1 To 3 k=k+p(i)*2 Next i Msgbox k End Sub,答案 33,VBA基

20、础复习,62,在窗体中添加一个名称为Command1的命令按钮，然后编写如下事件代码：Private Sub Command1_Click（）Dim a（10，10）For m2 To 4 For n4 To 5 a（m，n）=m*n Next nNext mMsgBox a（2，5）a（3，4）a（4，5）End Sub窗体打开运行后，单击命令按钮，则消息框的输出结果是_。A）22 B）32 C）42 D）52,答案 c,VBA基础复习,63,假定有以下程序段 n=0 for i=1 to 3 for j= -4 to -1 n=n+1 next j next i 运行完毕后，n的值是 A）

21、0 B）3 C）4 D）12,答案 D,VBA基础复习,64,在窗体中有一个命令按钮run35,对应的事件代码如下：,VBA基础复习,65,运行以上事件所完成的功能是 A）对输入的10个数据求累加和 B）对输入的10个数据求各自的余数，然后再进行累加 C）对输入的10个数据分别统计有几个是整数，有几个是非整数 D）对输入的10个数据分别统计有几个是奇数，有几个是偶数,VBA基础复习,66,设有以下窗体单击事件过程： Private Sub Form_Click( ) a = 1 For i = 1 To 3 Select Case i Case 1, 3 a = a + 1 Case 2, 4

22、 a = a + 2 End Select Next i MsgBox a End Sub 打开窗体运行后，单击窗体，则消息框的输出内容是 【11】 。,答案 5,VBA基础复习,67,在窗体上添加一个命令按钮（名为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 MsgBox x End Sub 打开窗体后，单击命令按钮，消息框的输出结果是 A）7 B）15 C）157 D）538

23、,答案 B,VBA基础复习,68,下面VBA程序段运行时，内层循环的循环总次数是 【14】 。For m0 To 7 step 3For nm-1 To m1Next nNext m,答案 9,VBA基础复习,69,在窗体中使有一个文本框（名为n）接受输入的值，有一个命令按钮run，事件代码如下：Private 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 iMsgBox resultEnd Sub打开窗体后，如果通过文

24、本框输入的值为4，单击命令按钮后输出的图型是,VBA基础复习,70,答案 A,VBA基础复习,71,在窗体中使用一个文本框（名为x）接受输入值，有一个命令按钮test，事件代码如下：Private Sub test_Click()y = 0For i=0 To Me!x y=y+2*i+1Next iMsgBox yEnd Sub打开窗体后，若通过文本框输入值为3，单击命令按钮，输出的结果是 【12】,答案 16,VBA基础复习,72,不属于VBA提供的程序运行错误处理的语句结构是 A）On Error Then 标号 B）On Error Goto 标号 C）On Error Resume Next D）On Error Goto 0,答案 A,VBA基础复习,73,VBA基础复习,74,VBA基础复习,75,VBA基础复习,76,前面介绍的1、2两种格式为当型，3、4两种格式为直到型循环。 1）当型循环：先判断条件、再执行循环体，然后返回再判断条件，开始新的一趟。 2）直到型循环：先执行一