问题 填空题

有一个VBA计算程序的功能如下,该程序用户界面由4个文本框和3个按钮组成。4个文本框的名称分别为:Text1、Text2、Text3和Text4。3个按钮分别为:“清除”(名为Command1)、“计算”(名为Command2)和“退出”(名为Command3)。窗体打开运行后,单击“清除”按钮,则清除所有文本框中显示的内容;单击“计算”按钮,则计算在Text1、Text2和Text3 3个文本框中输入的3科成绩的平均成绩并将结果存放在Text4文本框中;单击“退出”按钮则退出。请将下列程序填空补充完整。
Private Sub Command1 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
Me!Text4=( (13) +Val(Me!Text2)+Val(Me!Text3))/3
(14)
End Sub
Private Sub Command3_Click()
Docmd. (15)
End Sub

答案

参考答案:(13) Val(Me!Text1) (14) End If (15) Close(或Quit)

解析: 本题考查的是VBA编程基础。由题目可知,Text4中存放的是3科成绩的平均成绩,所以要把3科成绩加起来除以3,所以(13)空应该填Val(Me!Text1),获得输入科目的成绩;在If…Else…End If语句中,缺少结束语句,所以(14)空应该填End If;Command3的功能是退出,而退出有两种,一种是退出窗体,一种是退出Access,如果是退出窗体,则使用Close方法,如果是退出Access,则使用Quit方法。所以(15)空应该填close(或Quit)。

单项选择题
单项选择题