vba编程练习题+近年真题.doc

VBA编程练习题 1、假定有以下循环结构 Do Until 条件 循环体 Loop 则正确的叙述是 A）如果“条件”值为0，则一次循环体也不执行 B）如果“条件”值为0，则至少执行一次循环体 C）如果“条件”值不为0，则至少执行一次循环体 D）不论“条件”是否为“真”，至少要执行一次循环体 2.设有以下窗体单击事件过程： 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 打开窗体运行后，单击窗体，则消息框的输出内容是 5 。 3. 在窗体中添加一个命令按钮（名为Command1）和一个文本框（名为text1），然后编写如下事件过程： Private Sub Command1_Click( ) Dim x As Integer, y As Integer, z As Integer x = 5 : y = 7 : z = 0 Me!Text1= Call p1(x, y, z) Me!Text1 =z End Sub Sub p1(a As Integer, b As Integer, ByVal c As Integer) c = a + b End Sub 打开窗体运行后，单击命令按钮，文本框中显示的内容是 。 4. 以下程序段运行结束后，变量x的值为 x=2 y=4 Do x=x*y y=y+1 Loop While y6 A）4 B）40 C）8 D）20 5. 在窗体上添加一个命令按钮（名为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=2 x=x+6 Next k Next j Next i MsgBox x End Sub 打开窗体后，单击命令按钮，消息框的输出结果是 A）7 B）15 C）157 D）8 6. 设有如下代码： x=1 do x=x+3 loop until =10 或7 运行程序，要求循环体执行3次后结束循环，在空白处填入适当语句。 7. 在Access中，DAO的含义是： A. 开放数据库互连应用编程接口 B. 数据库访问对象 C. Active数据对象 D. 数据库动态链接库 8. 在Access中，ADO的含义是： A. 开放数据库互连应用编程接口 B. 数据库访问对象 C. Active数据对象 D. 数据库动态链接库 9. 在窗体中有一个标签Lb1和一个命令按钮Command1，事件代码如下： Option Compare Database Dim a As String*10 Private Sub Command1_Click() a=1234 b=Len(a) Me.Lb1.Caption=b End Sub 打开窗体后单击命令按钮，窗体中显示的内容是 A. 4 B. 5 C. 10 D. 40 10. 在窗体中使有一个文本框（名为n）接受输入的值，有一个命令按钮run，事件 代码 如下： Private Sub run_Click() result= For i=1 To Me!n For j=1 To（Me!n）+1-i result=result+* Next j result=result+Chr(13)+Chr(10) Next i MsgBox result End Sub 打开窗体后，如果通过文本框输入的值为4，单击命令按钮后输出的图型是 D 11. 在VBA中双精度的类型标识是 A. Integer B. Single C. Double D. Variant 12. 运行下列过程，当输入一组数据：10