2. 计算机
  3. 在窗体上画一个文本框，然后编写如下代码： Option Base 1 Private Sub Form_Click() Dim arr Dim Start As Integer，Finish As Integer

在窗体上画一个文本框，然后编写如下代码： Option Base 1 Private Sub Form_Click() Dim arr Dim Start As Integer，Finish As Integer

admin2009-02-13  35
问题 在窗体上画一个文本框，然后编写如下代码：    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
答案2
解析 本题首先定义了数组变量arr和3个整型变量，接着用Array函数定义了一个数组，并用LBound和UBound函数求出数组的上下界，分别存放在变量Start和Finish中，然后通过For循环求出数组中各元素的和，放在变量Sum中，最后将和除以数组的上界，实际上是求出数组各元素的平均值，即(12+4+8+16)/4=10，将在文本框中显示出来。
转载请注明原文地址:https://kaotiyun.com/show/SB1p777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)