填空题变量生存时间是指变量从模块对象【9】的代码执行时间。
填空题Open Form操作打开{{U}} 【8】 {{/U}}。
填空题现有用户登录界面如下：窗体中名为usemame的文本框用于输入用户名，名为pass的文本框用于输入用户的密码。用户输入用户名和密码后，单击“登录”名为login的按钮，系统查找名为“密码表”的数据表，如果密码表中有指定的用户名且密码正确，则系统根据用户的“权限”分别进入“管理员窗体”和“用户窗体”；如果用户名或密码输入错误，则给出相应的提示信息。密码表中的字段均为文本类型，数据如下图。单击“登录”按钮后相关的事件代码如下，请补充完整。PrivateSublogin_Click________DimstrAsStringDimrsAsNewADODB．RecordsetDimfdAsADODB．FieldSetcn=CurrentProject．Connectionlogname=Trim(Me!username)pass=Trim(Me!pass)IfLen(Nz(logname))=0ThenMsgBox"请输入用户名"ElseIfLen(Nz(pass))=0ThenMsgBox”请输入密码”Elsestr="select*from密码表where用户名="&logname&"，and密码="&pass&""rs．Openstr，cn，adOpenDynamic，adLockOptimistic，adCmdTextIf________ThenMsgBox"没有这个用户名或密码，输入错误，请重新输入"Me．username=""Me．pass=""ElseSet________=rs．Fields("权限")Iffd="管理员"ThenDoCmd．CloseDoCmd．OpenForm"管理员窗体"MsgBox"欢迎您，管理员"ElseDoCmd．CloseDoCmd．OpenForm"用户窗体"MsgBox"欢迎使用会员管理系统"EndIfEndIfEndIfEndSub
填空题图5-8所示的是报表设计视图，其中圈出的是______。
填空题算法的复杂度主要包括 【1】 复杂度和空间复杂度。
填空题在窗体中有一个名为command12的命令按钮，click事件的代码如下。该事件所完成的功能是：接受从键盘输入的10个大于0的整数，找出其中的最大值和对应的输入位置。请依据上述功能要求将程序补充完整。 Private Sub Command12_Click() max=0 max_n=0 For i=1 To 10 Num=Val(InputBox("请输入第"& i &"个大于0的整数：")) If(nunl＞Inax)Then max= (12) max_n= (13) End If Next i MsgBox("最大值为第"&max_n &"个输入的" & max) End Sub
填空题若a是float型变量，且a=6，则表达式“a/2＋(int)(a＋1)％2”的值为【6】。
填空题报表主要用于对数据库中的数据进行______、计算、汇总和打印输出。
填空题下面程序段执行后消息框的输出结果是______。 a=12345 Do a=a/10 b=a Mod 10 Loon While b＞=3 MsgBox a
填空题在窗体上画一个命令按钮，然后编写如下程序：
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为______。