首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个命令按钮,其名称为Command1,然后编写如下代码: Option Base 1 Private Sub Command1_Click() Dim a a=Array(1, 2, 3, 4) j=1 For i=4 To 1
在窗体上画一个命令按钮,其名称为Command1,然后编写如下代码: Option Base 1 Private Sub Command1_Click() Dim a a=Array(1, 2, 3, 4) j=1 For i=4 To 1
admin
2019-06-20
21
问题
在窗体上画一个命令按钮,其名称为Command1,然后编写如下代码:
Option Base 1
Private 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 s
End Sub
程序运行后,单击命令按钮,其输出结果是( )。
选项
A、4321
B、1234
C、34
D、12
答案
B
解析
Array函数用来为数组元素赋值,即把一个数据集读入某个数组。其格式为:数组变量名=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*10=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/bfUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
要将单选按钮Opt1设为被选中,应设置的属性是
有如下语句序列:Dima,bAsIntegerPrintaPrintb执行以上语句序列,下列叙述中错误的是
下列选项中不属于软件生命周期开发阶段任务的是
以下()操作不能触发滚动条Change事件。
()控件可以使图形根据控件大小而改变大小。
在窗体上有一个名为Command1的命令按钮,并有如下事件过程:PrivateSubCommand1_Click()aS="SwallowsModGenulled"b$=Right(aS,8):c$=Mid(aS,1.
假定已在窗体上画了多个控件,其中有一个被选中,为了在属性窗口中设置窗体的属性,预先应执行的操作是
设Label1、Command1、Text1、Check1分别为标签、命令按钮、文本框、复选框的名称,则以下属性设置语句中,运行时不会出错的是
在窗体上有1个名为Cd1的通用对话框,为了在运行程序是时打开保存文件对话框,险则在程序中应使用的语句是
算法的空间复杂度是指()。
随机试题
A.与相应的椎骨平面相差2节B.与相应的椎骨平面相差1节C.与相应的椎骨平面相差3节D.胸椎10~12之间E.胸椎12到腰1之间颈髓位于
甲氨蝶呤的作用机制是
在下列间隙感染中,哪一个最常引起颌骨边缘性骨髓炎
A.黄柏B.牡丹皮C.厚朴D.肉桂E.杜仲切面不平坦,气香浓烈,味甜、辣的中药材是()。
以营利为目的,有()情形的,侵犯著作权,违法所得数额较大或者有其他严重情节的,构成侵犯著作权罪
背景材料:公路工程设计变更,指工程初步设计批准之日起至竣工验收正式交付使用之日止,对已批准的初步设计文件、技术设计文件或施工图设计文件所进行的修改、完善等活动。为加强公路工程建设管理,规范公路工程设计变更行为,保证公路工程质量,保护人民
根据下表回答以下问题,字符区间核对。SGPO
外文出版社专事外文图书的编辑出版,几十年来用英文翻译出版了大量的中国文学作品和文化典籍,上自先秦,下到现当代,力求全面而准确地反映中国文学及中国文化的基本面貌和灿烂成就。这些英译图书均取自相关领域著名的、权威的作品,英译则出自国内外翻译名家。每本图书的编选
A、TheFederalgovernment.B、Individualschools.C、Respectivestates.D、Localcommunities.C根据原文andeachstateisresponsiblefor
A、Listentosomerockmusic.B、Getoutofbedtillbeingsleepyagain.C、Keepthelightsonallnight.D、Readsomeinterestinga
最新回复
(
0
)