基于年龄的“选择案例”

Posted 2023-05-07

【中文标题】基于年龄的“选择案例”

【英文标题】：Age based "Select Case"

【发布时间】：2014-11-18 02:45:27

【问题描述】：

所以我尝试编写一个按钮来读取用户输入的年龄并确定他们收到的价格。以下是我尝试这样做但没有运气的方法。

 Private Sub btnSelect_Click(sender As Object, e As EventArgs) Handles btnSelect.Click
    Dim txtage As String
    txtage = lblPrice.Text.ToUpper
    Select Case txtage
        Case CStr(0) To CStr(3)
            lblPrice.Text = "0"
        Case CStr(4) To CStr(63)
            lblPrice.Text = "9"

    End Select

End Sub

我有 选项显式打开， 选项严格打开， 选项推断关闭，

我在这里遗漏了什么或做错了什么？请，谢谢。

【问题讨论】：

看起来像是从标签而不是文本框读取？？？

因为看起来你在一个范围之后，整数比字符串更有意义。

我试图从 txtAge 读取并显示价格 lblPrice

当我切换到整数时，选项 strict 会捕获错误

【参考方案1】：

然后从正确的位置获取值，并使用Integer.TryParse 进行一些代码保护，因为您从字符串中读取。

Private Sub btnSelect_Click(sender As Object, e As EventArgs) Handles btnSelect.Click
  Dim age As Integer
  If Integer.TryParse(txtage.Text, age) Then
    Select Case age
      Case 0 To 3
        lblPrice.Text = "0"
      Case 4 To 63
        lblPrice.Text = "9"
    End Select
  End If
End Sub