vb.net - 年齢別「セレクトケース」

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

Option Explicit On、Option Strict On、Option Infer Off、

ここで何が欠けているか、間違っていますか? よろしくお願いします。

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