首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
编写如下程序: Option Base 1 Private Sub Command1_Click() Dim a a=Array(1, 2, 3, 4) s=0: j=1 For i=4 To 1 Step-1 s=s+a(i)*
编写如下程序: Option Base 1 Private Sub Command1_Click() Dim a a=Array(1, 2, 3, 4) s=0: j=1 For i=4 To 1 Step-1 s=s+a(i)*
admin
2020-07-22
20
问题
编写如下程序:
Option Base 1
Private Sub Command1_Click()
Dim a
a=Array(1, 2, 3, 4)
s=0: j=1
For i=4 To 1 Step-1
s=s+a(i)* j
j=j * 10
Next i
Print s
End Sub
程序运行后,单击命令按钮Command1,输出结果为( )。
选项
A、110
B、123
C、1234
D、4321
答案
C
解析
变量a初始化为含4个元素的数组,由于有Option Base 1语句,因此数组下标下界为1,元素值a(1)~a(4)依次为1、2、3、4。For循环中从第4个元素开始对4个元素值运算后累加,运算方法是第1个元素值乘10的0次方,第2个元素值乘10的1次方,第3个元素值乘10的2次方,第4个元素值乘10的3次方。即4+30+200+1000=1234。
转载请注明原文地址:https://kaotiyun.com/show/1xHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
某系统结构图如下图所示该系统结构图的深度是
设有以下程序:PrivateSubFormClick()x=50Fori=1To4Y=InputBox(”请输入一个整数”)Y=Val(y)IfvMod5=0Then
标准模块中有如下程序代码:PublicxAsInteger,yAsIntegerSubvar_pub()x=10:y=20EndSub在窗体上有1个命令按钮,并有如下事件过程:PrivateSubCommand1_
下面可以产生20~30(含20和30)的随机整数的表达式是
输入VisualBasic源程序时,若一个命令行中包含两个语句,则两个语句之间的分隔符应使用()。
设窗体文件中有下面的事件过程:PrivateSubCommand1_Click()Dimsa%=100PrintaEndSub其中变量a和s的数据类型分别是
下列叙述中正确的是
为了用键盘打开菜单和执行菜单命令,第一步应按的键是
设a=2,b=3,c=4,d=5,下列表达式的值是()。3>2*bOra=cAndb<>cOrb<>a+c
随机试题
不当得利之债的债权人得请求债务人返还的利益为【】
货币的派生职能包括()。
经商业银行认可的具有较强代为清偿能力的、无重大债权债务纠纷的单位和个人可以接受为保证人,但不包括()。
甲股份有限公司为上市公司(以下简称甲公司),有关购入、持有和出售乙公司发行的不可赎回债券的资料如下:(1)2007年1月1日,甲公司支付价款1100万元(含交易费用),从活跃市场购入乙公司当日发行的面值为1000万元、5年期的不可赎回债券。该债券票面
2013年3月18日,甲机械公司与乙融资租赁公司接洽融资租赁某型号数控机床事宜,同年4月1日,乙按照甲的要求与丙精密设备公司签订了购买1台某型号数控机床的买卖合同。丁以乙的保证人身份在该买卖合同上签字,但合同中并没有保证条款,丙和丁亦未另行签订保证合同。乙
在美术鉴赏课上,老师将影印版的《清明上河图》分给每个学习小组,要求大家在认真观察和分析画面细节的基础上,提出问题,集体讨论并尝试回答。这一学习方式属于()
Evidenceofthebenefitsthatvolunteeringcanbringolderpeoplecontinuestorollin."Volunteershaveimprovedphysicalands
RisingTuitionintheUSEveryspring,USuniversityadministratorsgathertodiscussthenextacademicyear’sbudget.Th
TheWorldTradeCenter,thetop______was410metershigh,wasthetallestbuildingintheworld.
AmassivedinosaurhatcherycontainingthousandsoffossilizedeggsanddozensofembryoshasbeendiscoveredinthePatagoniar
最新回复
(
0
)