首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
有下面程序代码: Private Sub Command1_Click() Dim a, s As Integer a = Array(1, 2, 3, 4, 5, 6, 7, 8, 9) k = 1 s = 0 D
有下面程序代码: Private Sub Command1_Click() Dim a, s As Integer a = Array(1, 2, 3, 4, 5, 6, 7, 8, 9) k = 1 s = 0 D
admin
2020-01-02
45
问题
有下面程序代码:
Private Sub Command1_Click()
Dim a, s As Integer
a = Array(1, 2, 3, 4, 5, 6, 7, 8, 9)
k = 1
s = 0
Do
s = s + a(k)
k = k + 2
Loop Until k > UBound(A)
Print s
End Sub
程序运行产生的输出是
选项
A、45
B、20
C、16
D、25
答案
B
解析
Array函数为数组a的元素赋值,使得a(0)~ a(8)的值被分别赋值为1~ 9;UBound(a)函数返回数组 <
http://baike.baidu.com/view/209670.htm
>可用的最大下标8,Do…Loop Until循环先执行循环体,后判断终止条件k >8是否成立,条件成立时,Do循环共执行4次,因此s=a(1)+a(3)+a(5)+a(7)=2+4+6+8=20。故正确答案为选项B。
转载请注明原文地址:https://kaotiyun.com/show/xQTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
为了验证一个正整数n(n>3)是否为素数,最直观的方法是,看在2~n/2范围内能否找到一个整数m将n整除,若m存在,则n不是素数;若找不到m,则n为素数。在考生文件夹下有一个工程文件sjt5.vbp,其窗体上有1个名称为Text1的文本框。请根据上面的算法
已知数组Dima(1To10)AsInteger,则下面正确调用GetValue函数的是()。PrivateFunctionGetValue(a()AsInteger)AsIntegerFori=1
以下()操作不能触发滚动条Change事件。
考生文件夹下的工程文件sjt5.vbp中有1个初始内容为空的文本框Text1,2个标题分别是“读数据”和“计算”的命令按钮。请画1个名称为Labe12、标题为“各行平均值的最小值为”的标签,再画1个名称为Text2、初始内容为空的文本框。效果如图3—18所
关于菜单设计,下列叙述中错误的是()。
定义部门关系模式如下:部门(部门号,部门名,部门成员,部门总经理),使它不满足第一范式的属性是()。
对于某些控件,只要将其Style属性设置为1,则可以在该控件上使用Picture属性显示图片。以下不具备这一使用规则的控件是()。
下面对软件测试描述错误的是()。
算法的时间复杂度是指()。
随机试题
Afteramedicalexamination,thedoctorgavemea______(favor)reportonmyhealth.
海洋运输货物保险的基本险别分为平安险、水渍险和一切险三种。下列不属于平安险责任范围的是:()。
安全生产费用按照“()”的原则进行管理。
根据下列资料完成以下各题:XYZ公司2010年3月末有关明细账户余额如下:(1)应收账款——H公司30331元(借方)(2)应付账款——G公司36603元(贷方)(3)预收账款——M公司40905元(借方)——N公司40076元(贷方)(4)预付账款——E
光华公司2009年甲产品销售收入为5000万元,总成本为3500万元,其中固定成本为600万元。2010年该企业有两种信用政策可供选用:(1)A方案:给予客户60天信用期限(n/60),预计销售收入为6000万元,货款将于第60天收到,其信用成本为
“让学校的每一面墙壁都开口说话”,这是充分运用了下列哪一种德育方法?()
苏联的斯托列托夫曾经指出:“铁匠的儿子法拉第,在青年时代的早期,做过装订工人的学徒,临死时是所有科学学会的会员,是那时物理学家公认的领袖。”这是对法拉第的高度评价。法拉第卓越非凡的贡献是()。
板块构造学说认为,大西洋的形成是由于()。
关系数据库管理系统能实现的专门关系运算包括()。
Shynessisthecauseofmuchunhappinessforagreatmanypeople.Shypeopleareanxiousand【B1】______;thatis,theyareexces
最新回复
(
0
)