填空题在窗体中添加一个名为Command1的命令按钮，然后编写如下程序： Private Sub s(By Val P As Integer) p=p*2 End Sub Private Sub Command1_Click() Dim i As Integer i=3 Call s(i) If i＞4 Then i=i^2 MsgBox i End Sub 窗体打开运行后，单击命令按钮，则消息框的输出结果为______。
填空题为某个窗体编写如下事件，单击窗体，消息框显示的结果为 【13】 。 Private Sub Form_Click( ) Dim k As Integer ,n As Integer ,m As Integer n=10:m=1:k=1 Do While k＜=n m=m*2 k=k+1 Loop MsgBox m End Sub
填空题阅读下面的程序段： for I=1 to 3 for j=I to 1 for k=j to 3 a=a+1 next k next j next I 执行上面的三重循环后，a的值为 【14】 。
填空题下面的程序是找出50以内所有能构成直角三角形的整数组。阅读下面程序，并完成程序。 Private Sub Command1_Click( ) For a = 1 to 50 For b = a to 50 c = Sqr(a^ 2 + b^ 2) If 【15】 then print a; b; c next b next a end Sub
填空题用SQL语句实现查询表名为“图书表”中的所有记录，应该使用的SELECT语句是：select{{U}} 【8】 {{/U}}。
填空题可以建立多层次的组页眉及组页脚，但层次不能太多，一般不超过{{U}} 【9】 {{/U}}层。
填空题下面程序的运行结果为______。 x=-2.3 y=125 z=Len(Str$(x)+Str$(Y)) Print z
填空题调整活动窗口大小的宏操作是{{U}} 【11】 {{/U}}。
填空题运行如下程序段：
x=1
y=1
z=1
For j=1 To 3
Fork=1 To 3
If j=1 Then
x=x+y+z
ElseIf j=2 Then
x=2*x+2*y+2*Z
Else
x=3*x+3*y+3*Z
End If
Next k
Next j
x的值应是{{U}} 【15】 {{/U}}
填空题若窗体中已有一个名为Command1的命令按钮、一个名为Label1的标签和一个名为Text1的文本框，且文本框的内容为空，然后编写如下事件代码： Private Function f(x As Long) As Boolean If x Mod 2＝0 Then f＝True Else f＝ False End If End Function Private Sub Commandl_Click() Dim n As Long n＝Val(Me!text1) p＝IIf(f(n), "Even number", "Odd number") Me!Label1.Caption＝n&"is"&p End Sub 窗体打开运行后，在文本框中输入21，单击命令按钮，则标签显示内容为______。
填空题数据库管理系统常见的数据模型有层次模型、______和关系模型三种。
填空题页面页脚一般包含 或控制项的合计内容。
填空题数据透视表窗体允许用户对表格内的数据进行______。
填空题VBE的全称是______。
填空题如果要引用宏组中的宏名，采用的语法是 【11】 。
填空题运行下面程序，其运行结果k的值为{{U}} {{/U}}，其最里层循环体执行次数为{{U}} {{/U}}。 Dim i，j，k As Integer i=1 Do For j=1 To i Step 2 k=k+j Next i=i+2 Loop Until i＞8
填空题VBA中变量作用域分为3个层次，边个层次是局部变量、模块变量和 【15】 。
填空题断点的功用是 【15】 。
填空题下列子过程的功能是：当前数据库文件中“教师表”中的字段有“职称”、“基本工资”、“总工资”。职称为“教授”的“总工资”=“基本工资”+1000；“副教授”的“总工资”=“基本工资”+500，请在程序空白的地方填写适当的语句，使程序实现所需的功能。 Private Sub SetAgePlus1_Click() Dim db As DAO.Database Dim rs As DAO.Recordset Dim sa As DAO.Field Dim tz As DAO.Field Set db=CurrentDb() Set rs=db.OpenRecordset("教师表") Set gz=rs.Fields("基本工资") Set sum=rs.Fields("总工资") Do While Not rs. (14) rs.Edit If 职称="教授" sum= (15) Else If 职称="副教授" sum=gz+500 rs.Update rs.MoveNext Loop rs.Close db.Close Set rs=Nothing Set db=Nothing End Sub
填空题运行宏有两种选择：一是依照宏命令的排列顺序连续执行宏操作，二是依照宏命令的排列顺序______。