填空题现有一文本框，利用失去焦点触发事件过程改变文本框txt的背景颜色为蓝色。请补充完整程序。
Private Sub txt_LostFocus( )
{{U}} 【14】 {{/U}}
End sub
填空题从员工信息表中查询姓名为张红的name字段和email字段的语句是{{U}} 【12】 {{/U}}。
填空题有一个学生选课的关系，其中学生的关系模式为：学生（学号，姓名，班级，年龄），课程的关系模式为：课程（课号，课程名，学时），其中两个关系模式的键分别是学号和课号，则关系模式选课可定义为：选课（学号，【5】，成绩）。
填空题数据库管理系统常见的数据模型有层次漠型、网状模型和{{U}} 【5】 {{/U}}三种。
填空题在窗体上添加一个命令按钮(名为Command1)，然后编写如下程序： Function m(x as Integer,y as Integer) as Integer m=IIf(x＞y，x，y) End Function Private Sub Command1_Click() Dim a as Integer，b as Integer a=1 b=2 MsgBox m(a，b) End Sub 打开窗体运行后，单击命令按钮，消息框的输出结果为 【12】 。
填空题在窗体中添加一个命令按钮（名为Command1）和一个文本框（名为Text1），然后编 写如下事件过程：
Private Sub Command1_Click()
Dim x As Integer, y As Integer, z As Integer x=5:y=7:z=0
Me!Text1=""
Call p1(x,y,z) Me!Text1=z
End Sub
Sub p1(a As Integer, b As Integer, c As Integer)
c=a+b
End Sub
打开窗体运行后，单击命令按钮，文本框中显示的内容是__________ 。
填空题某个窗体已编写以下事件过程，打开窗体运行后，单击窗体，消息框的输出结果为______。 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
填空题OpenForm操作打开 【7】 。
填空题从通信录表中查询姓名为张三的nickname字段和email字段的语句{{U}} 【11】 {{/U}}。
填空题以下是一个竞赛评分程序。8位评委，去掉一个最高分和一个最低分，计算下均分(设满分为10分)， 请填空补充完整。 Private Sub Form_Click() Dim Max as Integer,Min as Integer Dial i as Integer,x as Integer,s as Integer Dim p as Single Max=0 Min=10 For i=1 To 8 x=Val (InputBox("请输入分数：")) If 【13】 Then Max=x If 【14】 Then Min=x s=s+x Next i s= 【15】 p=s/6 MsgBox"最后得分："&P End Sub
填空题在窗体上画一个命令按钮，然后编写如下程序： Dim x As Integer Sub inc(a As Integer) x=x+a End Sub Private SubCommand1_Click() inc 2 inc 3 inc 4 Msgbox x； End Sub 程序执行后，单击Command1命令按钮，消息框显示结果是 【14】 。
填空题给出窗体单击事件过程：
PRIVATE SUB FORM_CLICK( )
DIM A AS INTEGER
A =VAL( INPUTBOX( "PLEASE INPUT A NUMBER" ))
SELECT CASE A MOD 5
CASE IS＜4
W=A+10
CASE IS＜2
W=A.2
CASE ELSE
W=A-10
END SELECT
MSGBOX W
END SUB
当运行程序后，设输入的数据分别为14、3、125、21时，消息框显示的内容分别是{{U}} 【15 】 {{/U}}。
填空题 【15】主要用于对数据库中的数据进行分组、计算、汇总和打印输出。
填空题一个具体的关系模型由若干个______组成。
填空题在窗体上有一个命令按钮Commandl，编写事件代码如下：
Private Sub Command1_Click()
Dim a(10), p(3) As Integer
k = 5
For i = 1 To 10
a(i) = 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
打开窗体运行后，单击命令按钮，消息框中输出的结果是【10】。
填空题VBA语言中，______函数的功能弹出一个消息对话框。
填空题在关系数据库中，基本的关系运算有三种，它们是选择、投影和{{U}} 【6】 {{/U}}。
填空题执行下面的程序，消息框里显示的结果是______。 Private Sub Form_Click() Dim Str As String Str="" S="Access" For i=Len(S)To 1 Step-1 Str=Str & Mid(S，i，1) Next i MsgBox Str End sub
填空题为某个窗体编写如下事件，单击窗体，消息框显示的结果为{{U}} 【13】 {{/U}}。
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
填空题Access中提供了6种预定义报表格式，有【 】、【 】、浅灰、紧凑、【 】和随意。