有一个VBA计算程序的功能如下:该程序用户界面由4个文本框和3个按钮组成。4个文本框的名称分别为:Text1、Text2、Text3和Text4,3个按钮分别为:清除(名为C1)、计算(名为C2)和退出(名为C3)。窗体打开运行后,单击“清除”按钮,则清除

admin2013-02-04  34

问题 有一个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=“”Or Me!Text2=“”Or Me!Text3=“”Then
         MsgBox”三个文本框都要输入值!”
         ___________
         Me!Text4=(Val(Me!Text1)+Val(Me!Text2)+___________)
      EndIf
    End Sub
    Private Sub C3_Click()
       Docmd___________
    End Sub

选项

答案E1se Val(Me!Text3) Close

解析 本题考查有关VBA中程序设计的知识。对于这个问题,首先由于满足If分支的条件也就是如果有文本框内容为空则会弹出消息框提示信息,而若条件不满足也就是说三个文本框中都有值时应该计算三个文本框之和,所以第1空处应填Else。要计算三个文本框之和,也就是把3个文本框中的内容转换成数值后相加,所以第2空处应填Val(Me!Text3)。最后一个命令按钮的作用是退出窗体,在VBA中关闭窗体应该使用命令DoCmd.close,所以第3空处应填Close。
转载请注明原文地址:https://kaotiyun.com/show/zlup777K
0

最新回复(0)