有如下程序: Option Base 1 Private Sub Form_Click() Dim arr,Sum Sum=0 alt=Array(1,3,5,7,9,11,13,15,17,19)

admin2013-01-23  28

问题 有如下程序:    Option Base 1    Private Sub Form_Click()        Dim arr,Sum        Sum=0         alt=Array(1,3,5,7,9,11,13,15,17,19)        For i=1 To 10            If arr(i)/3=arr(i)13 Then                Sum=Sum+alt(I)            End If        Next i        Print Sum    End Sub    程序运行后,单击窗体,输出结果为______。   

选项 A、25     
B、26
C、27
D、28

答案C

解析 OptionBasel表示数组的下标是从l开始的。本题中先定义arr=Array(1,3,5,7,9,11,13,15,17,19),即a(1)=1,a(2)=3,a(3)=5,a(4)=7,a(5)=9,a(6)=11,a(7)=13,a(8)=15,a(9)=17,a(10)=19,而在循环语句中就是要求把能被3整除的数加起来,即a(2)+a(5)+a(8)=3+9+15=27。
转载请注明原文地址:https://kaotiyun.com/show/0chp777K
0

最新回复(0)