考前复习VBA讲稿.pptVIP

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * VBA基础复习 * 在窗体中有一个命令按钮run35,对应的事件代码如下： VBA基础复习 * 运行以上事件所完成的功能是 A）对输入的10个数据求累加和 B）对输入的10个数据求各自的余数，然后再进行累加 C）对输入的10个数据分别统计有几个是整数，有几个是非整数 D）对输入的10个数据分别统计有几个是奇数，有几个是偶数 VBA基础复习 * 设有以下窗体单击事件过程： 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 打开窗体运行后，单击窗体，则消息框的输出内容是 【11】 。 答案 5 VBA基础复习 * 在窗体上添加一个命令按钮（名为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 答案 B VBA基础复习 * 下面VBA程序段运行时，内层循环的循环总次数是 【14】 。　　For m＝0 To 7 step 3　　　For n＝m-1 To m＋1　　　Next n　　Next m 答案 9 VBA基础复习 * 在窗体中使有一个文本框（名为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 i????MsgBox resultEnd Sub????打开窗体后，如果通过文本框输入的值为4，单击命令按钮后输出的图型是 VBA基础复习 * 答案 A VBA基础复习 * 在窗体中使用一个文本框（名为x）接受输入值，有一个命令按钮test，事件代码如下：?Private Sub test_Click()????y = 0??????For i=0 To Me!x??????? y=y+2*i+1??????Next i???MsgBox y?End Sub????打开窗体后，若通过文本框输入值为3，单击命令按钮，输出的结果是 【12】 答案 16 VBA基础复习 * 不属于VBA提供的程序运行错误处理的语句结构是 A）On Error Then 标号 B）On Error Goto 标号 C）On Error Resume Next D）On Error Goto 0 答案 A VBA基础复习 * VBA基础复习 * VBA基础复习 * VBA基础复习 * 前面介绍的1、2两种格式为当型，3、4两种格式为直到型循环。 1）当型循环：先判断条件、再执行循环体，然后返回再判断条件，开始新的一趟。 2）直到型循环：先执行一遍循环体，再判断条件，所以在这种结构中，循环体至少执行一遍。 小结 VBA基础复习 * a=10 Do While a 10 a = a + 1 Loop MsgBox a 练习 a=10 Do a = a + 1 Loop While a 10 MsgBox a 此时a为 此时a为 VBA基础复习 * 下列四种形式的循环设计中，循环次数最少的是 答案 C VBA基础复习 * 执行语句：MsgBox “AAAA”,vbOKCancel + vbQuestion,”BBBB”之后，弹出的信息框外观样式是 答案 C VBA基础复习 * 假定有以下循环结构