首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画—个命令按钮,其名称为Command1,然后编写如下代码:Option Base 1Private Sub Command1_ Click() Dim a a=Array(1,2,3,4) j=1 For i=,4 To
在窗体上画—个命令按钮,其名称为Command1,然后编写如下代码:Option Base 1Private Sub Command1_ Click() Dim a a=Array(1,2,3,4) j=1 For i=,4 To
admin
2009-09-28
41
问题
在窗体上画—个命令按钮,其名称为Command1,然后编写如下代码:Option Base 1Private Sub Command1_ Click() Dim a a=Array(1,2,3,4) j=1 For i=,4 To 1 Step-1 s=s+ a(i)*j j=j*10 Next i Print sEnd Sub程序运行后,单击命令按钮,其输出结果是______。
选项
A、4321
B、1234
C、34
D、12
答案
B
解析
利用Array函数可以把一个数据集赋值给一个Variant变量,再将该Variant变量创建成一个一维数组。Array函数的一般使用形式为:<变体变量名>=Array([数据列表])。注意:Array函数只能给Variant类型的变量赋值<数据列表>是用逗号分割的赋给数组各元素的值。
本题中运行程序,执行语句“a=Array(1,2,3,4)”,Array函数就创建了一维数组a,数组元素类型为Integer。该数组的下标从1开始,共有a(1)、a(2)、a(3)、a(4)等4个元素,值分别为1,2,3,4。然后执行For循环语句,程序的运行过程为:
i=4时,s-0+a(4)*1=4,j=10;
i=3时,s=4+a(3)*10=34,j=100;
i=2时,s=34+a(2)*100=234,j=1000;
i=1时,s=234+a(1)*1000=1234,j=10000,此时循环结束。
最终s的值为:1234。
转载请注明原文地址:https://kaotiyun.com/show/mS1p777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列数中为八进制的是()。
下列说法中,正确的是()。
下面内容不属于使用软件开发工具好处的是()。
编写时具有Applet与Application特征的程序。具体方法是:作为Application要定义main()方法,并且把main()方法所在的类定义为一个public类。为使该程序成为一个Applet,main()方法所在的这个类必须继承Apple
下述关于数据库系统的叙述中正确的是()。
有如下数组声明"intvalue[30];",下标值引用错误的是()。
下列关于Applet的安全限制的叙述中,错误的是()。
一个javaapplication源程序文件名为myjavaapplication.java,如果使用SUH公司的java开发工具jdk编译该源程序文件并使用其虚拟机运算这个程序的字节码文件,则应该首先执行的命令是:【】。
对关键码集合K={53,30,37,12,45,24,96},从空二叉树开始逐个插入每个关键码,建立与集合K相对应的二叉排序树(又称二叉查找树)BST,若希望得到的BST高度最小,应选择的输入序列是()。
一棵二叉树第八层(根结点为第一层)的结点数最多为【】个。
随机试题
规律具有的特点是()。
男性,40岁。头晕、乏力1年。化验:RBC2.0×1012/L,Hb81g/LMCV120f1(120μm3),MCH40pg,诊断为巨幼细胞性贫血,行骨髓检查,下列哪项不符合该例的骨髓象改变
下列含有乌头类药物的中成药有
大体积混凝土最好在气温较高的季节或结构受荷状态下进行裂缝检测。()
A石化企业为增值税一般纳税人,2019年3月发生以下业务:(1)从国外某石油公司进口原油50000吨,支付不含税价款折合人民币9000万元,其中包含包装费及保险费折合人民币10万元。(2)开采原油10000吨,并将开采的原油对外销售6000吨,取得含税
采用等额累进还款法时,收入水平下降的客户,可采用()等办法使借款人分期还款额减少,以减轻借款人的还款压力。
动作经济原理是指实现动作经济原则,用以改善工作方法,可分为()方面。
下列运算符中,优先级别最低的是
Sportingactivitiesareessentiallymodifiedformsofhuntingbehavior.Viewedbiologically,themodernfootballerisrevealeda
Howlongdidthechildrenplay?
最新回复
(
0
)