首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个名称为Text1的文本框,并编写如下程序: Option Base 1 Private Sub Form_Click() Dim arr Dim Start As Integer, Finish As Integer Dim Su
在窗体上画一个名称为Text1的文本框,并编写如下程序: Option Base 1 Private Sub Form_Click() Dim arr Dim Start As Integer, Finish As Integer Dim Su
admin
2020-07-22
44
问题
在窗体上画一个名称为Text1的文本框,并编写如下程序:
Option Base 1
Private Sub Form_Click()
Dim arr
Dim Start As Integer, Finish As Integer
Dim 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
解析
程序中将变量arr初始化为有4个元素的数组,使用Lbound和Ubound函数分别获取数组下标的上下限,然后将数组中的元素值相加,用整除运算求它们的平均值。算式可写为(12+4+8+16)/ 4=(40)/4=10。所以答案为B。
转载请注明原文地址:https://kaotiyun.com/show/GDHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个命令按钮和一个标签,其名称分别为Command1和Label1,然后编写如下事件过程:PrivateSubCommand1Click()Counter=0Fori=1To4Fori=6To1Step-2
在窗体上画一个名称为Command1的命令按钮,然后编写如下程序代码:PrivateSubCommand1_Click()DimaAsInteger,bAsIntegera=5:b=10Callmysub(a
编写如下程序:PrivateSubCommand1_Click()DimiAsInteger,jAsIntegern=InputBox("输入一个大于1的正整数")Fori=2TonForj=2ToSqr(i)
设有如下程序段:DimxAsIntegerx=Val(InputBox("输入变量x的值"))SelectCasexCase________________Print"*"CaseElse
现有如下程序:PrivateSubCommand1_Click()s=0Fori=1To5s=s+f(5+i)NextPrintsEndSubPublicFunctionf(x
现有程序如下:OptionBase1PrivateSubFormClick()Dimx(5,6)AsInteger,y(5)AsIntegerFori=1To5Forj=1To6x(i
以下合法的VB变量名是
设工程中有2个窗体:Form1和Form2,每个窗体上都有一个名称为Text1的文本框。若希望把Form1上文本框中的内容复制到Form2上的文本框中,应进行的操作是
函数过程F1的功能是:如果参数a为奇数,则返回值为1,否则返回值为0。以下能正确实现所述功能的代码的是()。
随机试题
为了有利于(),内浇道不开设在铸件质量要求高的部位。
运用霍兰德的“人业互择”理论的关键在于()
书法家苏、黄、米、蔡属于我国()
所谓Roger病是指
某甲打算开一家饭店,经打听,需要分别取得某市工商局、卫生局、消防局等政府部门的行政许可,根据《行政许可法》的规定,下列做法合法的是()。
用BCD码表示的十进制数45,可以写成()。
企业取得长期借款的条件不包括( )。
根据《中华人民共和国未成年人保护法》和《中华人民共和国预防未成年人犯罪法》的规定,对未成年人犯罪一律不公开审理的年龄是()。
"Forestsarethelungsofourland,"saidFranklinDelanoRoosevelt.Twentyyearsago,theworld’slungswerediseased.Roughly
通用对话框Filter属性的作用是
最新回复
(
0
)