『紧急求助』解一个vb问题，求结果。可以解读下吗？private sub command1_click(),a=array(1,2,3,4,5,6...

单击按钮后输出结果：18。解析：a = Array(1, 2, 3, 4, 5, 6, 7) '给数组赋值，a(0)到a(6)的值别为1至7。for.....Next是循环从数组中取值并累加。s初始未赋值，默认为0。循环累加的结果是0+3+4+5+6＝18.

首先array是数组的意思后加（）给数组赋初值，所以a必须是变体。接着是循环，k从2到5，因为没有加option base 1,所以数组从0开始算即a（2）=3，所以从2到5即是3+4+5+6=18.能懂吧！好好学，vb不难。注意分析题目。

a = Array(1, 2, 3, 4, 5, 6, 7) '给数组赋值，a(0)到a(6)分的值别为1至7
For k = 2 To 5
s = s + a(k)
Next '循环给s赋值k=2时s=s+a(2)=0+3=3,k=3时s=s+a(3)=3+4=7,k=4时s=s+a(4)=7+5=12,k=5时

private sub command1_click(),
a=array(1,2,3,4,5,6,7)
A1=1，a2=2 ,a3=3,a4=4,a5=5,a6=6,a7=7

,for k=2 to 5
,s=s +a(k),
next
s=0+2
s=2+3
s=5+4
s=9+5

,print s
打印14
,end sub