首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个命令按钮,其名称为Command1,然后编写如下代码: Option Base 1 Private Sub Commandl_Click() Dim a a=Array(1,2,3,4) j=1
在窗体上画一个命令按钮,其名称为Command1,然后编写如下代码: Option Base 1 Private Sub Commandl_Click() Dim a a=Array(1,2,3,4) j=1
admin
2018-07-11
37
问题
在窗体上画一个命令按钮,其名称为Command1,然后编写如下代码:
Option Base 1
Private Sub Commandl_Click()
Dim a
a=Array(1,2,3,4)
j=1
For i=4 To 1 Step一1
8=8+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*100=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/csFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列操作说明中,错误的是
在编辑VB应用程序时,如果不小心关闭了属性窗口,则可以单击主窗口标准工具栏上的一个按钮直接打开属性窗口,这个按钮的图标是
设在窗体上有一个名称为Checkl的复选框数组,并有以下事件过程:PrivateSubCheckl_Click(IndexAsInteger)EndSub则下面叙述中错误的是
窗体上有名称为Command1的命令按钮和名称为Text1的文本框PrivateSubCommand1_Click()PrivateSubText1_GotFocus()Text1.Text="程序设计"
窗体上有一个名称为Command1的命令按钮,一个名称为Text1的文本框。编写如下程序:PrivateSubCommand1_Click()DimxAsIntegerX=Val(InputBox("输入数据")):Text1=Str(
设x=4,y=8,z=7,则以下表达式的运算结果是()。 xz)Orz
在关系代数运算中,有5种基本运算,它们是()。
为了用键盘打开菜单和执行菜单命令,第一步应按的键是( )。
若实体A和B是一对多的联系,实体B和C是一对一的联系,则实体A和C的联系是
在下列模式中,能够给出数据库物理存储结构与物理存取方法的是( )。
随机试题
某建设项目的特点是:场地狭窄,工作面多,高空地下立体交叉作业,作业场地上空有区域高压电网、电线和厂区高压线通过,拟建项目中的高耸建筑物与高压线的直线距离十分接近,在整个施工过程中将会有诸多不安全因素存在,安全管理工作尤显复杂和重要。问题:①应如何建立安
关于国际分工对国际贸易发展的作用的说法正确的是()。
某企业购买面值为300万元的分期付息公司债券作为长期投资,共支付价款375万元,其中已到付息期但尚未领取的债券利息为20万元。则该项债务投资应计入“长期债券投资”科目的金额是()。
债权人转让权利的,无须通知债务人。()
Fromchildhoodtooldage,wealluselanguageasameansofbroadeningourknowledgeofourselvesandtheworldaboutus.When
我们之所以要坚持“以团结互助为荣,以损人利己为耻”,是因为()。
把下面的六个图形分为两类,使每一类图形都有各自的共同特征或规律,分类正确的一项是()。
已知a为正整数,且关于x的方程 lg(4—2x2)=lg(a—x)+1有实数根,则a等于[].
万维网(WWW)信息服务是Internet上的—种最主要的服务形式,它进行工作的方式是基于______。
Ostrichchicksrearedonfarms
最新回复
(
0
)