首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
有如下程序: Private Sub Form_Click() Dim i As Integer,a(10)As Integer Dim p(3)A sInteger k=5 For i=0 To 10 a(i)=i Next i For i=0 To 2
有如下程序: Private Sub Form_Click() Dim i As Integer,a(10)As Integer Dim p(3)A sInteger k=5 For i=0 To 10 a(i)=i Next i For i=0 To 2
admin
2018-05-08
71
问题
有如下程序:
Private Sub Form_Click()
Dim i As Integer,a(10)As Integer
Dim p(3)A sInteger
k=5
For i=0 To 10
a(i)=i
Next i
For i=0 To 2
P(i)=a(i*(i+1))
Next i
For i=0 To 2
k=k+P(i)*2
Next i
Print k
EndSub
运行程序,单击窗体,输出结果是( )。
选项
A、20
B、21
C、32
D、56
答案
B
解析
本题考查利用For循环给数组元素赋值,在事件过程中定义了两个整型数组,a和p,第一个For循环,给a数组中的每个元素赋值,循环共执行11次,a(O)=Oa(1)=la(2)=2……a(10)=10;利用第二个For循环给数组p中的元素赋值,循环共执行了3次,p(0)=a(0*(0+1))=a(0)=0p(1)=a(1*(1+1))=a(2)=2p(2)=a(2*(2+1))=a(6)=6;利用第三个For循环对数组p中的元素进行计算并将累加结果保存到变量k中,循环执行3次,k=5+p(0)*2+p(1)*2+p(2)*2=5+4+12=21,故最终变量K的值为21,所以B选项正确。
转载请注明原文地址:https://kaotiyun.com/show/lSGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
有两个关系R和S如下:由关系R通过运算得到关系S,则所使用的运算为
数据库设计的根本目标是要解决
程序流程图中带有箭头的线段表示的是
下列程序运行后,单击窗体,在窗体上显示:1,1+2,1+2+3,1+2+3+4,1+2+3+4+5的和。在横线处应填写()。PrivateSubForm_Click()DimiAsInteger,ttAsInteger
窗体如图l所示。要求程序运行时,在文本框Textl中输入一个姓氏,单击”删除”按钮(名称为Commandl),则可删除列表框Listl中所有该姓氏的项目。若编写以下程序来实现此功能:PrivateSubCommandI_Click()D
内聚性是对模块功能强度的衡量,下列选项中,内聚性较弱的是()。
在窗体上画一个文本框,名称为Textl(可显示多行),然后再画三个命令按钮,名称分别为Commandl、Command2和Command3,标题分别为”读数”、”统计”和”存盘”,如图2.5所示。程序的其功能是:单击”读数”按钮,则把考生目录下的in5.t
设x为一整型变量,且语句的开始为:SelectCasex,则不符合语法规则的Case子句是
用LineInput语句从顺序文件读出数据时,每次读出一行数据。所谓一行是指遇到()分隔符,即认为一行的结束。
某个工厂有若干个仓库,每个仓库存放有不同的零件,相同零件可能放在不同的仓库中。则实体仓库和零件间的联系是
随机试题
现代汉字的规范化主要包括_____。
哪项不是槟榔的适应证仙鹤草除用于各种出血证外,还可用治
肺心病急性加重期治疗的关键是()
对孕激素作用的描述错误的是
癔病患者的特点为
某水泥混凝土用砂样筛分数据如下表。关于细集料筛分试验方法、筛分结果的计算、细度模数的计算、砂粗细程度的判定,请回答下列问题。有关细集料筛分试验结果计算,描述正确的有()。
某工程建设项目,由于地下水位在基底标高之上,采取抽水的方式进行降水,抽水量预计达74万m3。在此情况下,应()。
2017年10月12日,麦当劳(中国)有限责任公司更名为金拱门(中国)有限责任公司,已知10月14日、10月15日为休息日,则该公司最晚应于()向开户银行提出变更银行结算账户的申请。
新中国的工业化是在苏联的影响下起步的。走中国工业化道路,是中国共产党初步探索我国社会主义建设道路的—个重要思想。当时所讲的工业化道路问题,主要是指
WhendopeoplemostprobablywearT-shirts,accordingtothespeaker?
最新回复
(
0
)