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

admin2009-05-20  32

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

选项

答案Val(Me!Text1)或Val(Text1) End If Close 或Quit

解析 本题考查考生按要求设计程序的能力。命令按钮Command1的Click事件是将窗体中的四个文本框中内容全部清空,命令按钮Command2的Click事件判断文本框Text1、Text2和Text3的内容是否为空,如果为空则使用MsgBox来输出提示信息,如果不为空则将将其内容从字符串转化为数值进行求和计算,并计算其平均值,将结果传递给文本框Text4。命令按钮Command3的Click事件是要实现窗体的退出或关闭操作。位置语句的作用给出文本框Text1中的成绩,从后面内容可以判断此处应该填写: Val(Me!Text1),非常简单,一般考生都能正确回答。
位置语句的作用是结束If…Else分支结构,所以应该填写End If。
位置语句的作用是用来退出窗体,所以可以使用DoCmd.Close或者DoCmd.Quit注意 Close和Quit的区别,Close只是退出当前窗体,而Quit将退出Access。
转载请注明原文地址:https://jikaoti.com/ti/Rpc0FFFM
0

最新回复(0)