[已解决]EXCEL高手用VBA解释一下for循环arraydc数组xi

vbyou127

EXCEL高手用VBA解释一下for循环arraydc数组xi


option base 1
private sub command1_click()
dim c as integer,d as integer
d=0
c=6
x=array(2,4,6,8,10,12)
for i=1 to 6
if x(i)>c then
d=d+x(i)
c=x(i)
else
d=d-c
end if
next i
print d
end sub

那么结果为(C)

A,10
B,16
C,12
D,20


为什么选C

最佳答案

月排行榜 / 总排行榜

lichuanboy44

2016-2-19 12:28

1、for i=1时：x(1)=2,c=6,2>6不成立，if执行 else，d=d-c,d=0-6=-6

2、for i=2时：x(2)=4,c=6,4>6不成立，if执行 else，d=d-c,d=-6-6=-12

3、for i=3时：x(3)=6,c=6,6>6不成立，if执行 else，d=d-c,d=-12-6=-18

4、for i=4时：x(4)=8,c=6,8>6成立，if执行，d=d+x(4),c=x(4)=8,d=-18+8=-10

5、for i=5时：x(5)=10,c=8,10>8成立，if执行，d=d+x(5),c=x(5)=10,d=-10+10=0

6、for i=6时：x(6)=12,c=10,12>10成立，if执行，d=d+x(6),c=x(6)=12,d=0+12=12
所以最后d=12

跳转到最佳答案楼层

lichuanboy44

1、for i=1时：x(1)=2,c=6,2>6不成立，if执行 else，d=d-c,d=0-6=-6

2、for i=2时：x(2)=4,c=6,4>6不成立，if执行 else，d=d-c,d=-6-6=-12

3、for i=3时：x(3)=6,c=6,6>6不成立，if执行 else，d=d-c,d=-12-6=-18

4、for i=4时：x(4)=8,c=6,8>6成立，if执行，d=d+x(4),c=x(4)=8,d=-18+8=-10

5、for i=5时：x(5)=10,c=8,10>8成立，if执行，d=d+x(5),c=x(5)=10,d=-10+10=0

6、for i=6时：x(6)=12,c=10,12>10成立，if执行，d=d+x(6),c=x(6)=12,d=0+12=12
所以最后d=12