在窗体上画一个名称为Text1的文本框，并编写如下程序： Option Base1 Private Sub Form Click() Dim arr Dim Start As Integer，Finish As Intege

admin2019-06-11 23

问题在窗体上画一个名称为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
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

解析本题中变量Stan存放的是数组的下界，Finish存放数组的上界，因此For循环将遍历整个数组；在每次循环中将数组元素累加到累加和变量Sum中，循环结束后用累加和变量除以数组上界，由于数组下界从0开始，即求出数组平均值。

转载请注明原文地址:https://kaotiyun.com/show/cAUp777K

本试题收录于：二级VB题库NCRE全国计算机二级分类

二级VB

NCRE全国计算机二级

相关试题推荐

随机试题

最新回复(0)

在窗体上画一个名称为Text1的文本框，并编写如下程序： Option Base1 Private Sub Form Click() Dim arr Dim Start As Integer，Finish As Intege

二级VB

NCRE全国计算机二级

假定通过复制、粘贴操作建立了一个命令按钮数组Command1，以下说法中错误的是

下列数组定义中错误的是

在窗体上画一个名称为Commandl的命令按钮，并编写如下程序：PrivateTypeRecordIDAsInteger：NameAsString*20EndTypePrivateSubCommand1_Click()DimM

VB中有这样一类文件：该文件不属于任何一个窗体，而且仅包含程序代码，这类文件的扩展名是

设工程文件包含两个窗体文件Form1．frm、Form2．frm及一个标准模块文件Module1．bas。两个窗体上分别只有一个名称为Command1的命令按钮。Form1的代码如下：PublicxAsIntegerPfivateSubFor

(1)在考生目录下有一个工程文件sjt3．vbp，窗体文件中已给出所有控件和部分程序，如图2-85所示。要求：①利用属性窗口设置适当的属性，使Text1、Text2中数据右对齐；②请编写适当的程序完成以下功能：在Text1中输入40(度

[*]

在制图中，如果选择“第三象限角投影”，那么左视图应放置在主视图的______。

开发SSL安全协议的公司是()

对决策管理层进行培训与开发的内容主要有()。

属于公务员物质保障制度的是()。

设(I)和(Ⅱ)都是3元非齐次线性方程组，(I)有通解ξ1+c1η1+c2η2，ξ1=(1，0，1，)，η1=(1，1，0)，η2=(1，2，1)；(Ⅱ)有通解ξ2+cη，ξ2=(0，1，2)，η=(1，1，2)．求(I)和(Ⅱ)的公共解．

设周期函数f(x)在(－∞，＋∞)内可导，周期为4，又，则曲线y＝f(x)在(5，f(5))点处的切线斜率为

体の________を崩して倒れました。