VB中如何将字符串转数值、拆分后反转符号并解决空引用错误

• 空引用的直接触发点：代码中仅声明了Decimal类型的数组deci，没有给数组分配实际存储空间。VB环境下，如果只写Dim deci() As Decimal不指定数组长度、不完成初始化，数组对象默认是Nothing，后续直接通过索引访问deci(z)赋值时，就会抛出空引用异常。
• 代码冗余问题：符号反转的两个判断分支逻辑完全重复，不管数值是正还是负，执行的都是乘-1的操作，完全没必要分开判断。
• 潜在格式偏差：原字符串拆分后，每个分隔出的元素都带前置空格，虽然当前Val转换能兼容这类字符，但会增加异常场景下的转换风险。

' 拆分原始输入字符串
Dim splited As String() = mystring.Split(","c)
' 显式指定数组最大索引为2，对应总长度3个元素，从根源上避免空引用
Dim deci(2) As Decimal

For z = 0 To 2
    ' 去除拆分后元素的前后多余空格，减少转换过程的字符干扰
    Dim trimmedItem = splited(z).Trim()
    deci(z) = CDec(Val(trimmedItem))
    ' 直接反转符号：正值转负、负值转正、0值乘-1后保持不变，完全符合需求
    deci(z) *= -1
Next

' 按原有格式拼接输出，统一保留7位小数，匹配示例的输出格式要求
Dim resultBuilder As New System.Text.StringBuilder()
For z = 0 To deci.Length - 1
    If z > 0 Then
        resultBuilder.Append(", ")
    End If
    resultBuilder.Append(deci(z).ToString("0.0000000"))
Next
Dim finalResult As String = resultBuilder.ToString()

• VB.NET数组声明规则：写Dim 数组名(最大索引) As 数据类型时，运行时会自动完成数组初始化、分配对应长度的内存空间。比如Dim deci(2) As Decimal会创建长度为3的数组，刚好覆盖索引0、1、2的三个元素，从根源上杜绝空引用问题。
• 符号反转逻辑可以完全简化：不管原始值是正、负还是0，乘以-1的计算结果都完全匹配需求，不需要额外写分支判断正负，减少冗余代码。
• 输出格式校准：因为原始样例的数值都是固定7位小数的格式，拼接结果时要通过格式化字符串统一输出，避免出现比如0.22被转成"-0.22"而不是"-0.2200000"的格式偏差。

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