首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
有一个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
53
问题
有一个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://www.kaotiyun.com/show/XN5p777K
本试题收录于:
二级Access题库NCRE全国计算机二级分类
0
二级Access
NCRE全国计算机二级
相关试题推荐
Windows环境下,由C++源程序文件编译而成的目标文件的扩展名是
若有如下语句:#includevoidmain(){intx=3:do{x=x-2;cout
下列语句中,错误的是
类中的一个字符指针成员指向具有m个字节的存储空间时,它所能存储的字符串的最大长度为()。
以下程序的执行结果是()。#includeintfun(intb[],intn){inti,r==l;for(i=0;i
使用VC6打开考生文件夹下的源程序文件modi3.cpp。其中定义的类并不完整,按要求完成下列操作,将类的定义补充完整。完成以下功能:(1)完成类Rect的构造函数,实现对变量left、fight、top、bottom的初始化,缺省值都为0,请在注释∥*
在C++语言系统中,用于输出数据所使用的标识符cout是
已知有数组定义chara[3][4];下列表达式中正确的是
下列选项中,错误的C++表达式是()。
数据结构主要研究的是数据的逻辑结构、数据的运算和()。
随机试题
王某经过考试成为某县财政局新录用的公务员,但因试用期满不合格被取消录用。下列说法中正确的是()。
功能清泻肺热,平喘止咳者为功能清胃凉血者为
下列说法错误的是()
以下关于羊水栓塞的治疗,正确的是
投资目的的()决定了投资收益的多重性。
职业道德除了具有道德的一般特征之外,还具有()特征。
挂失止付是票据丧失后票据权利补救的必经程序,失票人只有对丧失的票据办理挂失止付后,方可向人民法院申请公示催告。()
()的特点是注重以当地特产为材料,精于制汤和以汤调味,烹调法以爆、炒、扒、熘最为突出,味型以咸鲜为主。
以下各项关于微内核(microkernel)操作系统的说法,正确的是()。
QueenMary’sReignI.HistoriceventsA.KingHenryVIIIplannedMary,his【T1】______,【T1】______tomarryhissonEdward.B.
最新回复
(
0
)