首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个名称为Command1的命令按钮,然后编写如下程序: Option Base1 Private Sub Command1_Click() Dim a As Variant a=Array(1,2,3,4,5)
在窗体上画一个名称为Command1的命令按钮,然后编写如下程序: Option Base1 Private Sub Command1_Click() Dim a As Variant a=Array(1,2,3,4,5)
admin
2019-04-29
51
问题
在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:
Option Base1
Private Sub Command1_Click()
Dim a As Variant
a=Array(1,2,3,4,5)
Sum=0
For i=l To 5
Sum=Sum+a(i)
Next i
x=Sum/5
For i=1 To 5
If a(i)>x then Print a(i)
Next i
End Sub
程序运行后,单击命令按钮,在窗体上显示的内容是
选项
A、12
B、123
C、345
D、45
答案
D
解析
本题考查数组和循环。在Command1的Click事件代码里面,定义了数组a,并通过Array函数给数组赋初值。接下来通过For循环计算数组元素的累加和Sum,得到累加和后x=Sum/5来计算平均值。最后通过For循环,打印大于平均值的元素。
转载请注明原文地址:https://kaotiyun.com/show/UhUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上有两个名称分别为Text1、Text2的文本框.一个名称为Command1的命令按钮运行后的窗体外观如图所示。设有如下的类型和变量声明:PrivateTypePersonNameAsString*8:MajorAsStri8ng*
设窗体上有一个Commandl命令按钮,还有以下程序代码:PrivateSubCommand1_Click()PrivateSUbproe(aAsInteger).StaticxAsIntegerStaticxAsIntege
以下关于变量作用域的叙述中,错误的是
以下叙述中正确的是()。
下列关于类、对象、属性和方法的叙述中,错误的是()。
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。在名称为Form1的窗体上添加一个计时器控件,名称为Timer1。请利用属性窗口设置适当属性,使得在运行时可以每隔1秒,调用计时器的Timer事件过程一次。另外,请把窗体的标
在考生文件夹下有一个工程文件sjt5.vbp,窗口有2个名称分别为Command1和Command2、标题分别为“读数据”和“排序”的命令按钮,有2个标题分别为“数组A”和“数组B”的标签。请将窗体标题设置为“完全平方数排序”:再画2个名称分别为Text1
下列叙述中,不属于软件需求规格说明书的作用的是()。
设a=2,b=3,c=4,d--5,下列表达式的值是()。3>2*bOra=cAndbcOrb◇a+c
三角形的构成条件是:任意2边之和大于第3边。设变量a、b、c是3条直线的长度,要求判断这3条直线能否构成一个三角形。下面有3个程序段可以正确判断,另一个不能正确判断的是
随机试题
下列关于债务重组中,将债务转为资本的说法中,正确的有()。
某教师在执教“做更好的自己”时,通过多媒体展示同学认真听课、参加体育竞赛、外出研究等照片并说出如下新课导入语:“同学们,自信、阳光、快乐写满你们的脸庞,和你们相处的点点滴滴都是我的幸福,遇到你们真好,在未来的日子里,我希望你们能做更好的自己,遇见更好的自己
简述项目管理的特征。
关于知识产权的专有性,下列表述不正确的是()
下列关于氟烷描述错误的是
没有咬合关系的
甲公司2013年采用销售百分比法预测外部资金需要量,预计下一年度比本年销售收入将增加20%。本年度的销售收入为95000万元,敏感资产和敏感负债占销售收入的百分比分另0为58%、13%,销售净利润率为10%,股份支付率为60%。甲公司现有总资本1
甲、乙、丙三人沿着400米环形跑道进行800米跑步比赛,当甲跑1圈时,乙比甲多跑圈。丙比甲少跑圈。如果他们各自跑步的速度始终不变,那么,当乙到达终点时,甲在丙前面____________米。
【统购统销政策】浙江大学2002年中国现代史真题;西北大学2015年中国史真题
MinorityReportA)Americanuniversitiesareacceptingmoreminoritiesthanever.Graduatingthemisanothermatter.B)BarryMill
最新回复
(
0
)