首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
编写如下程序: 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 P
编写如下程序: 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 P
admin
2015-11-24
115
问题
编写如下程序:
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
程序运行后,单击命令按钮Commandl,输出结果为
选项
A、110
B、123
C、1234
D、4321
答案
C
解析
本题的循环首先取出数组的最后一位累加,然后取出倒数第二位乘以10以后累加;然后取出倒数第三位乘以100后累加……以此类推,最终结果为1234。
转载请注明原文地址:https://kaotiyun.com/show/oRLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
鼠标移动经过控件时,将触发控件的______事件。
在窗体上放置一个命令按钮Command1,并编写下列单击事件的程序:OptionBase1PdvateSubCommand1_Click()DimcAsInteger,dAsIntegerd=0c=6X=Array(2,4,6
下列程序的输出图形是()。Fork=0To360cr=Int(160*RnD)ang=-3.1415926/180*kCircle(2000,2000),500,cr,0,angNext
程序的3种基本控制结构是______。
下列程序中,a,b,c代表一个三角形的三条边,程序的作用是判断一个三角形是否成立,请填写空白处。Ifa+b<c______b+c<a______a+c<bThenMsgBox("这三条边不能构成一个三角形")EndIf
下列程序功能是,产生10个0~100的随机数,输出其中的最大值。请将程序补充完整。PrivateSubForm_Click()Diman(10)AsIntegerDimmaxAsIntegerRandomizeFori%=1T
滚动条的最小值属性是______,最大值属性是Max。
在E盘当前目录文件夹下建立一个名为“Student.txt”,的随机文件,要求用InputBox函数输入5个学生的姓名(StuName)、年级(StuGrade)和年龄(StuAge)。在程序中有下列记录类型和窗体的事件过程,请选择正确的语句完成程序(
随机试题
休克失代偿期的主要微循环变化是()
A.促进胃排空,增强胃窦和十二指肠运动B.减少胃酸和胃蛋白酶分泌C.促进胃黏膜血流,刺激胃黏液分泌D.防止氢离子反渗,促进胃黏液分泌E.减少胃酸分泌,延缓胃排空吗丁啉能
初产妇自觉胎动,多数开始于
本案一审法院决定适用简易程序是否正确?原因是什么?如果再审法院发现原审遗漏了必须参加诉讼的当事人汇远公司,则法院应当如何处理?
下列关于鉴定人与证人的说法错误的是:()
依据设计合同的规定,对于因设计错误而造成的工程重大质量事故、损失严重的,设计人应承担的违约责任为()。
阅读下面材料,根据要求写作。成长是美丽的,它一路走着,一路抛洒着缤纷的花朵;成长是神奇的,它引领着我们,去创造一个又一个生命的奇迹;成长又是忧伤的,它意味着一次次告别的仪式,和亲人,和自己……以“成长”为话题,写一篇不少于800字的文章。
(2016·广东)学生中常见的焦虑反应是()
某件刺绣产品,需要效率相当的三名绣工8天才能完成;绣品完成50%时,一人有事提前离开,绣品由剩下的两人继续完成;绣品完成75%时,又有一人离开,绣品由最后剩下的那个人做完。那么,完成该件绣品一共用了()。
某燃气公司按以下规定收取燃气费:如果用气量不超过60立方米,按每立方米0.8元收费,如果用气量超过60立方米,则超过部分按每立方米1.2元收费。某用户8月份交的燃气费平均每立方米0.88元,则该用户8月份的燃气费是( )。
最新回复
(
0
)