请问哪位高手知道以下语句的结果为什么等于45？请详细指点指点！谢谢了！急！急！！急！！！

来源：百度知道 编辑：UC知道 时间：2024/06/17 11:29:43
Private Sub Command1_Click()
Dim s, j As Long
s = 0
For j = 1 To 30
If Int(j / 5) = j / 5 Then
s = s + j
j = j + 6
End If
Next
MsgBox s
End Sub
请问：其结果为什么为45？

If Int(j / 5) = j / 5 Then
这个条件可以理解为当j是5的倍数时..

所以,循环j从1到30时,
第1次,当j=5时,满足条件
此时s=s+5==0+5=5
j=j+6=5+6=11

继续循环
第2次,当j=15时,满足条件
此时s=s+15==5+15=20
j=j+6=15+6=21

继续循环
第3次,当j=25时,满足条件
此时s=s+25==20+25=45
j=j+6=25+6=31

然后因为超过循环限制30,所以结束循环

msgbox s的值为45