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

admin2009-02-15 47

问题有如下程序： 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)\3 Then Sum=Sum+arr(i) End If Next i Print Sum End Sub 程序运行后，单击窗体，输出结果为______。

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

答案C

解析 Option Base 1表示数组的下标是从1开始的。本题中先定义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整除的数加起来，即4(2)+a(5)+a(8)=3+9+15=27。

转载请注明原文地址:https://www.kaotiyun.com/show/pm1p777K

本试题收录于：二级VB题库NCRE全国计算机二级分类