1.以下窗体单击事件过程：Private Sub Form_Click()a = 1For i=1 To 3Select Case iCase 1,3a = a + 1Case 2,4a = a + 2End SelectNext iMsgBox aEnd Sub打开窗体运行后，单击窗体，则消息框的输出内容是_______。
答案：52. 窗体中有两个命令按钮："显示"（控件名为cmdDisplay）和"测试"（控件名为cmdTest）。
以下事件过程的功能是：单击"测试"按钮时，窗体上弹出一个消息框。
如果单击消息框的"确定"按钮，隐藏窗体上的"显示"命令按钮；单击"取消"按钮关闭窗体。
按照功能要求，将程序补充完整。
Private Sub cmdTest_Click()Answer=MsgBox("隐藏按钮" , vbOKCancel)If Answer=vbOK ThencmdDisplay.Visible=ElseDocmd.CloseEnd IfEnd Sub答案：false3.窗体中有两个命令按钮“显示”(控件名为cmdDisplay)和“测试”(控件名为cmdTest)。
当单击“测试”按钮时，执行的事件功能是：首先弹出消息框，若点击其中的“确定”按钮，则隐藏窗体上的“显示”按钮：否则直接返回到窗体中。
请填空补充完整。
Private Sub cmdTest_Click()Answer =Msgbox("隐藏按钮？"，vbOKCancel+vbQuestion,"Msg")If Answer = vb0K ThenMe!cmddisplay.Visible =_______End IfEnd Sub答案：false4. 已知程序段：s=0For i=1 to 10 step 2s=s+1i=i*2Next i当循环结束后，变量s的值为。
答案：35.在窗体中有一个名为Command25的命令按钮，Click事件代码如下。
该事件的完整功能是接受从键盘输入的10个大于0的整数，找出其中的最大值和对应的输入位置。
请依据上述功能要求将程序补充完整。
Private Sub Command25_Click()max = 0max_n = 0For I = 1 To 10num = Val(InputBox("请输入第" & i & "个大于0的整数："))If num > max Thenmax = _______max_n = iEnd IfNext iMsgBox("最大值为第" & max_n & "个输入的" & max )End Sub答案：num6.有如下VBA代码，运行结束后，变量n的值是_______。
n=0For i=1 To 3For j= -4 To -1n=n+1Next jNext i答案：127. 在窗体中有一个名为Command1的命令按钮，Click事件的代码如下：Private Sub Command1_Click( )f=0For n=1 To 10 Step 2f=f+nNext nMe!Lb1. Caption=fEnd Sub单击命令按钮后，标签显示的结果是。
答案：258. 在窗体中使用一个文本框(名为numl)接受输入值，有一个命令按钮run，单击事件代码如下：Private Sub run_Click()If Me!num1 >= 60 Thenresult = "及格"ElseIf Me!numl >= 70 Thenresult= "通过"Elself Me!numl >= 85 Thenresult= "优秀"End IfMsgBox resultEnd Sub打开窗体后，若通过文本框输入的值为85，单击命令按钮，输出结果是_______。
答案：及格9. 有"数字时钟"窗体如图所示。
图 "数字时钟"窗体在窗口中有"[开/关]时钟"按钮，单击该按钮可以显示或隐藏时钟。
其中按钮的名称为"开关"，显示时间的文本框名称为"时钟"，计时器间隔已设置为500。
请在空白处填入适当的语句，使程序可以完成指定的功能。
Dim flag As IntegerPrivate Sub Form_Load()flag=1End SubPrivate Sub Form_Timer()时钟=TimeEnd SubPrivate Sub 开关_Click()If Then时钟.Visible=Falseflag=0Else时钟.Visible=Trueflag=1End IfEnd Sub答案：flag=110.在下面的VBA程序段运行时，内层循环的循环次数是_______。
For m = 0 To 7 Step 3For n = m-1 To m+1Next nNext m答案：911. 有如下用户定义类型及操作语句：Type StudentSNo As StringSName As StringIAge As IntegerEnd TypeDim Stu As StudentWith Stu.SNo＝"200609001".SName＝"陈果果".IAge＝19End With执行MsgBox Stu. IAge后，消息框输出结果是。
答案：1912. 已知数列的递推公式如下：f(n)=1 当n=0,1时f(n)=f(n-1)+f(n-2) 当n>1时则按照递推公式可以得到数列：1，1，2，3，5，8，13，21，34，55，…。
现要求从键盘输入n值，输出对应项的值。
例如，当输入n为8时，应该输出34。
程序如下，请补充完整。
Private Sub run11_Click( )f0=1f1=1num=Val(InputBox("请输入一个大于2的整数"))For n =2 To （12）f2=f0+f1f0=f1f1=f2Next nMsgBox f2End Sub答案：num13.有一个VBA计算程序的功能如下，该程序用户界面由4个文本框和3个按钮组成。
4个文本框的名称分别为：Text1、Text2、Text3和Text4。
3个按钮分别为：清除（名为Command1）、计算（名为Command2）和退出（名为Command3）。
窗体打开运行后，单击清除按钮，则清除所有文本框中显示的内容；单击计算按钮，则计算在Text1、Text2和Text3三个文本框中输入的3科成绩的平均成绩并将结果存放在Text4文本框中；单击退出按钮则退出。
请将下列程序填空补充完整。
Private Sub Command1_Click( )Me!Text1 = ""Me!Text2 = ""Me!Text3 = ""Me!Text4 = ""End SubPrivate Sub Command2_Click( )If Me!Text1 = "" Or Me!Text2 = "" Or Me!Text3 = "" ThenMsgBox "成绩输入不全"ElseMe!Text4 = (Val(Me!Text1)+ Val(Me!Text2)+ Val(Me!Text3)) / 3 End IfEnd SubPrivate Sub Command3_Click( )Docmd.End Sub答案：Quit14. 已知程序段：s=0For i=1 to 10 step 2s=s+1i=i*2Next i当循环结束后，变量s的值为。
答案：315.已知程序段：s=0For i=1 to 10 step 2s=s+1i=i*2Next i当循环结束后，变量i的值为。
答案：2216. 现有一个登窗体如图所示。
打开窗体后输入用户名和密码，登录操作要求在20秒内完成，如果在20秒内没有完成登录操作，则倒计时到达0秒时自动关闭登录窗体，窗体的右上角显示倒计时的标签Itime。
事件代码如下，要求填空完成事件过程。
图登录窗体Option Compare DatabaseDim flag As BooleanDim i As IntegerPrivate Sub Form_Load ( )Flag =TrueMe.TimerInterval = 1000i = 0End SubPrivate Sub Form_Timer ( )If flag = True And i < 20 ThenMe!ITimer.Caption = 20 - ii =ElseDoCmd.CloseEnd IfPrivate Sub OK_Click ( )登录程序略如果用户名和密码正确，则：flag = FalseEnd Sub答案：i+117. 设有如下代码：x = 1Dox = x + 2Loop Until_______运行程序，要求循环体执行3次后结束循环，请在空白处填入适当的语句。
答：x>=7x>6X>=7X>618.在窗体中添加一个命令按钮（名为Command1）和一个文本框（名为text1），然后编写如下事件过程：Private Sub Command1_Click( )Dim x As Integer, y As Integer, z As Integerx = 5 : y = 7 : z = 0Me!Text1= ""Call p1(x, y, z)Me!Text1 =zEnd SubSub p1(a As Integer, b As Integer, c As Integer)c = a + bEnd Sub打开窗体运行后，单击命令按钮，文本框中显示的内容是。
答案：1219. 在窗体中添加一个命令按钮，名称为Command1，然后编写如下程序：Private Sub Command1_Click()Dim s, iFor i=1 To 10s=s+iNext iMsgBox sEnd Sub窗体打开运行后，单击命令按钮，则消息框的输出结果为。