Question

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

 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

我有选项明确，选项严格打开，选项推断关闭，

我在这里错过了什么或做错了什么？拜托，谢谢你。

Answer 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

基于年龄的“选择案例”

1 个答案: