首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个名为Command1的命令按钮,然后编写如下代码: Option Base l Private Sub Command1_Click() Dim a a=Array(1,2,3,4) j=1 F
在窗体上画一个名为Command1的命令按钮,然后编写如下代码: Option Base l Private Sub Command1_Click() Dim a a=Array(1,2,3,4) j=1 F
admin
2016-08-24
42
问题
在窗体上画一个名为Command1的命令按钮,然后编写如下代码:
Option Base l
Private Sub Command1_Click()
Dim a
a=Array(1,2,3,4)
j=1
For i=4 To I 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
解析
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*100=34+200=234,j=100*10=1000
i=1时,s=s+a(1)*j=234+1*1000=234+1000=1234。循环结束。s的值为1234。
转载请注明原文地址:https://www.kaotiyun.com/show/FYLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
将任意一个正的两位数N的个位数与十位数对换的表达式为()。
如果模块定义为:DefStrC-F则以下语句运行后输出结果是()。d$="321"f="654"printd+f$
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:PrivateSubCommand1_Crick()DimIAsInteger,nAsIntegerForj=0T
检查软件产品是否符合需求定义的过程称为
执行下列程序后,鼠标单击窗体,输出结果为PrivateSubForm_Click() Print"Click":EndSubPrivateSubForm_MouseDown(ButtonAsInteger,S
在窗体上画一个通用对话框,其名称为CommonDialog1,然后画一个命令按钮,并编写如下事件过程:PrivateSubCommand1_Click() CommonDialog1.Flags=vbOFNHideReadOnly
数据库管理系统常见的数据模型有层次模型、网状模型和______3种。
以下关于菜单的叙述中,错误的是()。
在窗体上绘制一个命令按钮和一个文本框,名称分别为Command1和Text1,然后编写如下程序:PrivateSubCommand1_Click()a=InputBox("请输入日期(1~31)")t="旅游景点:"_
______的任务是诊断和改正程序中的错误。
随机试题
液晶显示器的关键部件为
左旋多巴抗帕金森病的作用机制是
上消化道大出血时,粪便的特点是
就下列情形当事人对行政诉讼判决向法院申请再审,自知道或者应当知道之日起6个月内提出?()
进口食品标签中食品名称和净含量应排在同一视野内。( )
我国加入世界贸易组织后,()内,允许外资银行向中国企业办理人民币业务。
领导交给老张一项统计工作,老张说三天可以完成,但是他临时有出差任务,便将工作交接给了小李,结果小李用一天就完成了工作并向领导做了汇报,老张知道后非常生气。如果你是小李,你会怎么办?
老刘接手了一个信息系统集成项目,担任项目经理。在这个项目进展过程中出现了下述情况:一个系统的用户向他所认识的一个项目开发人员小李抱怨系统软件中的一项功能问题,并且表示希望能够进行修改。于是,小李直接对系统软件进行了修改,解决了该项功能问题。老刘并不知道小李
Alotofworkershavegot______inthestrike.
A、Piracyisaneasythingtocommit.B、Inventionusuallyneedsheavycost.C、Patentisusefulbutnotpractical.D、Inventionsar
最新回复
(
0
)