更多"有一个VBA计算程序的功能如下,该程序用户界面由4个文本框和3个按钮组"的相关试题:
[填空题]有一个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=(__________ +Val(Me!Text2)+Val(Me!Text3))/3__________
End Sub
Private Sub Command3_Click( ) Docmd. __________
End Sub
[填空题]有一个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=(______+Val(Me!Text2)+Val(Me!Text3))/3
______
End Sub
Private Sub Command3_Click( )
DocmD______
End Sub
[填空题]有一个VBA计算程序的功能如下:该程序用户界面由3个文本框和3个按钮组成,3个文本框的名称分别为Text1、Text2和Text3,3个按钮分别为清除(名为Command1) 、计算(名为 Command2) 和退出(名为Command3) 。窗体打开运行后,单击清除按钮,则清除所有文本框中显示的内容;单击计算按钮,则计算在Text1和Text2两个文本框中输入的数值的和并将结果存放在Text3文本框中;单击退出按钮则退出。请将下列程序填空补充完整。
Private Sub Command1_Click( )
Me!Text1=""
Me!Text2=""
Me!Text3=""
End sub
Private Sub Command2 Click( )
If Me!Text1=""Or Me! Text2=""Or Me! Text3=""Then
MsgBOx"输入不全"
Else
Me!Text4=( [13] +Val(Me!Text2))
[14]
End Sub
Private Sub Command3 Click( )
DocmD [15]
End Sub
[填空题]有一个VBA计算程序的功能如下:该程序用户界面由4个文本框和3个按钮组成。4个文本框的名称分别为:Text1、Text2、Text3和Text4,3个按钮分别为:清除(名为C1)、计算(名为C2)和退出(名为C3)。窗体打开运行后,单击“清除”按钮,则清除所有文本框中显示的内容;单击“计算”按钮,则计算在Text1、Text2和Text3三个文本框中输入的3个数字的和并将结果存放在名为Text4的文本框中;单击“退出”按钮则退出程序。请将下列程序填空补充完整。
Private Sub C1_Click( )
Me!Text1=""
Me!Text2=""
Me!Text3=""
Me!Text4=""
End Sub
Private Sub C2_Click( )
If Me!Text1=""0r Me!Text2=""0r Me!Text3=""Then
MsgBox"三个文本框都要输入值!"
______
Me!Text4=(Val(Me!Text1)+Val(Me!Text2)+______)
End If
End Sub
Private Sub C3_Click( )
Docmd.______
End Sub