我vb新手 这道题实际循环了几次 为什么会这样啊

Question

Private Sub Command1_Click()
Dim i As Integer, js As Integer
For i = 2.5 To 8.51 Step 1.5
Print i
js = js + 1
Next i

Print "循环共执行"; js; "次"
End Sub

Answer 1

你这程序过行一下就知道了. i=2 4 6 8，一共四次循环
为什麼会这样，我们来看一下i的值就知道了。因为你定义了i为integer，所以在计算的时候，如果i是小数，会自动转换类型，在这里用到的是 Cint函数，四舍五入是没错，但当你的小数部分刚好是 .5的时候，它会转为最接近的偶数。
i初始是2.5帮你转换成2 第一次
循环结束时，+1.5 变3.5转成4 第二次
下一次，+1.5变5.5 转换成6 第三次
再下次,+1.5变7.5转换成8 第四次
再下次,+1.5变9.5，超了
所以一共是四次