首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个命令按钮(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
2016-11-12
46
问题
在窗体上画一个命令按钮(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=1 To 3
p(i)=a(i*i)
Next i
For i=1 To 3
k=k+p(i)*2
Next i
Print k
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/qsGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
窗体上有1个名为List1的列表框,其中已经输入了若干个项目(如图所示);还有2个文本框,名称分别为Text1、Text2,1个名称为Commandl的命令按钮,并有以下程序:PrivateSubCommandl_Click()
下列方法中,属于白盒法设计测试用例的方法的是()。
在窗体上画一个名称为Text1的文本框,然后画一个名称为Hscroll1的滚动条,其Min和Max属性分别为0和1000。程序运行后,如果移动滑块,则在文本框中显示滚动条的当前值。以下能实现上述操作的程序是()。
若将变量TestDate声明为Date类型,则下列为变量TestDate赋值的语句中正确的是()。
在考生文件夹下有一个工程文件execise24.vbp,相应的窗体文件为execise24.frm,此外还有一个名为in24.txt的文本文件,其内容如下:13242336585816985453144252247326912
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在Forml的窗体上画一个名称为Picl的图片框,然后建立一个主菜单,标题为“命令”,名称为Com,该菜单有两个子菜单,其标题分别为“输出”和“删除”,名称分别为Pr
在名为Form1的窗体上绘制一个图片框,名为Pic1,高为1800、宽为1600,通过属性窗口把考生目录下的图像文件pic1.bmp放到图片框中(如下图所示)。注意:文件必须存放在考生文件夹中,工程文件名为execise107.vbp,窗
下列程序要求用户输入一个年份,并能够判断用户输入的年份是否是闰年,横线处应填()。SubEnSure()DimyearAsIntegeryear=Val(InputBox(”请输入年份:”))If(
要使文件列表框中的文件随目录列表框中所选择的当前目录的不同而发生变化,应该
随机试题
经性菌毛相互沟通,将遗传物质从供菌转移给受菌的过程称为
患者男性,51岁,有结核病接触史,吸烟30余年,无自觉症状。体检时胸片发现左上肺于第2前肋问近外侧胸壁处有直径约3cm的肿块阴影,边缘较模糊,痰液检查未发现癌细胞,亦未找到抗酸杆菌,支纤镜检阴性。为明确诊断,做下列检查把握性最大的是
与原发型肝癌应鉴别的疾病主要是
关于音叉试验描述不正确的是
常用葛根而不用升麻治疗的病证是
下列选项中,在城市黄线范围内禁止进行的活动包括()。
当影子定价与摊余成本法确定的基金资产净值偏离度的绝对值达到或者超过()时,基金管理人应当就此事项进行临时报告。
1.甲股份有限公司(以下简称“甲公司”),属于增值税一般纳税人。甲公司2×15年至2×17年与固定资产有关的业务资料如下:(1)2×15年12月1日,甲公司购入一条需要安装的生产线,取得的增值税专用发票上注明的生产线价款为1000万元,增值税税额为170
Idon’tknowyouwanttokeeptheletter.I’ve______itup.
Inbringingupchildren,everyparentwatcheseagerlythechild’sacquisition(学会)ofeachnewskill—thefirstspokenwords,the
最新回复
(
0
)