有一个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
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
题库:计算机等级考试
类型:填空题
时间:2017-07-03 15:35:23
免费下载:《填空》Word试卷
有一个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
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
本题关键词:个体享用性功能,个体发展功能,招标基本程序,程序性文件,个别访谈,个体识别,个别治疗,面试程序,同一工程两个业务,个体身心发展顺序性;