首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
有如下程序: Option Base 1 Private SUb Form_Click() Dim arr,sum Sum=0 arr=Array(1,3,5,7,9,11,
有如下程序: Option Base 1 Private SUb Form_Click() Dim arr,sum Sum=0 arr=Array(1,3,5,7,9,11,
admin
2012-09-03
78
问题
有如下程序:
Option Base 1
Private SUb Form_Click()
Dim arr,sum
Sum=0
arr=Array(1,3,5,7,9,11,13,15,17,19)
For i=1l To 10
If arr(i)/3=arr(i)\3 Then
Sum=Sum+arr(i)
End If
Next i
MsgBox Sum
End Sub
程序运行后,单击窗体,消息框的输出结果为___________。
选项
答案
27
解析
本题考查vBA程序分析的知识。本题的关键在于在循环中哪些数组元素被加到了累加和中去。根据If语句的条件可以看出,凡是能被3整除的数组元素被累加,所以最后输出的值为3+9+15=27。
转载请注明原文地址:https://kaotiyun.com/show/lJup777K
本试题收录于:
二级Access题库NCRE全国计算机二级分类
0
二级Access
NCRE全国计算机二级
相关试题推荐
有如下程序:#includeusingnamespacestd;classAA{intk;protected:intn;voidsetK(intk){this->k=k;}public:voidsetN(intn
有如下两个类定义:classAA{};classBB{AAv1,*v2;BBv3,*v4;};其中定义错误的成员变量是
有如下类定义:classAA{inta:public:AA(intn=0):a(n){}};classBB:publicAA{public:BB(intn)
有如下程序:#includeusingnamespacestd;intmain(){cout.fill(’*’);cout.width(6);cout.fill(’#’);
下列有关模板的叙述中,正确的是()。
使用VC6打开考生文件夹下的源程序文件modi2.cpp。阅读下列函数说明和代码,完成空出部分程序。函数convert(char*stroct)的功能是将八进制转换为十进制。提示:要每一位转换,然后把转换后得到的数累加起来即可。注意:不
在C++中,编泽系统自动为一个类生成默认构造函数的条件是()。
程序流程图中带有箭头的线段表示的是()。
运算符重载时不需要保持的性质是()。
树是结点的集合,它的根结点数目是______。
随机试题
十进制数(165)10转换成8421BCD码是_________。
慢性二尖瓣关闭不全首先临床表现是
患者,女性,30岁,急性肾盂肾炎。服用氟哌酸3天,症状消失。若停止用药,应在尿液检查阴性后
(2009)为了强化水蒸气在竖直壁面上的凝结传热,应采用以下哪个措施?()
不属于土建方案的是()。
建立账套。账套号:005账套启用日期:2009年1月单位名称:(简称)河北电机厂企业类型:工业行业性质:小企业会计制度账套主管:demo
根据《代理记账管理暂行办法》的规定,下列各项中,不属于记账机构可以接受委托代表委托人办理的业务有()。
甲卷烟厂和其客户乙卷烟批发公司均为增值税一般纳税人。甲卷烟厂主要生产A牌卷烟和雪茄烟,其中A牌卷烟不含税调拨价为120元/标准条。2014年10月,甲卷烟厂和乙卷烟批发公司有关生产经营情况如下:甲卷烟厂:(1)从农业生产者收购烟叶,开具的收购发
【2017下】材料:开学不久,小班王老师发现,李虎小朋友经常说脏话。虽然老师多次批评,但他还是经常说,甚至影响到其他幼儿也说脏话。问题:王老师可以采取哪些有效的干预措施?
言语听觉区的发现者是()
最新回复
(
0
)