2. 计算机
  3. 在窗体上画一个名称为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

admin2015-08-28  101
问题 在窗体上画一个名称为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/vmLp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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