有一个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 SubPrivate Sub Command2_Click()If Me!Text1="" Or Me!Text2="" Or Me!Text3="" thenMsgBox "成绩输入不全" Else Me!Text4=(__________ +Val(Me!Text2)+Val(Me!Text3))/3__________End SubPrivate Sub Command3_Click() Docmd. __________End Sub
参考答案:Val(Me!Text1) End If Quit
解析:由题目可知,Text4 中存放的是 3 科成绩的平均成绩,所以要把 3 个科目的成绩加起来除以 3,所以第 1 空应该填 Val(Me!Text1),获得输入科目的成绩;If…Else…End If 语句中,缺少结束语句,所以第 2 空应该填 End If;Command3 的功能是退出,而退出有两种,一种是退出窗体,一种是退出 Access,如果 是退出窗体,则使用 Close 方法,如果是退出 Access,则使用 Quit 方法。