填空题
有一个VBA计算程序的功能如下，该程序用户界面由4个文本框和3个按钮组成。4个文本框的名称分别为：Text1、Text2、Text3和Text4。3个按钮分别为：清除(名为Command1)、计算(名为Command2)和退出(名为Command3)。窗体打开运行后，单击清除按钮，
则清除所有文本框中显示的内容；单击计算按钮，则计算在Text1、Text2和Text3三个文
本框中输入的3科成绩的平均成绩并将结果存放在Text4文本框中：单击退出按钮则退出。
请将下列程序填空补充完整。
Private Sub Command1_Click()
Me!Text1=""
Me!Text2=""
Me!Text3=""
Me!Text4=""
End Sub
Pdvate Sub Command2_Click()
If Me!Text1="" Or Me!Text2="" Or Me!Text3=""then
MsgBox"成绩输入不全"
Else
Me!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
1、
【正确答案】
1、【13】Val(Me!Text1) 【14】End If 【15】Quit
【答案解析】[知识点] VBA程序设计基础
[评析] 由题目可知，Text4中存放的是3科成绩的平均成绩，所以要把3个科目的成绩加起来除以3，所以第1空应该填Val(Me!Text1)，获得输入科目的成绩；If…Else…End If语句中，缺少结束语句，所以第2空应该填 End If; Command3的功能是退出，而退出有两种，一种是退出窗体，一种是退出Access，如果是退出窗体，则使用Close方法，如果是退出Access，则使用Quit方法。