首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个命令按钮,其名称为Command1,然后编写如下代码: Option Base 1 Private Sub Command1_Click() Dim a a=Array(1, 2, 3, 4) j=1 For i=4 To 1
在窗体上画一个命令按钮,其名称为Command1,然后编写如下代码: Option Base 1 Private Sub Command1_Click() Dim a a=Array(1, 2, 3, 4) j=1 For i=4 To 1
admin
2019-06-20
29
问题
在窗体上画一个命令按钮,其名称为Command1,然后编写如下代码:
Option Base 1
Private Sub Command1_Click()
Dim a
a=Array(1, 2, 3, 4)
j=1
For i=4 To 1 Step-1
s=s+a(i)* j
j=j * 10
Next i
Print s
End Sub
程序运行后,单击命令按钮,其输出结果是( )。
选项
A、4321
B、1234
C、34
D、12
答案
B
解析
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*10=34+200=234,j=100*10=1000
i=1时,s=s+a(1)*j=234+1*1000=234+1000=1234。循环结束。s的值为1234。
转载请注明原文地址:https://kaotiyun.com/show/bfUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
要计算x的平方根并放入变量y,正确的语句是
InputBox函数返回值的类型为()。
在窗体上有一个名称为Drivel的驱动器列表框,一个名称为Dirl的目录列表框,一个名称为Filel的文件列表框,两个名称分别为Label1、Label2的标签(标题分别为空白和“共有文件”)。要使得驱动器列表框与目录列表框、目录列表框与文件列表框同步变化
程序调试的任务是
设窗体上有一个Picture1图片框,要求在图片框中的指定位置(坐标为(500,300))输出“OK”,下面可以实现这一功能的事件过程是
设有如下通用过程:PublicFunctionFun(xStrAsString)AsStringDimtStrAsString,strLAsIntegertStr="":strL=Len(xStr)i=strL/2DoW
设Label1、Command1、Text1、Check1分别为标签、命令按钮、文本框、复选框的名称,则以下属性设置语句中,运行时不会出错的是
窗体上有一个名称为VScroll1的垂直滚动条,要求程序运行时,滚动块的初始位置在最下端,应该使VScroll1.Value的值等于
(1)在考生目录下有一个工程文件sjt3.vbp,窗体文件中已给出所有控件和部分程序,如图2-85所示。要求:①利用属性窗口设置适当的属性,使Text1、Text2中数据右对齐;②请编写适当的程序完成以下功能:在Text1中输入40(度
(1)在考生目录下有一个上程文件sit3.vbp,窗体上有一个网和一条直线(直线的名称为Line1)构成一个钟表的图案;有两个命令按钮,名称分别为Command1、Command2,标题分别为“开始”、“停止”;还有一个名为Timerl的讣时器。程序运行时
随机试题
制约国际关系发展变化的根本制约因素是()
A.相须B.相使C.相畏D.相杀生姜与半夏配伍属于
直肠肛门周围脓肿中最为常见的是直肠侧壁隆起,波动感(+),有压痛的是
患儿,女,3个月。形体瘦弱,两颧发红,口腔内有散在白屑,周围红晕不著,手足心热,舌红,苔少,指纹紫。治法应是
便血之肠道湿热证的治法为
休克的现代概念表达最恰当的是
均布荷载作用下的简支梁,()处弯矩最大。
公司债券的信用保障是发债公司的()。
甲、乙二人同时从A地出发,匀速步行,在AB两地之间做往返运动,已知甲的速度小于乙。出发后,两人第一次相遇和第二次相遇的地点相同。那么,从开始出发到第二次相遇时,甲、乙所行路程之比为()。
可以对数据直接进行加、减、乘、除运算的量表是()。
最新回复
(
0
)