首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
下列程序的执行结果是( )。 Private Sub Form_Activate() Dim score(3)As Integer,total As Integer Dim aa score As Variant score(1)=50:score(
下列程序的执行结果是( )。 Private Sub Form_Activate() Dim score(3)As Integer,total As Integer Dim aa score As Variant score(1)=50:score(
admin
2020-06-30
61
问题
下列程序的执行结果是( )。
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+aascore
Print i,aa score,tota1
Next
End Sub
选项
A、1 0 0
2 50 50
3 14 64
4 36 100
B、1 50 50
2 14 64
3 36 100
C、0 50 50
1 14 64
2 36 100
3 36 100
D、0 0 0
1 50 50
2 14 64
3 36 100
答案
A
解析
本题考查For Each In语句。该语句的使用形式为:For Each成员In数组…Next,适用于不关心数组中的元素个数或者不清楚有多少个元素,使用时要求成员为变体类型变量。当激活窗体时,对score数组中的每个元素进行求和,同时i记下当前计算数组元素的个数。默认数组下标从0开始,题中score数组中含有4个元素,输出4行。
转载请注明原文地址:https://www.kaotiyun.com/show/9HHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个名称为Commandl的命令按钮,并编写如下程序:OptionBase1PrivateSubCommand1—Click()Dima(4,4)Fori=1To4Forj=1To4a(i,j)=(i—1)*3+j
窗体上有名称为Command1的命令按钮,其事件过程如下:OptionBase1PrivateSubCommand1_Click()DimaDimb(10)AsIntegera=Array
设X为一整型变量,且语句的开始为:SelectCasex,则不符合语法规则的Case子句是
假定窗体上有一个标签,名为Label1,为了使该标签透明并且没有边框,则正确的属性设置为()。
下面有关标准模块的叙述中,错误的是
要使一个文本框可以显示多行文本,应设置为True的属性是
编写如下程序:PrivateSubCommand1Click()DimmAsInteger,nAsIntegerm=2:n=1SelectCasemCase1SelectCasenCase1Print“AAA”Ca
下面叙述中正确的是
构成计算机软件的是
随机试题
身热,微恶风寒,汗出,头痛,咳嗽,咽燥,口渴,治疗应选用
关于上肢摄影的注意事项,不妥的是
患者因右下颌磨牙反复自发痛,近日疼痛突然加剧。镜下见中性粒细胞广泛浸润至整个牙髓组织,形成多处小脓肿。该疾病是
物料在允许投料或出厂前所处的搁置、等待检验结果的状态是证明任何程序、生产过程、设备、物料、活动或系统确实能达到预期结果的有文件证的一系列活动为
在登记账簿时,红色墨水不能用于()。
某百货公司拟开始进入电子商务行业,该公司目前的资产负债率为40%,加权平均资本成本为10%;预计进入电子商务行业后负债/权益为1/1,债务税前成本为6%。电子商务行业的代表企业为A公司,其资本结构为负债/股东权益为4/5,权益的β值为1.8。已知无风险利率
以下关于以任务或过程为取向的研讨的说法错误的是()。
下列程序的作用是求所有小于或等于30的自然数对。该程序不完整,请补充完该程序(程序执行结果见下图)。注:自然数对是指两个自然数的和与差都是平方数(如8与17)。PrivateSubCommand1_Click()
VinceAgsawaywrotethislettersoastoinform______.Vincefoundhispast5years’experience______.
A、Beforefinishingschool.B、Afterfinishinguniversity.C、Duringheruniversitycourse.D、Betweenschoolanduniversity.DWhen
最新回复
(
0
)