填空题有一个VBA计算程序的功能如下，该程序用户界面由4个文本框和3个按钮组成。4个文本框的名称分别为：Text1、Text2、Text3和Text4。3个按钮分别为：清除(名为Command1)、计算(名为Command2)和退出(名为Command3)。窗体打开运行后，单击清除按钮，则清除所有文本框中显示的内容；单击计算按钮，则计算在Textl、Text2和Text3三个文本框中输入的3科成绩的平均成绩并将结果存放在Text4文本框中；单击退出按钮则退出。请将下列程序填空补充完整。
Private Sub Commandl_Click()
Me!Text1=""
Me!Text2=""
Me!Text3=""
Me!Text4=""
End Sub
Private Sub Command2_Click()
If Me!Text1="" Or Me!Text2="" Or Me!Text3="" Then
MsgBox "成绩输入不全"
Else
Ne!Text4=({{U}} 【13】 {{/U}}+Val(Me!Text2)+Val(Me[Text3))/3
{{U}} 【14】 {{/U}}
End Sub
Private Sub Command3_Click()
Docmd.{{U}} 【15】 {{/U}}
End Sub
填空题查询是对数据库中表的数据进行查找，同时产生一个类似于______的结果。
填空题如果一个查询的数据源仍是查询，而不是表，则该查询称为{{U}} 【10】 {{/U}} 。
填空题下列程序段的执行结果为上丝{{U}} 【14】 {{/U}}。
K=0
For J=1 TO 2
For I=1 TO 3
K=I +i
Next I
For I=1 TO 7
K=K +i
Next I
Next J
Print K
填空题Access中，超级链接地址最多包含3部分：Displaytext、 【8】 、Subaddress。
填空题在窗体上添加一个命令按钮(名为Cmd)，然后编写如下事件过程： Private Sub Cmd_Click( ) Dim sum,k For k=1 to 6 sum=30+k Next k MsgBox sum+k End Sub 打开窗体后，单击命令按钮，消息框的输出结果是 【12】 。
填空题在面向对象方法中，类之间共享属性和操作的机制称为{{U}} 【5】 {{/U}}。
填空题纵栏式窗体将窗体中的一个显示记录按 【9】 分隔。
填空题在窗体上画一个命令按钮，然后编写如下程序：
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命令按钮，消息框显示结果是{{U}} 【14】 {{/U}}。
填空题用二维表的形式来表示实体之间联系的数据模型叫做______。
填空题如果表中一个字段不是本表的主关键字，而是另外一个表的主关键字或候选关键字，这个字段称为{{U}} 【6】 {{/U}}。
填空题在当前窗体上，若要实现将焦点移动到指定控件，应使用的宏操作命令是【7】。
填空题VBA中定义符号常量的关键字是 【12】 。
填空题ODL转换关系时，若为原子类型属性，类的每个属性对应关系的一个属性；若为结构类型，其每个元素为关系的一个属性；若为数组，则按元素的个数即可扩展为_________，也可扩展为多个属性。
填空题三个基本的关系运算是 【7】 、 【8】 和联接。
填空题在设计带条件宏时，对于连续重复的条件，可以用{{U}} 【10】 {{/U}}符号来代替重复条件。
填空题在窗体中添加一个命令按钮，名称为Command1，然后编写如下程序： Private Sub Command1_Click() Dim s，i For i=1 To 10 s=s+i Next i MsgBox s End Sub 窗体打开运行后，单击命令按钮，则消息框的输出结果为______。
填空题关系代数主要运算有并、交、差、笛卡儿积、选择、投影和______。
填空题调试方法中的 【3】 最适合小规模程序的排错。
填空题在窗体中有一个名为Command12的命令按钮，Click事件的代码如下。该事件所完成的功能是：接受从键盘输入的10个大于0的整数，找出其中的最大值和对应的输入位置。请依据上述功能将程序补充完整。 Private Sub Command12_Click() max=0 max n=0 For i=1 To 10 num Val(InputBox("请输入第"&i&"个大于0的整数：")) If(nLlm＞max)Then max= max_n= End If Next i MsgBox("最大值为第"&max_n&"个输入的"&.max) End Sub