VBA笔试真题练习3.docVIP

Do While-Loop语句 1、2005.4(填11) 某个窗体已编写以下事件过程。打开窗体运行后，单击窗体，消息框的输出结果为。Private Sub Form_Click() Dim k as Integer, n as Integer, m as Integer n=10; m=l; k=1 Do While k=n m=m*2 k=k+1 Loop MsgBox m End Sub 2、2009.3（35） 在窗体中添加一个名称为Command1的命令按钮，然后编写如下事件代码： Private Sub Command1_Click() ??? MsgBox f(24, 18) End Sub Public Function f(m As Integer, n As Integer) As Integer ?Do While m n ??? Do While m n ??????? m = m - n ??? Loop ??? Do While m n ??????? n = n - m ??? Loop ?Loop ?f = m End Function 窗体打开运行后，单击命令按钮，则消息框的输出结果是 A）2?? B） 4?? C）6??? D）8 下列子过程的功能是:将当前数据库文件中”学生表”的学生”年龄”都加1,请在程序空白的地方填写适当的语句,使程序实现所需要的功能 Prvate Sub SetAgePlus1_Click() Dim db As DAO.Database Dim rs As DAO.Recordset Dim fd As DAO.Field Set db=CurrentDb() Set rs=db.OpenRecordset(“学生表”) set fd=rs.field(“年龄”) Do While Not rs.EOF rs.Edit fd= rs.Update Loop rs.Close db.Close Set rs=Nothing Set db=Nothing End Sub Do-Loop While语句 1、2006.4(33) 以下程序段运行结束后，变量x的值为x=2y=4Dox=x*yy=y+1Loop?While?y4A．2?B．4C．8?D．20 1、2006.4(填13) 设有如下代码：x=1dox=x+2loop?until????????运行程序，要求循环体执行3次后结束循环，在空白处填入适当语句。 (34) 设有如下过程： ? X=1 ? Do X=x+2 ? Loop until ________ 运行程序，要求循环体执行3次后结束循环，空白处应填入的语句是 A）X=7?? B）X7?? C）X=7?? D）X7 2、2006.4(34) 在窗体上添加一个命令按钮（名为Command1），然后编写如下事件过程：Private Sub Command1_Click()For i=1 To 4x=4For j=1 To 3x=3For k=1 To2x=x+6Next kNext jNext iMsgBox xEnd Sub打开窗体后，单击命令按钮，消息框的输出结果是A．7?B．15?C．157?D．538 n=0 for i=1 to 3 for j= -4 to -1 　? n=n+1 next j next i 运行完毕后，n的值是 　A）0? B）3??C）4??D）12 在窗体中添加一个命令按钮（名称为Command1），然后编写如下代码： Private Sub Command1_Click( ) Dim a(10,10) For m=2 To 4 For 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 5、2006.9(填14） 下面VBA程序段运行时，内层循环总次数是_________。 For m=0 To 7 Step 3 For n=m-1 To m+1 Next n Next