首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
编写如下程序: Option Base 1 Prirate Sub Commandl_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 Ne
编写如下程序: Option Base 1 Prirate Sub Commandl_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 Ne
admin
2017-06-21
54
问题
编写如下程序:
Option Base 1
Prirate Sub Commandl_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
程序运行后,单击命令按钮Commandl,输出结果为
选项
A、110
B、123
C、1234
D、4321
答案
C
解析
本题的循环首先取出数组的最后一位累加,然后取出倒数第二位乘以10以后累加;然后取出倒数第三位乘以100后累加……以此类推,最终结果为1234。
转载请注明原文地址:https://kaotiyun.com/show/3PGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
阅读程序:OptionBase1Dimarr()AsIntegerPrivateSubForm_Click()DimiAsInteger,jAsIntegerReDimarr(3,2)Fori=
在窗体上画一个名称为Text1的文本框,一个名称为Command1的命令按钮,然后编写如下事件过程和通用过程:PrivateSubCommand1_Click()n=Val(Text1.Text)
在窗体上画一个命令按钮,其名称为Command1。程序运行后,单击命令按钮,输出结果为()。PrivateSubp1(nAsInteger)Fori=nTo1Step-1x=String(i
在显示菜单时,菜单项的下列哪个属性为True时将用浅灰色显示该菜单项标题
在面向对象方法中,一个对象请求另一对象为其服务的方式是通过发送______。
设有如下程序,查找并输出该数组中的最小值,请在空白处填上合适的代码,将程序补充完整。OptionBase1PrivateSubCommand1_Click()Dimarr1DimMinAsInteger,i
在窗体上面画一个名称为TxtA的文本框,然后编写如下的事件过程:PrivateSubTxtA_KeyPress(Keyasciiasinteger)EndSub若焦点位于文本框中,则能够触发KeyPress事件的操作是__
在面向对象方法中,信息隐蔽是通过对象的【】性来实现的。
在窗体上画一个命令按钮,然后编写如下程序:(假定变量x是一个窗体级变量)DimxAsIntegerSubinc(aAsInteger)x=x+aEndSubPrivateSubComma
下列不属于软件工程3个要素的是()。
随机试题
真性肝肾综合征实质上是指肝性肾衰竭。
以下哪些是子宫肉瘤的组织学类型:
前置胎盘进行阴道检查时应具备的条件中,下列哪项不正确
关于统计表的列表原则,下列哪项叙述是错误的
刘某17岁时抢劫他人财物,2年后被公安机关立案侦查。同他一起被立案侦查的还有其朋友李某。公安机关经侦查查明李某并未参与抢劫行为,只是经常和刘某在一起厮混而已,因而撤销了关于李某的案件部分。刘某最终被起诉至人民法院。人民法院开庭审理了此案。对于此案,下列说法
根据《建筑工程施工许可管理办法》,在中华人民共和国境内从事各类房屋建筑及其附属设施的建造、装饰装修和与其配套的线路、管道、设备的安装,以及城镇市政基础设施工程的施工,建设单位在开工前应当依照本法的规定,向工程所在地的县级以上人民政府建设行政主管部门申请领取
2018年4月,位于A市的甲企业实行重组,改建为有限责任公司。相关业务如下:(1)2018年4月,有限责任公司将从甲企业承继的位于A市的价值1000万元、占地面积9000平方米的厂房抵偿乙企业债务。(2)2018年6月,有限责任公司在A市购买一个占
A、 B、 C、 D、 B本题考查的是形状关系,从题干可以看出每种元素至少有一个在前图中出现,这样只有B项符合答案。
这是24个节气的第六个节气,一般是每年的4月20日或者21日,是春季的最后一个节气,也是播种、移苗和点豆种瓜的最佳时节。这个节气是()。
设向量组α1,α2,…,αt是齐次线性方程组Ax=0的一个基础解系,向量β不是方程组Ax=0的解,即AB≠0.试证明:向量组β,β+α1,β+α2,…,β+αt线性无关.
最新回复
(
0
)