2. 计算机
  3. 有如下程序： Option Base 1 Private Sub Form_Click() Dim arr，Sum Sum=0 alt=Array(1，3，5，7，9，11，13，15，17，19)

有如下程序： 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  36
问题 有如下程序：    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
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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