在窗体上画一个名称为Textl的文本框,并编写如下程序: OptionBase 1 Private Sub Form_Click() Dim art Dim StartAs Integer,FinishAs Integer SumAs Integer ar

admin2019-04-29  58

问题 在窗体上画一个名称为Textl的文本框,并编写如下程序:
OptionBase 1
Private Sub Form_Click()
Dim art
Dim StartAs Integer,FinishAs Integer SumAs Integer
art=Array(12,4,8,16)
Start=LBound(arr):Finish=UBound(arr):Sum=0
For i=StartTD Finish
Sum=Sum+art(i)
Next i
c=Sum/Finish
Text1.Tex

选项 A、40
B、10
C、12
D、16

答案B

解析 本题中变量Start存放的是数组的下界,Finish存放数组的上界,因此For循环将遍历整个数组;在每次循环中将数组元素累加到累加和变量Sum中,循环结束后用累加和变量除以数组上界,由于数组下界从0开始,即求出数组平均值。
转载请注明原文地址:https://jikaoti.com/ti/WHN0FFFM
0

最新回复(0)