首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
编写如下程序: Option Base 1 Private Sub Command l_Click() Dim a a=Array(1,2,3,4):s=0:g=1 For i=4 To
编写如下程序: Option Base 1 Private Sub Command l_Click() Dim a a=Array(1,2,3,4):s=0:g=1 For i=4 To
admin
2013-10-16
42
问题
编写如下程序:
Option Base 1
Private Sub Command l_Click()
Dim a
a=Array(1,2,3,4):s=0:g=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/8LQp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在数据库设计中,“设计E-R图”是【】阶段的任务。
数据库管理系统(DBMS)提供数据操纵语言(DML)及它的翻译程序,实现对数据库数据的操作,包括数据插入、删除、更新和【】。
在面向对象方法中,类之间共享属性和操作的机制称为______。
下列关于数据库运行和维护的叙述中,正确的是______。
下列程序是将数组a的元素倒序交换,即第一个变为最后一个,第二个变为倒数第二个,依此类推。设数组中有8个元素。完成下列程序。PrivateSubOrderChange(a())DimiAsInteger,TempAsIntegerFor
如果要在菜单中添加一个分隔线,则应将其Caption属性设置为______。
在窗体上绘制一个文本框,名为Text1,高度为500,宽度为1500,字体为“宋体”,并设置其他相关属性,使得在程序运行时,文本框中输入的字符都显示为“%”,如下图所示。注意:文件必须存放在考生文件夹中,工程文件名为execise15.v
在名为Form1的窗体上绘制一个名为Pic1的图片框,然后建立一个主菜单,标题为“操作”,名为vbOp,该菜单有两个菜单项,其标题分别为“显示”和“清除”,名称分别为vbDis和vbClear。编写适当的事件过程,使程序运行后,若单击“操作”菜单中的“显
在考生文件夹中有工程文件execise110.vbp及窗体文件execise110.frm。如下图所示,在名为Form1的窗体上有一个Labe1控件,4个Text控件及7个命令按钮,其功能如下,(1)开始启动工程时,界面上除Input及Quit按钮
以下关于焦点的叙述中,错误的是______。
随机试题
不正当竞争行为导致的行政责任的类型包括()。
善意取得是指无权处分他人财物的占有人,将财物转让给第三人以后,如果受让人在取得该动产时出于善意(非基于故意和重大过失,而对转让人无处分权的情形不知情),就可以依法取得对该动产的所有权,受让人在取得动产的所有权以后,原所有人不得要求受让人返还财产,而只能请求
1Crl8Ni9Ti与Q235钢焊接时,为什么要选用A307焊条。而不选用A102焊条和A407焊条?
下列有关公司法人的表述中,正确的有()。
甲公司为上市公司,适用企业所得税税率为25%,甲公司2×20年度实现利润总额5330万元,在申报2×20年度企业所得税时涉及以下事项: (1)甲公司与乙企业签订了一项租赁协议,将其原先自用的一栋写字楼出租给乙企业使用,租赁期开始日为2×20年3月31日。
教育机智不同于教育的机巧,它是教师灵感的突现。
甲、乙、丙三个班向希望工程捐赠图书,已知甲班有1人捐6册,有2人各捐7册,其余各捐¨册;乙班有1人捐6册,有3人各捐8册,其余各捐10册,丙班有2人捐4册,6人各捐7册,其余人各捐9册。已知甲班捐书总数比乙班多28册,乙班比丙班多101册,各班捐书总数在4
2011—2014年,货物进出口差额最大的年份是:
RogerRosenblatt’sbookBlackFiction,inattemptingtoapplyliteraryratherthansociopoliticalcriteriatoitssubject,succ
A、Strictersecurityrestrictionswereimposedonluggage.B、Luggagedeliveryservicesoffertravelersconvenience.C、Newservice
最新回复
(
0
)