首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
有一个VBA计算程序的功能如下:该程序用户界面由4个文本框和3个按钮组成。4个文本框的名称分别为:Text1、Text2、Text3和Text4,3个按钮分别为:清除(名为C1)、计算(名为C2)和退出(名为C3)。窗体打开运行后,单击“清除”按钮,则清除
有一个VBA计算程序的功能如下:该程序用户界面由4个文本框和3个按钮组成。4个文本框的名称分别为:Text1、Text2、Text3和Text4,3个按钮分别为:清除(名为C1)、计算(名为C2)和退出(名为C3)。窗体打开运行后,单击“清除”按钮,则清除
admin
2013-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
本试题收录于:
二级Access题库NCRE全国计算机二级分类
0
二级Access
NCRE全国计算机二级
相关试题推荐
在存取数据库中数据的过程中,使用了两个数据缓冲区,分别为______缓冲区和缓冲区。
哪个查询是包含另一个选择或操作查询中的SQLSelect语句,可以在查询设计网格的“字段”行输入这些语句来定义新字段,或在“准则”行来定义字段的准则______。
以下四种排序方法中,需要附加的内存空间最大的是______。
数据结构中,与所使用的计算机无关的是数据的______。
在程序设计阶段应该采取______和逐步求精的方法,把一个模块的功能逐步分解,细化为一系列具体的步骤,进而用某种程序设计语言写成程序。
在报表设计中,以下可以做绑定控件显示普通字段数据的是______。
设一个关系为R(A,B,C,D,E),它的最小函数依赖集为FD=(A→B,B→C,B→D,D→E},则该关系的候选码为______,该候选码含育______属性。
若要获得当前的日期及时间,可使用【】函数。
模块包含了一个声明区域和一个或多个子过程(Sub开头)或函数过程(以【】开头)。
Dlookup函数的功能是【】。
随机试题
关于程序法定,下列说法正确的是:()
A.X线胸片病变部位透亮度增加B.X线胸片病变部位肺纹理消失C.两者均有D.两者均无肺大疱时可见
根据《宪法》规定,关于国务院的说法,下列哪些选项是正确的?(2010年试卷一第61题)
自然保护区的内部未进行分区的,依照《自然保护区条例》应按有关()的规定管理。
按照金属切割过程中加热方法的不同大致可以把切割分为()。
用于振实填料为爆破石渣、碎石类土、杂填土和粉土等非黏性土效果较好的填筑压实方法是()。
采用钢—混凝土结合梁的目的是()。
封闭式基金在二级市场上的竞价交易,其交易价格由供求关系和基金业绩决定,围绕着( )上下波动。
一般资料:男,38岁,私企老板。下面是心理咨询师与求助者的咨询片断:心理咨询师:你好!我能在哪方面为你提供服务?求助者:我也不知道是怎么了,所以想请您帮忙弄清楚我到底是哪里出了问题。心理咨询师:哦,原来是这样呀!那就
单击命令按钮执行以下程序,则输出结果为()。PrivateSubCommand1_Click()DimxAsInteger,yAsIntegerx=14:y=48CallProc(x,y)
最新回复
(
0
)