首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个名称为Textl的文本框,并编写如下程序: Option Base 1 Private Sub Form_Click() Dim lilt Dim Start As Integer,Finish As Integer
在窗体上画一个名称为Textl的文本框,并编写如下程序: Option Base 1 Private Sub Form_Click() Dim lilt Dim Start As Integer,Finish As Integer
admin
2020-06-30
35
问题
在窗体上画一个名称为Textl的文本框,并编写如下程序:
Option Base 1
Private Sub Form_Click()
Dim lilt
Dim Start As Integer,Finish As Integer
Dim Sum As Integer
art=Array(12,4,8,16)
Start=LBound(arr)
Finish=UBound(arr)
Sum=0
For i=Start T0 Finish
Sum=Sum+arr(i)
Next i
c=Sum/Finish
Textl.Text=c
End Sub
运行程序,单击窗体,则在文本框中显示的是( )。
选项
A、40
B、10
C、12
D、16
答案
B
解析
程序中将变量arr初始化为有4个元素的数组,使用Lbound和LJbound函数分别获取数组下标的上下限,然后将数组中的元素值相加,用整除运算求它们的平均值。算式可写为(12+4+8+16)/4=(40)/4=l0。所以答案为B。
转载请注明原文地址:https://kaotiyun.com/show/61Hp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
对窗体上名称为Commandl的命令按钮,编写如下事件过程:PrivateSubCommandl_Click()Move200,200EndSub程序运行时,单击命令按钮,则产生的操作是()。
在窗体上画一个文本榧,然后编写如下事件过程:PrivateSubText1_KeyPress(KeyAsciiAsInteger)DimcharAsStringchar=Chr(KeyAscii)KeyAscii=Asc(UCase(
在窗体上画一个文本框,然后编写如下事件过程:PrivateSubTextl_KeyPress(KeyAsciiAsInteger)DimcharAsStringchar=Chr(K
在窗体上画一个文本框,其名称为Text1,初始内容为空白,并设置成多行显示格式;然后再画两个命令按钮,其名称分别为Command1和Command2,标题分别为“显示”和“保存”,如图2.92所示,编写适当的事件过程。程序运行后,如果单击“显示”按钮,则读
设有如下Command1的单击事件过程及fun过程:PrivateSubCommand1_Click()DimxAsIntegerx=Val(InputBox("请输入一个整数"))fun(x)
下面描述中不属于数据库系统特点的是
设循环队列的存储空间为Q(1:50),初始状态为front=rear=50。现经过一系列入队与退队操作后,front=rear=1,此后又正常地插入了两个元素。最后该队列中的元素个数为()。
假定通过复制、粘贴操作建立了一个命令按钮数组Commandl,以下说法中错误的是
在窗体上画两个单选按钮(名称分别为Option1、Option2,标题分别为“宋体”和“黑体”)、1个复选框(名称为Check1,标题为“粗体")和1个文本框(名称为Text1,Text属性为“改变文字字体”)。程序运行后,要求“宋体"单选按钮和“粗体”
复选框是否被选中,取决于复选框的()。
随机试题
心力衰竭发生发展的基本机制是
女性生殖器官淋巴下述哪项是错误的
下列说法错误的是
A.内补丸B.止带方C.易黄汤D.完带汤E.知柏地黄丸
去除内脏的动物体作为药材的有
装修材料按实际应用分为()。
(2011、2009年考试真题)下列属于财政政策手段的是()。
有进出口经营权的某外贸公司,2001年10月发生以下经营业务:(1)经有关部门批准从境外进口小轿车30辆,每辆小轿车货价15万元,运抵我国海关前发生的运输费用、保险费用无法确定,经海关查实其他运输公司相关业务的运输费用占货价的比例为2%。向海关缴纳了相关
下列关于《大清新刑律》特点的表述,正确的有()。(2010年真题)
Theonlysurvivorofashipwreckwaswasheduponasmall,uninhabitedisland.Heprayed【C1】______forGodtorescuehim,andeve
最新回复
(
0
)