填空题在窗体上画一个命令按钮，然后编写如下程序：
Function fun(By Val num As Long)As Long
Dim k As Long
k=1
num=Abs(num)
Do While num
k=k*(num/10)
num=num/10
Loop
fun=k
End Function
Private Sub Command1_Click()
Dim n As Long
Dim r As Long
n=InputBox("请输入一个数")
n=CLng(n)
r=fun(n)
MsgBox r
End Sub
程序运行后，单击命令按钮，在输入对话框中输入234，消息框显示的结果为{{U}} 【14】 {{/U}}。
填空题执行下面的程序段，s的值为{{U}} 【10】 {{/U}}。
s=0:k=10
While k
s=s+10
k=k-2
Wend
填空题标准模块以函数过程(以______开头)和子过程(以Sub开头)为单元集合存储。
填空题数据管理技术经历了人工处理、______和______、分布式数据库系统、面向对象数据库系统5个发展阶段。
填空题有如下程序：
a=1:b=2:c=3
a=a+b:b=b+c:c=b+a
If a＜＞3 Or b＜＞3 Then
a=b-a:b=c-a:c=b+a
End If
Print a+b+c
运行后，输出的结果是{{U}} 【15】 {{/U}}。
填空题有如下程序：
Option Base 1
Private Sub Form_Click()
Dim arr，sum
Sum=0
arr=Array(1，3，5，7，9，11，13，15，17，19)
For i=1 To 10
If arr(i)/3=arr(i)/3 Then
Sum=Sum+arr(i)
End If
Next i
MsgBox Sum
End Sub
程序运行后，单击窗体，消息框的输出结果为______。
填空题如图所示的流程控制结构称为______。
填空题某窗体中有一命令按钮，名称为C1。要求在窗体视图中单击此命令按钮后，命令按钮上显示的文字颜色为棕色(棕色代码为128)，实现该操作的VBA语句是{{U}} 【10】 {{/U}}。
填空题在窗体上画一个命令按钮，然后编写如下程序： Function fun(ByVal num As Long)As Long Dim k As Long k=1 num=Abs(num) Do While num k=k*(num/10) num=num/10 Loop fun=k End Function Private Sub Command1_Click() Dim n As Long Dim r As Long n=InputBox(“请输入一个数”) n=CLng(n) r=fun(n) MsgBox r End Sub 程序运行后，单击命令按钮，在输入对话框中输入234，消息框显示的结果为 【14】 。
填空题{{U}}【3】 {{/U}}是当前软件开发环境中富有特色的研究工作和发展方向。
填空题已知如下程序段： Type CustomerRecord ID As Integer Name As String * 10 Address As String * 30 End Type Dim Customer As CustomerRecord Dim MyLen MyLen=Len(Customer) 执行以上程序段后，MyLen为______。
填空题Access中的窗体由______、______和______等三个部分组成。
填空题断点的功能是 。
填空题一棵树按照左子女一右兄弟表示法转换成对应的二叉树，则该二叉树中树根结点肯定没有 【5】 子女。
填空题在
下有一个数据库文件“samp3.mdb”，里面已经设计好了表对象“产品”、“供应商”、查询对象“按供应商查询”和宏对象“打开产品表”、“运行查询”、“关闭窗口”。请按以下要求完成设计。
创建一个名为“menu”的窗体，要求如下。
填空题阅读程序：
a=1:b=1
Do
Print a, b
a=a+b:b=a+b
If a ＞ 20 Then Exit Do
Loop
程序中的Do...Loop循环的循环体执行{{U}} 【13】 {{/U}}次。
填空题VBA中使用的3种选择函数是IIf、Switch和______。
填空题如果存在“一对多”关系的两个表都已经分别创建了窗体，那么就可以将具有 ______ 的窗体添加到具有“一”端的主窗体中去，使其成为子窗体。
填空题宏的窗口中分为设计区和参数区两部分，设计区由4列组成，它们分别是“宏名”、“条件”、“操作”和“备注”列。上述4列中的内容，不能省略的是【12】。