VBA For Loop提前停止

Question

我想通过循环100次并在a为101时停止然后转到下一行。但是，当到达101时，代码将停止并转到下一行。如果for循环是从1到10，则可以毫无问题地转到下一行，但是似乎大于10的任何内容都不会转到下一行。

Function fint(x As Double) As Double
Dim a As Double, b As Double, c As Double, d As Double, e As Double
Dim sum As Variant, sum1 As Variant, sum2 As Variant, sum3 As Variant
Dim group As Double, group1 As Double, group2 As Double

sum = 0
sum1 = 0
sum2 = 0
sum3 = 0

For a = 0 To 100

sum = sum + (x / 2) ^ (2 * a) / ((WorksheetFunction.Fact(a)) ^ 2 * (2 * a + 1))

Next a

group = -1 * (0.5772156649 * WorksheetFunction.Ln(x / 2)) * x * sum

fint = group

End Function