有一个VBA计算程序的功能如下，该程序用户界面由4个文本框和3个按钮组成。4个文本框的名称分别为：Text1、Text2、Text3和Text4。3个按钮分别为：清除(名为Command1)、计算(名为Command2)和退出(名为Command 3)。窗体打开运行后，单击清除按钮，则清除所有文本框中显示的内容；单击计算按钮，则计算在Text1、Text2和Text3三个文本框中输入的3科成绩的平均成绩并将结果存放在 Text4文本框中；单击退出按钮则退出。请将下列程序填空补充完整。 Private Sub Command1_Click() Me!Textl=" " Me!Text2=" " Me!Text3=" " Me!Text4=" " End Sub Private Sub Command2_C1ick() If Me!Text1=" "Or Me! Text2=" "Or Me!Text3=" "ThenMsgBox"成绩输入不全" Else Me!Text4=( 【13】 +Val(Me!Text2)+Val(Me!Text3))/3 【14】 End Sub Private Sub Command3_Click()Docmd. 【15】 End Sub
参考答案：[13]Val(Me!Textl)或Val(Text1)[14] End If [15] Close或Quit
解析： 命令按钮Command1的Click事件是将窗体中的四个文本框中内容全部清空，命令按钮Command2的Click事件判断文本框Text1、Text2和Text3的内容是否为空，如果为空则使用MsgBox来输出提示信息，如果不为空则将其内容从字符串转化为数值进行求和计算，并计算其平均值，将结果传递给文本框Text4。命令按钮 Command3的Click事件是要实现窗体的退出或关闭操作。[13]位置语句的作用给出文本框Text1中的成绩，从后面内容可以判断此处应该填写：vdl(Me!Text1)。[14]位置语句的作用是结束If…Else分支结构，所以应该填写End If[15]位置语句的作用是用来退出窗体，所以可以使用DoCmd.Close或者DoCmd.Quit。