有一个VBA计算程序的功能如下,该程序用户界面由4个文本框和3个按钮组成。4个文本框的名称分别为:Text1、Text2、Text3和Text4。3个按钮分别为:清除(名为Command1)、计算(名为Command2)和退出(名为Command3)。窗体

admin2009-02-15  26

问题 有一个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=(【  】+Val(Me!Text2)+Val(Me!Text3))/3
       【  】
End Sub
Private 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方法。
转载请注明原文地址:https://kaotiyun.com/show/XN5p777K
0

最新回复(0)