首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(32)在窗体上画一个名为Commandl的命令按钮,然后编写如下代码: Option Base 1 Private Sub Commandl_Click() Dim a a=Array(1,2,
(32)在窗体上画一个名为Commandl的命令按钮,然后编写如下代码: Option Base 1 Private Sub Commandl_Click() Dim a a=Array(1,2,
admin
2020-02-27
37
问题
(32)在窗体上画一个名为Commandl的命令按钮,然后编写如下代码:
Option Base 1
Private Sub Commandl_Click()
Dim a
a=Array(1,2,3,4)
j=1
For i=4 To 1 Step-l
S=s+a(i)*j
j=j*10
Next I
Print S
End Sub
运行上面的程序,其输出结果是( )。
选项
A、1234
B、12
C、34
D、4321
答案
A
解析
Array函数用来为数组元素赋值,即把一个数据集读入某个数组。其格式为:数组变量名=Array(数组元素值)。Dim a语句没有变量类型名,则a默认为Variant类型,这里它作为数组变量使用。现在已知数组a 中元素的值依次为1、2、3、4,则For循环中各变量值变化如下:
i=4时,s=s+a(4)*j=O+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://www.kaotiyun.com/show/4PTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
有如下过程代码:Subvar_dim() StaticnumaAsInteger DimnumbAsInteger numa=numa+2 numb=numb+1 printnuma;numbEndSub连续3次
在窗体上画一个命令按钮和一个文本框,其名称分别为Command1和Text1,然后编写如下程序:FunctionFun(xAsInteger,yAsInteger)AsIntegerFun=IIf(x
在考生文件夹下有一个工程文件sjt5.vbp,窗体上有两个图片框,名称为P1、P2,分别用来表示信号灯和汽车,其中在P1中轮流装入“黄灯.ico”、“红灯.ico”、“绿灯.ico”文件来实现信号灯的切换;还有两个计时器Timer1和Timer2,Time
软件测试的过程是()。a.验收测试b.集成测试c.单元测试d.系统测试
设窗体上有1个名称为Command1的命令按钮,并编写了下面的事件过程:PrivateSubCommand1_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSing
某系统结构图如下图所示该系统结构图的宽度是()。
对长度为n的线性表排序,在最坏情况下,比较次数不是n(n-1)/2的排序方法是()。
某完全二叉树共有256个结点,则该完全二叉树的深度为()。
为了在运行时能显示窗体左上角的控制框(即系统菜单),应执行的操作是()。
要求在程序运行时,如果按住鼠标左键不放而移动鼠标,鼠标的位置坐标同步显示在窗体右上角的标签(名称为Label1)中,如下图所示,放开鼠标左键后,停止同步显示。下面可以实现此功能的程序是()。
随机试题
设X为随机变量,且E(X)存在,则E(X)是()
真核生物DNA复制的主要酶是
营养不良常见于
根据国有资产法律制度的规定,下列属于国有金融企业转让方直接协议转让上市公司股份的信息的内容有()。
强调物业管理服务应当价质相符,是针对()提出的。
()对于网络相当于运输对于()。
MicrosoftSQLServer2000和CommerceServer2000集成使用,可以创建B2B和B2C网站,并支持【】数据分析。
在Word文档中包含了文档目录,将文档目录转变为纯文本格式的最优操作方法是()
______thepunishmentwasunjust,Henryaccepteditwithoutcomplaint.
A、Standingonthestage.B、Teachingothermembers.C、Keepingfromthegame.D、Watchingoverthetime.C
最新回复
(
0
)