首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个名称为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
19
问题
在窗体上画一个名称为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/O8Hp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列叙述中正确的是( )。
在编辑VB应用程序时,如果不小心关闭了属性窗口,则可以单击主窗口标准工具栏上的一个按钮直接打开属性窗口,这个按钮的图标是
耦合性和内聚性是对模块独立性度量的两个标准。下列叙述中正确的是()。
以下选项中,不合法的VisualBasic的变量名是()。
设窗体上有1个水平滚动条,已经通过属性窗口把它的Max属性设置为l,Min属性设置为100。下面叙述中正确的是()。
在窗体上画一个通用对话框,程序运行中用ShowOpen方法显示"打开"对话框时,希望在该对话框的"文件类型"栏中只显示扩展名为DOC的文件,则在设计阶段应把通用对话框的Filter属性设置为( )。
窗体上有名称为Command1的命令按钮和名称为Text1的文本框PrivateSubCommand1_Click()Text1.Text="程序设计"Text1.SetFocusEndSubPrivateSubText1_GotF
从键盘上输入一个浮点数asingle,利用字符串函数对该数进行处理后,如果输出的内容不是“非浮点数”,则对程序输出的内容分析正确的是()。asingle=InputBox("请输入一个浮点数:")str1$=Str$(asing
下列选项中不属于结构化程序设计方法的是
算法的时间复杂度是指
随机试题
下列各项中,不属于PEST分析的经济环境因素是()。
在投资项目评价中,已知某项目的现值指数为1.2,下列说法中正确的是()。
DuringWorldExpo,journalistsfromallovertheworldcameto______theexhibitionbuilding.
社会主义承认社会价值,否认个人价值。()
手表定律是指一个人有一只表时,可以知道现在是几点钟,而当他同时拥有两只显示时间不一致的表时却无法确定。两只表并不能告诉一个人更准确的时间,反而会使看表的人失去准确判断时间的信心。根据上述定义,以下选项中所述内容不属于手表定律的是()。
论述颜元对理学的批判及其实学思想。
Despiteyourbestintentionsandefforts,itis【B1】______:Atsomepointinyourlife,youwillbewrong.【B2】_______canbehar
要把一个命令按钮设置成无效,应设置属性______的值为False。
有下列程序#include<stdio.h>voidf(intx[],intn){if(n>1){printf("%d",x[n-1]);f(x,n-1);printf("%d",x[n-1]);}elseprintf("%d",x
有如下函数模板:template<class T>T square(T x){return x*x;}其中T是
最新回复
(
0
)