ESTRUCTURA SELECTIVA IF THEN Y SELECT CASE

ESTRUCTURA SELECTIVA IF THEN

If NUM > 0 Then
  MsgBox "POSITIVO"

  ElseIf NUM = 0 Then
  MsgBox "NEUTRO"

  Else
  MsgBox "NEGATIVO"

  End If



ESTRUCTURA SELECTIVA SELECT CASE

Private Sub Combo1_Click()

Select Case Combo1.Text

Case "CHEVROLET"
Combo2.Clear
Combo2.AddItem "SPARK"
Combo2.AddItem "OPTRA"
Combo2.AddItem "SAIL"
Combo2.AddItem "AVEO"

Case "HYUNDAI"
Combo2.Clear
Combo2.AddItem "TUCSON"
Combo2.AddItem "SANTA FE"
Combo2.AddItem "ACCENT"

Case "MAZDA"
Combo2.Clear
Combo2.AddItem "ALLEGRO"
Combo2.AddItem "BT50"

End Select

End Sub