首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
下列程序的执行结果是( )。 Private Sub Form_Activate() Dim score(3)As Integer,total As Integer Dim aa_score As Variant
下列程序的执行结果是( )。 Private Sub Form_Activate() Dim score(3)As Integer,total As Integer Dim aa_score As Variant
admin
2020-06-30
63
问题
下列程序的执行结果是( )。
Private Sub Form_Activate()
Dim score(3)As Integer,total As Integer
Dim aa_score As Variant
score(1)=50:score(2)=14:score(3)=36
total=0;i=0
For Each aa_score In score
i=i+1
total=total+aa_score
Print i,aa_score.tota l
Next
End Sub
选项
A、
B、
C、
D、
答案
A
解析
本题考查For Each In语句。该语句的使用形式为:ForEach成员 In数组 …Next,适用于不关心数组中的元素个数或者不清楚有多少个元素,使用时要求成员为变体类型变量。当激活窗体时,对score数组中的每个元素进行求和,同时i记下当前计算数组元素的个数。默认数组下标从0开始,题中score数组中含有4个元素,输出4行。
转载请注明原文地址:https://jikaoti.com/ti/oJS0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
假定有如下的Sub过程:SubS(xAsSingle,yAsSingle)t=x:x=t/yy=tModyEndSub在窗体上画一个命令按钮,然后编写如下事件过程:Private
(1)在考生文件夹下有一个工程文件sjt3.vbp,相应的窗体文件为sjt3.frm。在窗体上有一个名称为Text1的文本框,其MultiLine属性为True。程序运行后,如果单击窗体,则用随机数函数产生16个0~99的整数,并按4行4列的矩阵形式在文
在窗体上画一个命令按钮和一个文本框,其名称分别为Commandl和Textl,把文本框的Text属性设置为空白,然后编写如下事件过程:PrivateSubCommandl_Click()a=InputBox(”
以下控件中,能显示滚动条的是
列表框中的项目保存在一个数组中,这个数组的名字是
设有如下声明语句OptionBase1Dimarr(2,-1To5)AsInteger则数组all中数组元素的个数是
命令按钮Command1的MouseUp事件过程结构如下:PrivateSubCommand1_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)EndS
如下关于变体类型变量的叙述中,错误的是( )。
在VB中,函数过程与子程序过程的区别之一是
设有如下程序:OptionBase1Dima(3,4)AsInteger,b(4,3)AsIntegerPrivateSubCommand1_Click() ’循环1 Fori=1To3 Forj=1To4
随机试题
试就小儿消化系统解剖生理特点说明其易患某些消化道疾病的原因。
麻黄细辛附子汤的主治是
A.显示胶原纤维B.显示网状纤维C.显示横纹肌D.显示黏液E.显示淀粉样蛋白氢氧化银氨液浸染法
可用于确定单糖之间的连接顺序的方法有
下列属于固定成本的是( )。
路灯下的守望没有晚风吹笛,没有月光煮酒,一盏盏灯火点亮孤独的城市。我匆匆吃过母亲中午走时预留的晚餐,躺坐沙发,开始用遥控器点播欢愉。荧屏里刀光剑影,红颜如玉,上演着绚烂的青春与江湖,我陶醉其中,几乎忘却了母亲单车远骑,在现实里沉重呼吸。不去
在2010年南非世界杯中,有位球迷预测,如果巴西队没有获得冠军,那么法国队将获得亚军;如果巴西队获得冠军,那么阿根廷队将获得季军;如果法国队获得亚军,那么荷兰队将获得冠军;除非荷兰队获得冠军,否则阿根廷队不会获得季军。如果以上预测都是正确的,那么由此可以推
除嗅觉外,感觉信息传入大脑皮层最后一个中转站是()。(统考2011研)
______isadvancedbyPaulGrice.
A、Itishelpfulforthestudentstoknowthemselves.B、Itishelpfultocreateabalancedschoolcurriculum.C、Thestudentsshou
最新回复
(
0
)