首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
有如下程序: 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
36
问题
有如下程序:
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全国计算机二级
相关试题推荐
下列选项中不属于结构化程序设计原则的是
程序流程图中带有箭头的线段表示的是
在用Open语句打开文件时,如果省略”For方式”,则打开的文件的存取方式是()。
设有以下函数过程PrivateFunctionFun(a()AsInteger,bAsString)AsInteger…EndFunction若已有变量声明:Dimx(5)AsInteger,nAs
(1)请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。在标题为”列表框”、名称为Forml的窗体上画一个名称为Listl列表框,通过属性窗口输入四个列表项:”数学”、”语文”、”历史”、”地理”,列表项采用”复选框形式”,如
下面程序执行时,输出的结果是()。PrivateSubForm_Click()DimiAsIntege,jAsIntegeri=10Doi=i+jForj=10ToiStep-3i=i+jNextj
数据库系统在其内部具有3级模式,用来描述数据库中全体数据的全局逻辑结构和特性的是()。
为了实现对象的自动拖放,应该设置该对象的一个属性。下面设置中正确的是
在设计阶段,如果双击窗体上的一个文本框控件,则在代码窗口中显示该控件的事件过程所对应的事件是
为了保存数据,需打开顺序文件“E:\UserData.txt”,以下正确的命令是
随机试题
countertrade
患者,女。自其一亲友是个月前被查出患有晚期肝癌后,她就感到自己腹部也时有不适,尽管经过数次就诊和检查,都没有发现什么器质性问题,但该患者还是不放心,每隔2~3天又来就诊要求检查。该患者最需要的是
根据《招标投标法》的规定,下列关于《招标投标法》的适用范围表述中不正确的是()。
工程网络计划的工期优化是通过(),使计算工期满足要求工期。
企业在记录财务费用时,通常所采用的明细账格式是()。
Inrecentdecades,thereisaphenomenonwhichmakesusgivesomeattention,theso-calledSoutheastAsian"Tigers"haverivaled
因劳动者本人原因给用人单位造成经济损失的,用人单位按照劳动合同的约定要求其赔偿经济损失。经济损失的赔偿,可从劳动者本人的工资中扣除。但每月扣除的部分不得超过劳动者当月工资的20%。若扣除后的剩余工资部分低于当地月最低工资标准,则按最低工资标准支付。这段话主
结业和毕业考试属于()。
A、 B、 C、 D、 B
______yearmytravelagentpromisesmethatmyholidaywillbe______bestIhaveeverhad,butnoneofthesepromiseshaseverco
最新回复
(
0
)