VBA组合生成脚本求和判断异常，部分组合缺失求助

核心原因 #

你遇到的是浮点数精度误差导致的判断失效：VBA中的Double/Single类型是二进制浮点数，像0.1、0.9这类十进制小数无法被精确存储，看似等于0.1的值实际可能是0.10000000000000001或0.09999999999999999，求和后会出现类似0.999999999999999或1.000000000000001的结果，导致a2 + a3 = 1的判断返回False。

解决方法 #

方法1：使用定点小数类型Currency #

将存储百分比的变量声明为Currency类型，它采用十进制定点存储，能精确表示百分比这类小数：

Dim a2 As Currency, a3 As Currency
' 赋值时直接使用百分比数值，比如0.1、1.0
a2 = 0.1
a3 = 0.9
If (a2 + a3 = 1) Then
    ' 执行逻辑
End If

方法2：添加误差范围判断 #

如果不想修改变量类型，可以通过判断求和结果与1的差值是否小于一个极小的阈值（比如1e-8）来规避精度问题：

If Abs(a2 + a3 - 1) < 0.00000001 Then
    ' 视为求和等于1，执行逻辑
End If

方法3：转换为整数运算 #

将百分比乘以100转为整数（比如10%变成10，100%变成100），用整数加法判断是否等于100，完全避免浮点数误差：

Dim a2_int As Integer, a3_int As Integer
a2_int = 10 ' 代表10%
a3_int = 90 ' 代表90%
If (a2_int + a3_int = 100) Then
    ' 执行逻辑
End If

验证建议 #

修改后重新测试缺失的组合：

• 第一组输入验证0%/100%、10%/90%是否生成
• 第二组输入验证50%/50%是否生成

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