[已解决]EXCEL高手用VBA解释一下for循环array和sum

vbyou127

EXCEL高手用VBA解释一下for循环array和sum


option base 1
private sub form_click()
dim arr,sum
sum=0
arr=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

输出结果为(C)

A,25
B,26
C,27
D,28

为什么选C

最佳答案

月排行榜 / 总排行榜

grf1973

2016-2-19 16:05

1、代码里有点小问题   for i=1 to 10 应该改成 for i=0 to 9，因为直接定义的数组下标是从0开始的。
2、if arr(i)/3=arr(i)\3 then  表示 arr(i)除以3 和 arr(i)除以3取整相同，表示arr(i)是3的倍数。循环里的意思是把数组arr里面3的倍数取出来，累加到sum里。
3、sum=3+9+15=27

跳转到最佳答案楼层

grf1973

1、代码里有点小问题   for i=1 to 10 应该改成 for i=0 to 9，因为直接定义的数组下标是从0开始的。
2、if arr(i)/3=arr(i)\3 then  表示 arr(i)除以3 和 arr(i)除以3取整相同，表示arr(i)是3的倍数。循环里的意思是把数组arr里面3的倍数取出来，累加到sum里。
3、sum=3+9+15=27