Question

vb高手帮我解释下这道题

Private Sub p ()
static s as integer
dim i as integer
for i=1 to10 step 2
s=s+i
next i
print s
end sub

Private sub command1_click()
call p
end sub

S刚开始没有赋值 S=0
当i 为 1 3 5 7 9
S 为 0 3 8 15 24
i=11时超过10跳出循环。。。
所以最后应该是24啊。。。为什么答案是25..........

Answer 1

Private Sub p()
Static s As Integer
Dim i As Integer
For i = 1 To 10 Step 2
s = s + i
Next i
Print s
End Sub

Private Sub command1_click()
Call p
End Sub

'过程P如下
'Static s As Integer ，s=0
'For i = 1 To 10 Step 2共计循环5次
'第一次i=1，s=s+i后s=1
'第二次i=3，s=s+i后s=4
'第三次i=5，s=s+i后s=9
'第四次i=7，s=s+i后s=16
'第五次i=9，s=s+i后s=25
'第六次i=11退出循环
's=25