首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个名称为Text1的文本框,并编写如下程序: Option Base 1 Private Sub Form_Click() Dim arr Dim Start As Integer,Finish As I
在窗体上画一个名称为Text1的文本框,并编写如下程序: Option Base 1 Private Sub Form_Click() Dim arr Dim Start As Integer,Finish As I
admin
2020-04-18
44
问题
在窗体上画一个名称为Text1的文本框,并编写如下程序:
Option Base 1
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
For i=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/CgTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
要求在程序运行时,如果按住鼠标左键不放而移动鼠标,鼠标的位置坐标同步显示在窗体右上角的标签(名称为Label1)中,如右图所示,放开鼠标左键后,停止同步显示。下面可以实现此功能的程序是( )。
执行下列语句:strInput=InputBox("请输入字符串","字符串对话框","字符串")将显示输入对话框。此时如果直接单击"确定"按钮,则变量strInput的内容是( )。
窗体上有一个名称为Commandl的命令按钮,其事件过程如下:PrivateSubCommand1_Click()x=”VisualBasicProgramming”a=Right(X,11)b=Mid(x,7,
下面描述中错误的是()。
在数据库设计中,将E-R图转换成关系数据模型的过程属于( )。
一个工程中包含两个名称分别为Forml、Form2的窗体、一个名称为Func的标准模块。假定在Form1、Form2和Func中分别建立了自定义过程,其定义格式为:Form1中定义的过程:PrivateSubFunl()EndSubForm2
(1)在考生文件夹下有一个工程文件sjt3.vbp,相应的窗体文件为sjt3.frm。其功能是随机产生30个0~1000的整数,将其放入一个数组中,然后输出其中的最大值。程序运行后,单击命令按钮(名称为Commandl,标题为“输出最大值”,如图所示),即
编写如下程序:PrivateSubCommand1_Click()StaticxAsIntegerIfxThenx=x+10Elsex=x+1PrintxEndSub程序运行后,第三次单
在窗体上建立一个命令控件数组Commandl,并双击第一个命令按钮,编写如下事件过程:PrivateSubCommandl_Click(IndexAsInteger)Commandl(Index).Caption=Format$(Now,"hh
窗体上有1个名称为Label1的标签;1个名称为List1,且含有若干表项的列表框。为了使得单击List1中某个表项时,在Label1中相应地显示该表项,应使用的程序代码为
随机试题
ItwasrequestedthatthePresident______thestudentsaperformanceattheNewYear’sparty.
铸造卡环宽度与厚度的比例为A.3:1B.3:2C.5:3D.5:4E.2:1
医疗事故是指
城市基准地价是()年期的土地使用权价格。
以下各项,属于印花税的纳税义务人的有()。
成就动机理论的主要代表人物阿特金森认为避免失败者的目的是避免失败,减少失败感,所以他们倾向于选择非常容易或非常困难的任务。当一项任务的成功率为50%时,对他们的成就动机()。
Themostcrucialproblemanyeconomicsystemfacesishowtouseitsscarceresources.
IntheAgeofGenetics,younolongerhavetotrytocutoutsmokingorthinktwiceaboutgobblingthatcandybarinyourdeskd
Thenewyearalwaysbringswithitaculturaltraditionofnewpossibilities.Weseeitasachancefor【B1】______.Webegintod
A、Trytovocalizeourgreatness.B、Thinkaboutourweaknessesmore.C、Trytosuppressthecompetitiveedge.D、Trynottoshowou
最新回复
(
0
)