有一个VBA计算程序的功能如下:该程序用户界面由四个文本框(T1、T2、T3和T4)和三个按钮(C1、C2和C3)分别显示为清除、计算和退出。运行窗体后,单击“清除”按钮,则清除所有文本框中显示的内容;单击“计算”按钮,则计算在T1、T2和T3三个文本框中

admin2013-01-07  40

问题 有一个VBA计算程序的功能如下:该程序用户界面由四个文本框(T1、T2、T3和T4)和三个按钮(C1、C2和C3)分别显示为清除、计算和退出。运行窗体后,单击“清除”按钮,则清除所有文本框中显示的内容;单击“计算”按钮,则计算在T1、T2和T3三个文本框中输入的3个数字的和,并将结果存放在名为T4的文本框中;单击“退出”按钮则退出程
    Private Sub C1_Click()
    Me! T1=""
    Me! T2=""
    Me! T3=""
    Me! T4=""
    End Sub
    Private Sub C2_Click()
    If Me! T1=""r Me! T2=""Or Me! T3=""Then
    MsgBox"三个文本框都要输入值!"
    _________
    Me! T4=(Val(Me! T1)+Val(Me! T2)+_________)
    End If
    End Sub
    Private Sub C3_Click()
    Docmd._______
    End Sub

选项

答案Else val(Me!Text3) Close

解析 本题首先满足If分支的条件,也就是如果有文本框内容为空,则会弹出MsgBox提示信息,若条件不满足,也就是说三个文本框中都有值时,应该计算三个文本框之和,所以第一个空填E1se。要计算三个文本框之和,也就是把三个文本框中的内容转换成数值后相加,所以第二空处应填Val(Me!Text3)。最后的代码作用是退出窗体,其命令应为:Docmd.Close。所以第三空应为Close。
转载请注明原文地址:https://kaotiyun.com/show/Gtup777K
0

随机试题
最新回复(0)