首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个命令按钮,其名称为Command1,然后编写如下代码: Option Base 1 Private Sub Command1_Click() Dim a a=Array(1,2,3,4) j=1 For
在窗体上画一个命令按钮,其名称为Command1,然后编写如下代码: Option Base 1 Private Sub Command1_Click() Dim a a=Array(1,2,3,4) j=1 For
admin
2016-08-24
48
问题
在窗体上画一个命令按钮,其名称为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=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/2iLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
有一个事件过程,其功能是:从已存在于磁盘上的顺序文件NM1.txt中读取数据,计算读出数据的平方值,将该数据及其平方值存入新的顺序文件NM2.txt中。请填空。PrivateSubForm_Click()DimxAsSingle,
通用对话框中能打开“颜色对话框”的方法是()。
设有如下程序:PrivateSubCommand1_Click() DimcAsInteger,dAsInteger c=4 d=InputBox("请输入一个整数") DoWhiled>0
单击命令按钮时,下列程序段的执行结果为()。PrivateSubCommand1_Click()DimFirstStrAsStringFirstStr="abcdef"PrintPickMid(First
以下能正确定义数据类型TelBook的代码是()。
有时候需要暂时关闭计时器,这可以通过______属性来实现。
用LineInput语句从顺序文件读出数据时,每次读出一行数据。一行是指遇到______分隔符,即认为一行的结束。
下面关于对象概念的描述中错误的是
定时器的Interval属性以()为单位指定Timer事件之间的时间间隔。
表达式Int(8*Sqr(36)*10^(.2)^10+0.5)/10的值是()。
随机试题
以连线法取臀大肌注射的定位法是
按照《公路水运工程试验检测信用评价办法》扣分标准,如果出现下列()行为,将被扣40分。
下列不属于客户财务信息的是()。
下列纠纷中,可以适用《仲裁法》解决的是()。
甲乙两班同学学习一段材料,甲班同学学习不久就复习,乙班同学不复习:一周后了,甲班同学的平均保持量是83%,乙班同学的保持量是25%。由此可见,防止遗忘要()。
我国现行宪法第二章“公民的基本权利和义务”规定的第一项宪法权利是()。
下列选项中,属于防卫过当的情形是()。
Formanyyears,smokershavebeenadmonishedtotaketheinitiativeandquit:chewnicotinegum,useanicotinepatch,takeap
对于给出一组权W={2,4,5,9},通过霍夫曼算法求出的扩充二叉树的带权外部路径长度为______。
Whatisthemoststrikingimagetoemergefromthisautumn’sOccupyprotests?WasitthecampuspoliceofficerinDavis,Califo
最新回复
(
0
)