首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
有一个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-02-15
60
问题
有一个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
Pdvate 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) End If Quit
解析
由题目可知,Text4中存放的是3科成绩的平均成绩,所以要把3个科目的成绩加起来除以3,所以第1空应该填Val(Me!Text1),获得输入科目的成绩;If…Else…End If语句中,缺少结束语句,所以第2空应该填 End If; Command3的功能是退出,而退出有两种,一种是退出窗体,一种是退出Access,如果是退出窗体,则使用Close方法,如果是退出Access,则使用Quit方法。
转载请注明原文地址:https://kaotiyun.com/show/XN5p777K
本试题收录于:
二级Access题库NCRE全国计算机二级分类
0
二级Access
NCRE全国计算机二级
相关试题推荐
有如下类定义:classPoint{public:voidSetX(intxx){x=xx;}protected:voidSetY(intyy)
有如下程序:#includeusingnamespacestd;classA{public:A(){cout
有如下程序:#includeusingnamespacestd;classPoint{public:Point(intxx=0,intyy=0):x(xx),
设一棵树的度为4,其中度为4,3,2,1的结点个数分别为2,3,3,0。则该棵树中的叶子结点数为()。
数据库中对概念模式内容进行说明的语言是
以下程序段是函数返回a所指数组中最大的值所在的下标值,横线处的语句为()。fun(int*a,intn){inti,j=0,k;k=j;for(i=j;ia[k])——;return(k);
下列有关继承和派生的叙述中,正确的是()。
有三个关系R、S和T如下:则由关系R和S得到关系T的操作是()。
若x和y是程序中的两个整型变量,则下列if语句中合法的是
下列关于软件测试的目的和准则的叙述中,正确的是()。
随机试题
在房间中利用火炉进行取暖时,其传热方式为()。
下列作品出自同一作家的是()
胃蛋白酶作用的最适pH是
患儿,8岁。因发热,关节肿痛而入院,经检查确定为风湿性关节炎,查体时未发现心脏异常,医生嘱其服用阿司匹林,其总疗程一般为
由十各行业生产性质和条件的不同,建筑系数和场地利用系数的大小必然有所差异,就一般工业项目而言,其建筑系数应不低于()。
下列境内纳税义务人书面申请海关无需进行价格质疑和磋商,依法审查确定进出口的是()。
法国后印象派的代表画家是()
1979年4月召开的中共中央工作会议决定对国民经济实行的方针是()。
在xOy坐标平面上,连续曲线L过点M(1,0),其上任意点P(x,y)(x≠0)处的切线斜率与直线OP的斜率之差等于ax(常数a>0).求L的方程;
Theevolutionofsexratioshasproduced,inmostplantsandanimalswithseparatesexes,approximatelyequalnumbersofmalesa
最新回复
(
0
)