有一个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

时间:2023-10-05 17:30:42

相似题目