首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个名为Commandl的命令按钮,然后编写如下代码: Option Base 1 Private Sub Commandl_Click() Dim a a=Array(1,2,3,4) j=1 F
在窗体上画一个名为Commandl的命令按钮,然后编写如下代码: Option Base 1 Private Sub Commandl_Click() Dim a a=Array(1,2,3,4) j=1 F
admin
2015-10-23
32
问题
在窗体上画一个名为Commandl的命令按钮,然后编写如下代码:
Option Base 1
Private Sub Commandl_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 s
End Sub
运行上面的程序,其输出结果是( )。
选项
A、1234
B、12
C、34
D、4321
答案
A
解析
Atray函数用来为数组元素赋值,即把一个数据集读入某个数组。其格式为:数组变量名=Array(数组元素值)。Dim a语句没有变量类型名,则a默认为Variant类型,这里它作为数组变量使用。现在已知数组a中元素的值依次为1、2、3、4,则For循环中各变量值变化如下:
i=4时,s=s+a(4)*j=0+4*1=4,j=1*10=10
i=3时,s=s+a(3)*j=4+3*10=4+30=34,j=10*10=100
i=2时,s=s+a(2)*j=34+2*100=34+200=234,j=100*10=1000
i=1时,s=s+a(1)*j=234+1*1000=234+1000=1234。循环结束。s的值为1234。
转载请注明原文地址:https://kaotiyun.com/show/oPLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体(名称为Forml)上绘制一个名称为Text1的文本框和一个名称为Commandl的命令按钮,然后编写一个事件过程。程序运行后,如果在文本框中输入一个字符,则把命令按钮的标题设置为“计算机等级考试”。以下能实现上述操作的事件过程是()。
在窗体上添加一个按钮,名为Command1,然后编写如下的事件过程,输出结果为PrinvateSubComand1_Click()Fori=1To4x=4Forj=1To3x=3Fork=1To2x=x+5
某二叉树中有n个度为2的结点,则该二叉树中的叶子结点数为
下列事件过程的功能是:建立一个名为Datal的随机文件,存放角度值及这些角度的正弦函数值和余弦函数值,角度为1,2,3,…,90。请在空白处填入适当的内容,将程序补充完整。PrivateTypeAngKAsIntegerSi
窗体上有一个命令按钮,命令按钮的单击事件过程如下。运行程序后,单击命令按钮,输出结果是PrivateSubCommand1_Click()Dimaa=Array(1,2,3,4,5)Fork=1To4s=s+a(k)
软件工程的出现是由于
以下定义数组或给数组元素赋值的语句中,正确的是()。
阅读下面的程序段:Fora=1To2Forb=1ToaForc=bTo2i=i+1NextNextNextPrinti执行上面的3重循环后,i的值为
软件是指
设有数组定义语句:Dima(5)AsInteger,Listl为列表框控件。下列给数组元素赋值的语句错误的是()。
随机试题
Listeningisanextremelycomplexcommunicativeactivity.Inordertohaveabetterunderstanding,toanticipatewhatiscoming
甲属于先富起来的人,热心组织他人探险旅游,但从不收取组织费用,伙伴费用实行AA制。在一次探险过程中,其伙伴乙遇害身亡,对此乙的家属要求甲承担相应的赔偿责任。下列表述正确的是:()
下列关于建筑与等高线之间的关系表述错误的是()。
面对个别游客恶意攻击和诬蔑我国的言论,导游应该()。
关于职业化管理,正确的说法是()。
为了保证考评的公正和公平性,人力资源部门应当建立()保障系统。
学习困难综合征的表现不包括()。
当地公安机关对异地公安机关提出协助调查、执行强制措施等协作请求,只要法律手续完备,协作地公安机关就应当及时无条件予以配合。()
办公室工作的性质决定了办公室工作具有()。
A:Goodmorning.MissGreen.【5】B:Yes.itis.A:Well.【6】B:Haveyougotanybrownsugar(红塘)?A:【7】I’veonly
最新回复
(
0
)