首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个名为Command1的命令按钮,然后编写如下代码: Option Base l Private Sub Command1_Click() Dim a a=Array(1,2,3,4) j=1 F
在窗体上画一个名为Command1的命令按钮,然后编写如下代码: Option Base l Private Sub Command1_Click() Dim a a=Array(1,2,3,4) j=1 F
admin
2016-08-24
44
问题
在窗体上画一个名为Command1的命令按钮,然后编写如下代码:
Option Base l
Private Sub Command1_Click()
Dim a
a=Array(1,2,3,4)
j=1
For i=4 To I Step-1
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=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/FYLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在KeyPress事件过程中,KeyAscii是所按键的______值。
下列程序的执行结果是()。PrivaaeSubForm_ActivateDimscore(3)AsInteger,totalAsIntegerDimaa_scoreAsVariantscore(1)
在窗体上画一个文本框,其名称为Text1,然后编写如下事件过程:PrivateSubText1_KeyPress(KeyAsciiAsInteger)DimstrAsString,nAsIntegerStr=UCas
在VisualBasic的立即窗口内输入以下语句:X=97<CR>?Chr$(X)<CR>在窗口中显示的结果是______。
在窗体上画一个通用对话框,其名称为CommonDialog1,然后画一个命令按钮,并编写如下事件过程:PrivateSubCommand1_Click() CommonDialog1.Flags=vbOFNHideReadOnly
表达式Str(Len"123’))+Str(77.7)的值是()。
系统符号常量的定义可以通过()获得。
以下事件过程可以将打开对话框的标题改为“新时代”的是
下列关于队列的叙述中正确的是
表达式Right("Beijing",4)的值是
随机试题
我国《选举法》规定,人大代表中农村每一代表所代表的人口数是城市每一代表所代表的人口数的________。
A.房间隔缺损B.室间隔缺损C.动脉导管未闭D.肥厚型心肌病E.扩张型心肌病患者男性,5岁,胸骨左缘第二肋间收缩期杂音,x线检查右室右房扩大,最可能的诊断
现金的短缺应通过“待处理财产损溢”核算。()
《存款保险条例》规定的存款保险具有()。
工业上用钛酸亚铁(FeTiO)冶炼Ti的过程:①2FeTiO3+6C+7Cl2TiCl4+2FeCl3+6CO②在氩气环境中:2Mg+TiCl4Ti+2MgCl2下列判断不正确的是()。
案例:某同学对一道习题的解答如下:题目:在如图所示的电路中,电源电压保持不变,当开关S由断开到闭合,电流表两次示数之比是1:5。闭合S后,R1和R2的电功率之比为多少?解:根据功率的计算公式P=UI得:R1消耗的电功率P1=UI1;R2消耗的电
老王和小李是同事,老王像小李这么大时,小李13岁;小李长到老王这么大时老王43岁,问:老王和小李的年龄分别为多少?
对《中华民国临时约法》全面反动的宪法性文件是()。
Pleasegivemybestwishestoyourfamily.
DefinitionsofObesityA)Howdoesonedefinewhenapersonisconsideredtobeobeseandnotjustsomewhatoverweight?Height-we
最新回复
(
0
)