首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
下面程序的功能是单击窗体时在消息框中输出1000以内能同时被3、5和7整除的整数。请在空白处填入适当语句将程序补充完整。 Private Sub Form_Click() sum=0 For i=1 To 1000 I
下面程序的功能是单击窗体时在消息框中输出1000以内能同时被3、5和7整除的整数。请在空白处填入适当语句将程序补充完整。 Private Sub Form_Click() sum=0 For i=1 To 1000 I
admin
2013-02-04
45
问题
下面程序的功能是单击窗体时在消息框中输出1000以内能同时被3、5和7整除的整数。请在空白处填入适当语句将程序补充完整。
Private Sub Form_Click()
sum=0
For i=1 To 1000
If______Then
sum=sum+i
End If
Next i
MsgBox sum
End Sub
选项
答案
i Mod3=0 And i Mod 5=0 And i Mod 7=0
解析
本题考查VBA中书写条件表达式的知识。本题需要补充完整的空白处恰好就是这个程序的关键所在,也就是如何判断i能同时被3、5和7整除。判断整除我们一般使用两个数相除求余数,然后通过判断余数是否为0来实现。由于需要同时被3、5和7整除,所以三个判断的表达式之间应该是“与”的关系,最终结果为i Mod 3=0 And i Mod 5=0 And i Mod 7=0。
转载请注明原文地址:https://kaotiyun.com/show/Eyup777K
本试题收录于:
二级Access题库NCRE全国计算机二级分类
0
二级Access
NCRE全国计算机二级
相关试题推荐
有如下程序:#includeusingnamespacestd;voidfun(int&x,int&y){y=y+x;x=y/4;
设有定义语句int(*f)(int);,则下列叙述正确的是()。
数据库管理系统是()。
将E-R图转换为关系模式时,实体和联系都可以表示为()。
学生选修课程的关系模式为SC(s#,Sn,Sd,Sa,C#,G)(其属性分别为学号、姓名、所在系、年龄、课程号和成绩);C(C#,Cn,P#)(其属性分别为课程号、课程名、先选课)。关系模式中包含对主属性部分依赖的是()。
有如下类定义和对象定义:classA{public:A():data(0){}A(intx):data(x){}~A(){}intGetData()const{returndata;}
在数据库系统中,数据模型包括概念模型、逻辑模型和
对长度为n的线性表排序,在最坏情况下,比较次数不是n(n-1)/2的排序方法是()。
如下程序段的输出结果是【】。 i=1 DOWHILEi<10 i=i+2 ENDDO ?i查询与项目“sl(项目号)所使用的任意一个零件相同的项目号、项目名称、零件号和零件名称,使用的SQL语句是SELECT项目
在存取数据库中数据的过程中,使用了两个数据缓冲区,分别为______缓冲区和缓冲区。
随机试题
当截平面斜截圆锥并能截断圆锥全部素线时,截交线不可能是_______、_______和_______。
(2008年4月)侵占罪
药品说明书和标签,是药品外在质量的主要体现,是传递药品信息,指导医师用药和消费者购买使用药品,以及药师开展合理用药咨询的主要依据之一。请回答下面有关问题。以下有关注册商标的表述,错误的是
根据下列资料。回答下列问题。2009年1~4月我国完成城镇固定资产投资为37082.30亿元,比去年同期增长30.5%,其中第一产业比去年同期增长82.1%,投资比重见下图。2008年1~4月我国完成的城镇固定资产投资中,第一产业
根据建设项目所排污水中污染物类型和需预测的(),将污水水质分为复杂、中等、简单三级。
编敕作为一种重要的法律形式形成于( )。
在一台主机上用浏览器无法访问到域名为www.pku.edu.cn的网站,并且在这台主机上执行ping
HowIceCreamWorksTheU.S.icecreamindustrysellsaboutamilliongallonsoficecreameachyear,dispensingcones,gall
HappinessandSadnessA)Happinessandsadnessaretwomostbasicandfamiliarfeelingsofhumanbeings.Recently,peoplehavega
Whenmysoncompletesatask,Ican’thelpbutpraisehim.It’sonlynaturaltogivepraisewherepraiseisdue,right?Butist
最新回复
(
0
)