首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个名称为Text1的文本框,并编写如下程序: Option Base1 Private Sub Form_Click() Dim arr Dim Start As Integer,Finish As Integer Sum As Integer
在窗体上画一个名称为Text1的文本框,并编写如下程序: Option Base1 Private Sub Form_Click() Dim arr Dim Start As Integer,Finish As Integer Sum As Integer
admin
2018-10-18
39
问题
在窗体上画一个名称为Text1的文本框,并编写如下程序:
Option Base1
Private Sub Form_Click()
Dim arr
Dim Start As Integer,Finish As Integer Sum As Integer
arr=Array(12,4,8,16)
Start=LBound(arr)
Finish=UBound(arr)
Sum=0
Fo ri=Start To Finish
Sum=Sum+arr(i)
Next i
c=Sum/Finish
Text1.Text=c
End Sub
运行程序,单击窗体,则在文本框中显示的是
选项
A、40
B、10
C、12
D、16
答案
B
解析
本题中变量Start存放的是数组的下界,Finish存放数组的上界,因此For循环将遍历整个数组;在每次循环中将数组元素累加到累加和变量Sum中,循环结束后用累加和变量除以数组上界,由于数组下界从0开始,即求出数组平均值。
转载请注明原文地址:https://kaotiyun.com/show/9CFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
窗体上有一个名称为Command1的命令按钮。其单击事件过程如下:PrivateSubCommand1_Click()Open"c:\f1.txt"ForInputAs#1Open"c:\f2.txt"ForOut
数据库设计过程不包括
下面有关标准模块的叙述中,错误的是( )。
设a=10,b=5,c=1,执行语句Printa>b>c后,窗体上显示的是( )。
以下关于文件的叙述中,错误的是( )。
下面程序运行时,若输入"VisualBasicProgramming",则在窗体上输出的是( )。PrivateSubCommand1_Click() Dimcount(25)AsInteger,chAsString ch=U
设有窗体的Form_MouseMove事件过程如下:PrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle) If(Button
设a=2,b=3,c=4,d=5,下列表达式的值是( )。
表达式12/2\4的值是( )。
一般情况下,当对关系R和S进行自然连接时,要求R和S含有一个或者多个共有的
随机试题
已知函数χ=χ(y)由方程所确定,求。
不适宜与麻黄碱联用的药物是
下列关于收监程序的说法,错误的是()。
双向传播
(2008年单选17)甲驾驶车辆在城市主干道不慎将乙撞成重伤,负事故主要责任。由于抢救乙的医疗费用不断增加,甲感到很紧张,遂到寺庙中祈祷乙快点死去。在其祈祷后的第二天,乙死亡。甲的行为构成()。
最近公布的一项国家特别咨询委员会的调查报告声明:在选择了大量的研究对象进行对比实验后,发现在名人家族中才能出众者是普通人家族中才能出众者人数的23倍,因此我们可以得出信度很高的结论,人的素质主要是由遗传决定的。以下哪项如果为真。则最能削弱上述结论?
日本のカレンダーは、たいてい日曜日で始まり土曜日で終わります。だから土曜日に「来週会おうか」【C6】________、次の日の日曜日に会ってもいいことになります。ところが、アメリカやヨーロッパのカレンダーは、月曜日から始まり日曜日でわっているの
Thedevelopmentofwritingwasoneofthegreathumaninventions.Itisdifficult【C1】______manypeopletoimaginelanguagewitho
RecentyearshavebroughtminorityownedbusinessesintheUnitedStatesunprecedentedopportunities—aswellasnewandsignific
TheodoreDreiserandJackLondonareamongthebestrepresentativewritersofliterary
最新回复
(
0
)