VB.NET实现重复累加数值至整数并统计累加次数

核心逻辑 #

• 初始化累加结果为0，计数为0
• 循环执行累加操作，每累加一次计数加1，同时检查当前结果是否为整数
• 注意处理浮点数精度问题：直接判断结果是否等于其整数部分可能因浮点数误差失效，需用近似判断（比如小数部分绝对值小于极小值）

代码实现 #

Module Module1
    Sub Main()
        ' 可替换为你需要测试的目标数值
        Dim targetValue As Double = 4.25
        Dim currentSum As Double = 0
        Dim count As Integer = 0

        Do
            currentSum += targetValue
            count += 1
            ' 通过判断结果与最近整数的差值是否极小，规避浮点数精度误差
        Loop While Math.Abs(currentSum - Math.Round(currentSum)) > 1e-9

        Console.WriteLine($"累加次数：{count}")
        Console.WriteLine($"最终整数结果：{Math.Round(currentSum)}")
    End Sub
End Module

代码说明 #

• targetValue：设置你需要重复累加的初始数值，比如示例中的4.25
• currentSum：存储每次累加后的结果
• count：记录累加的总次数
• Do...Loop While循环：每次完成累加和计数后，检查当前结果是否接近整数（差值小于1e-9即可认为是整数），满足条件则退出循环
• 最终输出累加次数和对应的整数结果

测试示例 #

当targetValue = 4.25时，循环执行4次后，currentSum为17.0，符合整数条件，输出累加次数4，最终结果17。

内容的提问来源于stack exchange，提问作者Scacs22