首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个命令按钮(Name属性为Command1),然后编写如下事件过程: Private Sub Command1_Click() Dim a(10)As Interger,p(3)As Interger K=5 F
在窗体上画一个命令按钮(Name属性为Command1),然后编写如下事件过程: Private Sub Command1_Click() Dim a(10)As Interger,p(3)As Interger K=5 F
admin
2017-08-22
29
问题
在窗体上画一个命令按钮(Name属性为Command1),然后编写如下事件过程:
Private Sub Command1_Click()
Dim a(10)As Interger,p(3)As Interger
K=5
For i=1 To 10
a(i)=i
Next i
For i=l To 3
p(i)=a(i*i)
Next i
For i=1 To 3
k=k+p(i)*2
Next i
Printk
End Sub
程序运行后,单击命令按钮,输出结果是( )。
选项
A、35
B、28
C、33
D、37
答案
C
解析
题中第一个循环功能是给数组a赋值,即a(1)=1、a(2)=2…;第二个循环功能是给数组p赋值,即p(1)=1、p(2)=4、p(3)=9;第三个循环是求K的值,即是将K值加上数组P所有元素的值,所以K=K+p(1)*2+p(2)*2+p(3)*2=33。
转载请注明原文地址:https://kaotiyun.com/show/T3Gp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体中添加一个命令按钮,名称为Commandl,然后编写如下程序:PrivateSubCommand1_Click()DimaAsInteger,bAsString,CAsIntegera=
在窗体上添加一个按钮,名为Command1,然后编写如下的事件过程,输出结果为PrivateSubComand1_Click()Fori=1To4x=4Forj=1To3
在窗体上有一个命令按钮Command1,编写下列程序:PrivateSubCommand1_Click()Printpp1(3,7)EndSubPublicFunctionpp1(xAsSingle,nAsInteger)As
设计程序时,应采纳的原则之一是()。
记时器控件能有规律的以一定时间间隔触发【】事件,并执行该事件过程中的程序代码。
下面关于InputBox函数的叙述,不正确的是()
某程序列表框中有许多项,现在用Timer控件控制时间,0.1秒删除一项,直到删完为止,用一滚动条来显示删除的项目,请选择合适的语句,完成此程序()。PrivateSubCommand2_Click
设有变量声明DimTestDateAsDate,为变量TestDate正确赋值的表达方式是______。
VisualBasic一共有设计、运行和中断三种模式,要使用调试工具应该______。
某二叉树共有60个叶子结点与50个度为1的结点,则该二叉树中的总结点数为()。
随机试题
甲公司因经营状况不佳而被乙公司兼并,其欠乙公司的100万元货款是因下列哪项债的消灭方式而消灭的()
房地产开发投资的经济效果主要表现为投资利润,其经济效果的大小则用销售收入、成本利润率、投资收益率等指标来衡量。()
()的税额随课税对象的价格变化发生同向变化,收入弹性大,能适应价格引导资源配置的市场经济要求,便于贯彻税收政策和增加税收收入,因而对多数税种课税时采用。
吊装用钢丝绳绳芯的种类有()。
如果钢结构的施工出现了严重的质量问题,则A公司起诉的被告中不应包括()。假如B公司诉A公司工程款纠纷案,A公司不服一审判决提起上诉,二审法院维持了一审判决,但A公司拒不执行法院的生效判决。则B公司应当向()人民法院申请强制执行。
比较常用的战略产业的扶植政策有()。
(2014年卷二第38题)根据反不正当竞争法及相关规定,下列哪些属于侵犯他人商业秘密的行为?
有一个人从A地出发到B地,相距为S千米,他先用v的速度走了一半路程,后一半路程他用2/3v的速度前进,问他的平均速度为()
WhenmypredecessorsatTimereviewedecologistRachelCarson’sbookSilentSpring50yearsagothismonth,theywerelessthan
HotSpotsinCrossCulturalCommunicationI.【T1】________Conversations—Modesofaddress—【T2】______—Levels
最新回复
(
0
)