VB.NET中如何将ListBox内的数字作为变量使用？

你的代码核心问题是ListBox的SelectedItem是Object类型，不能直接和数值比较，需要先安全转换为数值类型，同时修正条件判断的细节：

1. 安全转换ListBox选中项为数值 #

ListBox选中项返回的是Object，必须先转换成数字类型才能进行比较。推荐用Integer.TryParse（如果年龄是整数）来做安全转换，避免转换失败报错：

Dim selectedAge As Integer
' 尝试把选中项转成整数，成功才继续后续逻辑
If Integer.TryParse(lstAge.SelectedItem?.ToString(), selectedAge) Then
    ' 这里写判断逻辑
End If

?.是为空判断，避免没有选中任何项时出现空引用错误。

2. 修正完整逻辑代码 #

结合你的需求（年龄超过特定值且无违章时费率为空），修正后的代码如下：

' 处理违章输入，去除空格并转小写，避免大小写/空格影响判断
Dim Ticket As String = txtYorNo.Text.Trim().ToLower()
' 用可空Double类型，支持设置费率为空
Dim Rate As Double? = 0

Dim selectedAge As Integer
If Integer.TryParse(lstAge.SelectedItem?.ToString(), selectedAge) Then
    ' 用AndAlso做短路判断，比And更高效
    If selectedAge > 30 AndAlso Ticket = "n" Then
        Rate = Nothing ' 设置费率为空
    Else
        ' 其他情况执行原逻辑
        Rate += 30
    End If
Else
    ' 处理无效选中项的情况
    MessageBox.Show("请选择有效的年龄选项")
End If

关键注意点 #

• 用SelectedItem而非SelectedItems：后者是多选集合，单个选中项用SelectedItem
• 避免强制转换：比如CInt(lstAge.SelectedItem)，如果选中项不是数字会直接报错，TryParse更安全
• 输入处理：对txtYorNo的内容做Trim()和ToLower()，兼容用户输入"N"或带空格的情况
• 可空类型：用Double?来实现“费率为空”的需求，普通Double不能设为Nothing

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