步长问题
Private Sub Command1_Click()
Dim a()
a = Array(7, 8, 9, 10)
For k = 0 To 2 Step 0.5
s = s + a(k)
Next k
Print s
End Sub
把步长改成0.2,0.1或0.8等等为什么不能运行到K=2?
Private Sub Command1_Click()
Dim a()
a = Array(7, 8, 9, 10)
For k = 0 To 2 Step 0.5
s = s + a(k)
Next k
Print s
End Sub
把步长改成0.2,0.1或0.8等等为什么不能运行到K=2?
当步长是0.2,0.1的时候可以运行到k=2,
而当步长是0.8的时候,当k=2.4>2退出循环。0.2 s=88
0.1 s=159
0.8 s=24