首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
有一个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
29
问题
有一个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://jikaoti.com/ti/KEc0FFFM
本试题收录于:
二级Access题库NCRE全国计算机二级分类
0
二级Access
NCRE全国计算机二级
相关试题推荐
Windows环境下,由C++源程序文件编译而成的目标文件的扩展名是
当使用ifstream流类定义一个流对象并打开一个磁盘文件时,文件的默认打开方式为()。
下列数据结构中,属于非线性结构的是()。
下列关于虚基类的描述,错误的是()。
下列程序的输出结果是()。#include<iostrearn.h>voidmain(){intn[][3]={10,20,30,40,50,60};int(*p)[3];p=n;cout<<p[0][0
下面关于函数模板的表述中不正确的是()。
在数据处理中,其处理的最小单位是()。
下述静态数据成员的特征中,错误的是()。
内部格式控制操作函数是在头文件()中定义的。
随机试题
设f(x2)=x4+x2+1,则f’(1)=().
患儿,17岁,B超显示子宫横径宽,内膜回声分左右两部分,在宫腔中下部汇合,可能的诊断为
A.痰饮B.伏饮C.悬饮D.溢饮E.支饮水饮流溢于四肢,称为
不属于职业道德的特征的是
患者男性,30岁,患H1Nl型流感,为患者采集咽拭子标本的时间可安排在餐前1小时,其原因是
背景资料某项目部承包一项桥梁工程施工时,现场地方狭窄,建设方、监理方对现场平面布置十分关心,要求项目部出一张平面设计图,要求保证社会车辆从施工桥下通行。本工程现浇箱式梁模板支架采用钢柱支架搭设,施工项目部将支架搭设与拆除工作分包给劳务队。在施工中发生如下
小丽把平时节省下来的全部2分硬币先围成一个六边形,正好用完,后来又改围成一个正七边形,也正好用完,如果正六边形的每条边比正七边形多用3枚硬币,则小丽的这些硬币共有多少元?()
请对“凡教唆他人犯罪的一律以共犯论处”进行辨析。
与十进制数100等值的二进制数是
Thebiggestsafetythreatfacingairlinestodaymaynotbeaterroristwithagun,butthemanwiththeportablecomputerinbus
最新回复
(
0
)