Возраст «Select Case»

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, Опция 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