填空题在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command l-Click ()
a=0
For I =l T02
For j=l To4
if j Mbd2＜＞0 Then
a=a+1
End lf
a= a +l
Next j
Next i
Ms g Box a
End Sub
程序执行后，单击命令按钮，消息框显示的是{{U}} 【15】 {{/U}} 。
填空题Access提供了6种类型的窗体，分别是{{U}} 【13】 {{/U}}、表格式窗体、{{U}} 【14】 {{/U}}、主/子窗体、图表窗体和数据透视表窗体。
填空题某个窗体己编写以下事件过程。打开窗体运行后，单击窗体，消息框的输出结果为 ______。
Private Sub Form_Click()
a=1
i=l
Do Until i＞10
a=a+2
i=i+3
Loop
MsgBox a
End Sub
填空题有如下程序：
A$="Flying": b$="is"：C$="funny!"
Print a$+""+LCase$(b$)+""+UCase$(C$)
End
运行后输出的结果是{{U}} 【12】 {{/U}}。
填空题现有一个登录窗体如下图所示。打开窗体后输入用户名和密码，登录操作要求在20秒内完成，如果在20秒内没有完成登录操作，则倒计时到达0秒时自动关闭登录窗体，窗体的右上角是显示倒计时的文本框Itime。事件代码如下，要求填空完成事件过程。OptionCompareDatabaseDimflagAsBooleanDimiAsIntegerPrivateSubForm_Load()flag=______Me．Timednterval=1000i=0EndSubPrivateSubForm_Timer()Ifflag=TrueAndi＜20ThenMe!Time.Caption=20-ii=______ElseDoCmd．CloseEndIfEndSubPrivateSubok_Click()登录程序略如果用户名和密码输入正确，则flag=FalseEndSub
填空题运行下列程序，窗体中的显示结果是：x=______。 Option Compare Database Dim x As Integer Private Sub Form_Load() x=3 End Sub Private Sub Command11_C1ick() Static a As Integer Dim b As Integer b=x^2 fun1 x,b fun1 x,b MsgBox "X=" ＆x End Sub Sub fun1(ByRef Y As Integer，ByVal Z As Integer) y=y+z z=y-Z End Sub
填空题Visual Basic中，允许一个变量未加定义直接使用，这样VB即把它当做变体类型的变量。若使用Dim语句定义这种类型的变量，则在As后面应使用【8】关键字。
填空题Print Datediff("m",#2002/09/24#,#2002/09/25#)输出结果为 【13】 。
填空题执行下面的程序段后，变量S的值为 【13】 。 S=5 For i=2.6 To 4.9 Step 0.5 S=S+1 Next i
填空题在窗体上画—个命令按钮，然后编写如下代码： Private Sub Command1_Click() Dim M(10) As Integer For k=1 To 10 M(k) =12-k Next k x=6 Msgbox M(2+M(x) ) End Sub 程序运行后，单击命令按钮，消息框显示的是 【13】 。
填空题阅读下列程序。 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)=3 Next k Next j Call fun(x()) End Sub Private Sub fun(a()) For j=1 to 3 For k=1 to 3 Print a (j,k)； Next k Next j End Sub 运行程序时，输出的结果是 【12】 。
填空题OpenForm操作打开{{U}} 【7】 {{/U}}。
填空题在Access中， 【15】 查询的运行一定会导致数据表中数据的变化。
填空题在窗体上画一个命令按钮，然后编写如下程序： Dim x As Integer Sub inc(a As Integer) x=x+a End Sub Private Sub Commandl_Click() inc 2 inc 3 inc 4 Msgbox x； End Sub 程序执行后，单击Commandl命令按钮，消息框显示结果是 【14】 。
填空题有如下程序
aS="Flying":b$="IS'：c$="funny!"
Print a$+”"+LCase$(b$)+""+UCase$(cS)
End
运行后输出的结果是{{U}} 【13】 {{/U}}。
填空题实体一联系模型是一种常用的高级概念数据模型，而 【4】 是实体—联系模型中的核心。
填空题窗体由多个部分组成，每个部分称为一个{{U}} 【11】 {{/U}}，大部分的窗体只有{{U}} 【12】 {{/U}}。
填空题一下程序找出50以内所有能构成直角三角形的整数组。阅读下列程序，并完成程序。
Private Sub Commandl C土ick()
For a＝l to 50
For b＝a to 50
C＝Sqr(a∧上标2＋b∧上标2)
If{{U}}【15】{{/U}}then print a；b；c
next b
next a
end Sub
C＜＝50 And C＝Int(c)
填空题数据库中有工资表，包括“姓名”、“工资”和“职称”等字段，现要对不同职称的职工增加工资，规定教授职称增加15%，副教授职称增加10%，其他人员增加5%。下列程序的功能是按照上述规定调整每位职工的工资，并显示所涨工资的总和。请在空白处填入适当的语句，使程序可以完成指定的功能。 Private Sub Command3_Click() Dim ws As DAO.Workspaee Dim db As DAO.Database Dim rs As DAO.Reeordset Dim gz As DAO.Field Dim zc As DAO.Field Dim sum As Currency Dim rate As Single Set db=CurrentDb() Set rs=db.OpenRecordset("工资表") Set gz=rs.Fields("工资") Set ZC=rs.Fields("职称") Sum=0 Do While Not (14) rs.Edit Select Case ze Case Is="教授" rate=0.15 Case Is="副教授" rate=0.1 Case Else rate=0.05 End Select sum=sum+gz * rate gz=gz+gz * rate (15) rs.MoveNext Loop rs.Close db.Close Set rs=Nothing Set db=Nothing MsgBox"涨工资总计：" & sum End Sub
填空题数据管理技术经历了人工处理阶段、{{U}} [7] {{/U}}和{{U}} [8] {{/U}}、分布式数据库系统、面向对象数据库系统5个发展阶段。