实在搞不懂第9行和第10行S为什么要-1和-2

[狼二羊]

Private Sub Command1_Click()
Text1.Text = ""
Dim S As Long, i As Long
Dim A()
Do
    ReDim Preserve A(S)
    A(S) = InputBox("dsfsd")
    S = S + 1
Loop Until A(S - 1) = ""
For i = 0 To S - 2
    Text1.Text = Text1.Text & "第" & CStr(i + 1) & "个是:" & CStr(A(i)) & ""
    Next i
    Erase A
End Sub

[舉杯邀明月]

第6行已经决定了数组的“上界值”是 S。 而在第8行已经把S的值+1了，所以第9行就得“S-1”；如果用A(S)来判断是会“下标越界”的。 在第10行的“For循环”中，“S-1”的那一个是“输入结束”的元素，是空串、是“无效元素”，因此循环的“终值”是 S-2 。

[赵4老师]

“多一少一”问题占程序员常犯错误的10%以上！ 避免“多一少一”问题的方法之一是将比如<10甚至<5的数代入程序片断，掰手指头心算验证一下程序到底应该写为 x、x-1、x+1中的哪个？ <、<=、==、>、>=中的哪个？