填空题在Access中，过程可以分为 【13】 和子程序。
填空题线性表的存储结构主要分为顺序存储结构和链式存储结构。队列是一种特殊的线性表，循环队列是队列的 【4】 存储结构。
填空题现有用户登录界面如下。窗体中“用户名”文本框(名为username)用于输入用户名，“密码”文本框(名为pass)用于输入用户的密码。用户输入用户名和密码后，单击“登录”按钮(名为login)，系统查找名为“密码表”的数据表，如果“密码表”中有指定的用户名且密码正确，则系统根据用户的“权限”分别进入“管理员窗体”和“用户窗体”；如果用户名或密码输入错误，则给出相应的提示信息。“密码表”中的字段均为文本类型，数据如下表。密码表用户名密码权限Chen1234Zhang5678管理员Wang1234单击“登录”按钮后相关的事件代码如下，请补充完整。PrivateSublogin_Click()DimstrAsStringDimrsAsNewADODB.RecordsetDimfdAsADODB.FieldSetcn=CurrenfProjet.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(14)ThenMsgBox"没有这个用户名或密码输入错误，请重新输入"Meusername=""Mepass=""ElseSet(15)=rs.Fields("权限")Iffd="管理员"ThenDoCmd.CloseDoCmd.OpenForm"管理员窗体"MsgBox"欢迎您，管理员"ElseDoCmd.CloseDoCmdOpenForm"用户窗体"MsgBox"欢迎使用会员管理系统"EndIfEndIfEndIfEndSub
填空题阅读下列程序 Option Base 1 Private Sub Form_Click() Dim x(3，3) For j=1 to 3 For k=1 to 3 If j=k then x (j，k)=1 If j＜＞k then x(j,k)=k Next k Next j Call fun(x()) End Sub Private Sub fun(x()) For j=1 to 3 Fork-1 to 3 Print x(j,k) Next k Next j End Sub 运行程序时，输出结果为 【13】 。
填空题执行下面的程序段后，变量S的值为 【13】 。 S=5 For i=2.6 To 4.9 Step 0.5 S=S +i Next i
填空题下面程序的输出结果是{{U}} 【15】 {{/U}}。
Private Sub Form_Click()
i=0
Do Until 0
i=i+1
if i＞10 then Exit Do
Loop
Print i
End Sub
填空题用树结构表示实体类型及实体间联系的数据模型称为 【2】 。
填空题下列程序段的执行结果是{{U}} 【14】 {{/U}}。
x=Int(Rnd+4)
Select Case X
Case 5
Print"优秀"
Case 4
Print"良好"
Case 3
Print"合格"
Case Else
Print"不合格"
End Select
填空题数据库中有“学生成绩表”，包括“姓名”、“平时成绩”、“考试成绩”和“期末总评”等字段。现要根据“平时成绩”和“考试成绩”对学生进行“期末总评”。规定： “平时成绩”加“考试成绩”大于等于85分，则期末总评为“优”，“平时成绩”加“考试成绩”小于60分，则期末总评为“不及格”，其他情况期末总评为“合格”。 下面的程序按照上述要求计算每名学生的期末总评。请在空白处填入适当的语句，使程序可以完成指定的功能。 Prirate Sub Command0_Click() Dim db As DAO.DatabaSe Dim rs As DAO.RecordSet Dim pscj, ksej, qmzp As DAO.Field Dim count As Integer Set db=CurrentDb() Set rs=db.OpenRecordset("学生成绩表") Set pscj=rs.Fields("平时成绩") Set kscj=rs.Fields("考试成绩") Set qmzp=rs.Fields("期末总评") count=0 Do While NOt rs.EOF (14) If pscj+kscj＞=85 Then qmzp="优" ElseIf pscj+kscj＜60 Then qmzp="不及格" Else qmzp="合格" End If rs.Update count=count+1 (15) Loop rs.CloSe db.CloSe Set rs=Nothing Set db=Nothinq MsgBox "学生人数："&count End Sub
填空题运行以下程序段后，输出结果为 【12】 。 a=3:b=2 Print a*(a+B)
填空题VBA中定义符号常量的关键字是 【15】 。
填空题有一个VBA计算程序的功能如下：该程序用户界面由4个文本框和3个按钮组成。4个文本框的名称分别为：Text1、Text2、Text3和Text4，3个按钮分别为：清除(名为 G1)、计算(名为C2)和退出(名为C3)。窗体打开运行后，单击“清除”按钮，则清除所有文本框中显示的内容；单击“计算”按钮，则计算在Wext1、Text2和Text3三个文本框中输入的3个数字的和并将结果存放在名为Text4的文本框中；单击“退出”按钮则退出程序。依据上述功能，请将下列程序补充完整。
Private Sub C1 Click()
Me!Text1＝""
Me!Text2＝""
Me!Text3＝""
Me!Text4＝""
End Sub
Private Sub C2 Click()
IfMe!Text1＝""Or Me!Text2＝""Or Me!Text3＝""Then
MsgBox"三个文本框都要输入值!"
______
Me!Text4＝(Val(Me!Text1)+Val(Me!Text2)+______)
End If
End Sub
Private Sub C3 Click()
Docmd.
End Sub
填空题在向数据表中输入数据时，若要求所输入的字符必须是字母，则应该设置的输入掩码是 【8】 。
填空题执行下面的程序，消息框的输出结果是 【15】 。 Option Basel Private Sub Commandl Click() Dim a(10)，P(3)As Integer k=5 For i=1 To 10 a(i)=i Next i For i=1 To 3 P(i)=a(i*i) Next i For i=1 To 3 k=k+p(i)*2 Next i MsgBox k End sub
填空题SQL查询就是用户使用SQL语句来创建的一种查询。SQL查询主要包联合查询、传递查询、______和子查询等。
填空题在窗体上画一个命令按钮，然后编写如下程序：
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}} {{U}} {{/U}} {{/U}}。
填空题窗体由多个部分组成，每个部分称为一个节，大部分的窗体只有 【11】 。
填空题Access数据库包含有______、______、______、报表、页、宏、模块等7种数据库对象。
填空题Jackson方法是一种面向 【3】 的结构化方法。
填空题假定当前日期为2002年8月25日，星期日，则执行以下语句后，a、b、c和d的值分别是25、8、2002、{{U}} 【13】 {{/U}}。
a=day(now)
b=month(now)
C=year(now)
d=weekday(now)