下面程序的功能是单击窗体时在消息框中输出1000以内能同时被3、5和7整除的整数。请在‘空白处填入适当语句将程序补充完整。 Private Sub Form_Click() sum＝0 For i＝1 To 1000 If_____

admin2013-05-12 28

问题下面程序的功能是单击窗体时在消息框中输出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 Mod 3＝0 And i Mod 5＝0And 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/JLrp777K

本试题收录于：二级Access题库NCRE全国计算机二级分类

二级Access

NCRE全国计算机二级

相关试题推荐

随机试题

最新回复(0)

下面程序的功能是单击窗体时在消息框中输出1000以内能同时被3、5和7整除的整数。请在‘空白处填入适当语句将程序补充完整。 Private Sub Form_Click() sum＝0 For i＝1 To 1000 If_____

二级Access

NCRE全国计算机二级

下列程序的运行结果为【】。A="1"B="2"A=Val(A)+Val(B)B=Val("12")IfA＜＞BThenPrintA-BElsePrintB-A

运行以下程序段后，输出结果为【】。ForI=1To3ClsPrint"I=",I；Next@答案@I=3@解析@本题考查Cls语句的功能。Cis语句的功能是清除窗体或其他对象上的所有输出，因此，本题在运行中虽然对I=1和I=2有输出，

执行语句：MsgBox"AAAA"，vbOKCancel+vbQuestion,"BBBB"之后，弹出的信息框外观样式是(2005年4Pt)

关系数据库管理系统能实现的专门关系运算包括()。

Access数据库内包含了3种关系方式，即一对一、一对多、【】。

以下是某个报表的设计视图。根据视图内容，可以判断出分组字段是()。

操作参数里的表达式可以是()。ⅠVisualBasic函数Ⅱ自定义的函数Ⅲ数学表达式Ⅳ对表单控制的引用

在有参数函数设计时，要想实现某个参数的“双向”传递，就应该说明该形参“传址”调用形式。其设置选项是()。

用于指定一个字段值的范围的特殊运算符是()。

患者，男，36岁。平素嗜酒，今晨呃声洪亮，冲逆而出，烦躁口渴，渴喜冷饮，舌苔黄，脉滑数，治疗最佳方剂为

诊断骨肿瘤良恶性最主要的依据是

A乳化剂类型改变B微生物及光、热、空气等作用C分散相与连续相存在密度差DZeta电位降低E乳化剂失去乳化作用乳剂酸败的原因是

患者咳嗽咳痰，量多清稀，且气喘，胸闷，辨证是

根据《城市房屋拆迁估价指导意见》的规定，承担城市房屋拆迁估价业务的房地产估价机构须由拆迁主管部门指定。()

清皇陵分别建于河北省和辽宁省。()

共同犯罪中的主犯包括()。

关于计算机病毒的传播途径，不正确的说法是

在有随机热噪声的信道上计算数据传输率时使用______。