ошибка в if if в vb.net 2010

Question

программа выполняет первую часть инструкции if для всех (тип) и не принимает других возможностей. код;

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 

    Dim cost As Integer 
    Dim total As Integer 
    Dim type As String 

    type = ComboBox1.Text 
    cost = CInt(TextBox3.Text) 
    total = TextBox1.Text 

    If type = "A" And (cost >= 5000 and cost <= 10000) Then 
     TextBox5.Text = (total - ((total * 30)/100)) 
     Label7.Text = "30%" 
    ElseIf type = "A" And (cost >= 3000 and cost <= 4000) Then 
     TextBox5.Text = (total - ((total * 20)/100)) 
     Label7.Text = "20%" 
     Exit Sub 
    ElseIf (type = "B" And (4000 >= cost <= 6000)) Then 
     TextBox5.Text = (total - (total * 10/100)) 
     Label7.Text = "10%" 
    ElseIf (type = "B" And (1000 >= cost <= 4000)) Then 
     TextBox5.Text = (total - (total * 5/100)) 
     Label7.Text = "5%" 
     Exit Sub 
    ElseIf (type = "C" And (3000 >= cost <= 5000)) Then 
     TextBox5.Text = (total - (total * 3/100)) 
     Label7.Text = "3%" 
    ElseIf (type = "C" And (1000 >= cost <= 3000)) Then 
     TextBox5.Text = (total - (total * 2/100)) 
     Label7.Text = "2%" 

    End If 
End Sub 

я надеюсь найти ответ на эту проблему ..

Answer 1

Причина это не работает, потому что вы присваиваете переменной типа к ComboBox.Text. Свойство Text - это текст, связанный с элементом управления, а не выделенный текст.
Чтобы получить выделенный текст, Вы должны получить доступ к свойству SelectedText:

type = ComboBox1.SelectedText 

Кроме того, я бы рекомендовал использовать стандартное соглашение об именах для элементов пользовательского интерфейса, который носит описательный характер. например. txtCost, lblPrice, cbType (для комбинированных ящиков)