Question

Vb中提示缺少数组

Private Sub Form_Click()
Dim d As Integer, s As Integer
Cls
s = 1
d = 7
Print "第"; d; "天的桃子数为："; s
Do While d > 1
d = d - 1
s = s(s + 1) * 2
Print "第"; d; "天的桃子为："; s
Loop
End Sub

哪里错了啊，求好心人答，感谢感谢

Answer 1

s = s(s + 1) * 2
第2个s什么意思，除非是个函数或数组才可这样，可能是多余的吧。