首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
有一个VBA计算程序的功能如下,该程序用户界面由4个文本框和3个按钮组成。4个文本框的名称分别为:Text1、Text2、Text3和Text4。3个按钮分别为:清除(名为Command1)、计算(名为Command2)和退出(名为Command 3)。窗
有一个VBA计算程序的功能如下,该程序用户界面由4个文本框和3个按钮组成。4个文本框的名称分别为:Text1、Text2、Text3和Text4。3个按钮分别为:清除(名为Command1)、计算(名为Command2)和退出(名为Command 3)。窗
admin
2009-01-19
31
问题
有一个VBA计算程序的功能如下,该程序用户界面由4个文本框和3个按钮组成。4个文本框的名称分别为:Text1、Text2、Text3和Text4。3个按钮分别为:清除(名为Command1)、计算(名为Command2)和退出(名为Command 3)。窗体打开运行后,单击清除按钮,则清除所有文本框中显示的内容;单击计算按钮,则计算在Text1、Text2和Text3三个文本框中输入的3科成绩的平均成绩并将结果存放在 Text4文本框中;单击退出按钮则退出。请将下列程序填空补充完整。
Private Sub Command1_Click()
Me!Textl=" "
Me!Text2=" "
Me!Text3=" "
Me!Text4=" "
End Sub
Private Sub Command2_C1ick()
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!Textl)或Val(Text1), End If, Close或Quit
解析
命令按钮Command1的Click事件是将窗体中的四个文本框中内容全部清空,命令按钮Command2的Click事件判断文本框Text1、Text2和Text3的内容是否为空,如果为空则使用MsgBox来输出提示信息,如果不为空则将其内容从字符串转化为数值进行求和计算,并计算其平均值,将结果传递给文本框Text4。命令按钮 Command3的Click事件是要实现窗体的退出或关闭操作。[13]位置语句的作用给出文本框Text1中的成绩,从后面内容可以判断此处应该填写:vdl(Me!Text1)。[14]位置语句的作用是结束If…Else分支结构,所以应该填写End If[15]位置语句的作用是用来退出窗体,所以可以使用DoCmd.Close或者DoCmd.Quit。
转载请注明原文地址:https://kaotiyun.com/show/Ht5p777K
本试题收录于:
二级Access题库NCRE全国计算机二级分类
0
二级Access
NCRE全国计算机二级
相关试题推荐
已知数组arr的定义如下:intarr[5]={1,2,3,4,5};下列语句中输出结果不是5的是
下列运算符中,不能被重载的是
下列有关类成员的叙述中,正确的是()。
下列数据结构中,不能采用顺序存储结构的是()。
将E-R图转换到关系模式时,实体与联系都可以表示成()。
有两个关系R、S如下所示:由关系R通过运算得到关系S,则所使用的运算为()。
面向对象方法中,继承是指( )。
下列关于类定义的说法中,正确的是()。
第一趟排序后序列中关键字最大的记录交换到最后的排序方法是______。
表的组成内容包括()。
随机试题
大多数核医学科的放射性核素日等效最大操作量为
在大肠杆菌的DNA损伤修复时,对于填补缺口可能最重要的酶是
A.丹栀逍遥散B.乌药汤C.通窍活血汤D.天仙藤散E.龙胆泻肝汤治疗子肿气滞证,应首选()
应包含有关药品的安全性、有效性等基本科学信息的是内包装以外,由里向外分为中包装和大包装的是
5.29×0.9259=()。
下列各项中,既可以作为登记总账的依据,又可以作为登记明细账依据的是()。
根据下列资料,回答问题。2013年末全国就业人员76977万人,比上年末增加273万人;其中城镇就业人员38240万人,比上年末增加1138万人。2013年全年五项社会保险(含城乡居民基本养老保险)基金收入合计35253亿元,增长率为1
将E—R图转换为关系模式时,实体和联系都可以表示为
Whatisthemostappropriatetitleforthispassage?
Theyspentthewholeday______strawberriesinthewood.
最新回复
(
0
)