首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
有一个VBA计算程序的功能如下,该程序用户界面由4个文本框和3个按钮组成。4个文本框的名称分别为:Text1、Text2、Text3和Text4。3个按钮分别为:清除(名为Command1)、计算(名为Command2)和退出(名为Command3)。窗体
有一个VBA计算程序的功能如下,该程序用户界面由4个文本框和3个按钮组成。4个文本框的名称分别为:Text1、Text2、Text3和Text4。3个按钮分别为:清除(名为Command1)、计算(名为Command2)和退出(名为Command3)。窗体
admin
2009-05-20
71
问题
有一个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://kaotiyun.com/show/4Y5p777K
本试题收录于:
二级Access题库NCRE全国计算机二级分类
0
二级Access
NCRE全国计算机二级
相关试题推荐
若有函数原型声明为"voidfun(int*x,int&y,intz=3);",下列叙述中,错误的是
假定A为一个类,则语句“A(A&a);”为该类()函数的原型说明。
请使用VC6或使用【答题】菜单打开考生文件夹proj2下的工程proj2,该工程中包含一个程序文件main.cpp,其中有类AutoMobile(“汽车”)及其派生类Car(“小轿车”)、Truck(“卡车”)的定义,还有主函数main的定义。请在横线处填
执行下列语句段后,输出字符“*”的个数是()。for(inti=50;i>1;--i)cout<<’*’:
下面不能作为结构化方法软件需求分析工具的是
如需要向一个二进制文件尾部添加数据,则该文件的打开方式为()。
数据字典(DD)所定义的对象都包含于()。
一间宿舍可住多个学生,则实体宿舍和学生之间的联系是()。
数据库设计过程不包括
随机试题
第一审行政判决书中对被告的书写正确的是()
人幼年时期缺乏生长素则患________症,而生长素过多则患________症;成年人的生长素过多则患________症。
周围静脉补充营养适用于
患者,女,68岁,缺失已达12年,今求可摘局部义齿修复如伸长,咬合时与对颌黏膜接触,应如何处理
判断建筑物经济寿命,不用考虑其市场状况和经营收益状况。()
()主管全国教育工作,统筹规划、协调管理全国的教育事业。
被告人甲系被告单位上海A公司的法定代表人、实际经营者。2020年1月初,该公司以每盒5.125元的价格购入一批一次性使用无纺布口罩(规格:50只/盒),在公司网络店铺以每盒7元的价格销售。1月23日至29日间,甲将上述口罩的销售价格,陆续涨至每盒21元至每
Completethenotesbelowusingthelistofwords(A-K)fromtheboxbelow.Writethecorrectlettersinboxes19-25onyouranswer
"ConquestbyPatents"→Patentsareaformofintellectualpropertyrightsoftentoutedasameanstogive’incentiveandrew
A、Frenchmenbroughtitthere.B、Englishimmigrantsbroughtitthere.C、Germanimmigrantsbroughtitthere.D、Americansinvented
最新回复
(
0
)