Question

Private Sub Command1_Click() 在问个问题

Private Sub Command1_Click()
Dim a
a = Array(1, 2, 3, 4, 5, 6, 7)
For k = 2 To 5
s = s + a(k)
Next
Print s
End Sub
S是变体 如果变成 s*a(k)为什么=0？解释一下

Answer 1

做循环体内连加和连乘的时候要注意初始化累加和累乘变量！
S是变体，会自动匹配跟他累加的值，a是数值数组，所以S的初值是0
在累加的时候，S初始化值也要是0，所以不会影响最终累加结果

如果是乘法，S必须要在循环体外面赋初始化值为1，不然你乘的结果都是0
定义一个S变量 dim S as long
s=1
a = Array(1, 2, 3, 4, 5, 6, 7)
For k = 2 To 5
s = s * a(k)
Next
Print s
End Sub

S结果为：360

Answer 2

S是变体如果变成 s*a(k)为什么=0？
a(k)是个数值，S是变体，那么在进行乘法运算时，s会按照数值型参与运算。s之前没有赋值，则取其默认值0，s*a(k)=0 * a(k)= 0。循环进行多少次，结果都是0。要得到一个乘积，请在进入循环前，给s赋值为1。

Answer 3

s初值是0 无论*什么，都一直是0

Answer 4

数值型变量初始值为0

追问

哦如果s+a(k)等于几呢

追答

0+a(k)
k如果等于2 就是0+a(2)=0+2=2

追问

不对，k= 2 to 5
s=s+a(k)=18
你会吗？你要是不会就先别说了

追答

。。无语。。
for k=2 to 5 这个是累加 循环~~ 而我刚才说 如果K=2的话 就是K只有一个值

for k = 2 to 5 循环 4次 分别让K=2，=3,=4，=5
s初始值为0 初始值的意思就是第一次使用的时候的值
当K=2 S=0+a(2)=0+2=2 K=2 s值已经改变成2
当K=3时 s=2+a(3) 依次类推 懂不

追问

k=2 s=s+a(k)=3 知道吗，你去VB上试试
我刚才不应该说那句话，对不起啊，我也是有点急了，别在意大家都是讨论问题的！

追答

你在代码最上面加一句 Option Base 1

追问

不能加option base 1 ，再说我数组就是从1开始的

追答

我说的是数组下标从1开始
当K=2 S=0+a(2) 一样的 只不过a(2)数值改成3而已

a = Array(1, 2, 3, 4, 5, 6, 7)
a(0)=1
a(1)=2
a(2)=3
a(3)=4
a(4)=5
a(5)=6
a(6)=7
K=2 s=s+a(2) s=0+3
K=3 s=s+a(3) s=3+4
K=4 s=s+a(4) s=7+5
K=5 s=s+a(5) s=12+6
print 18