Как вывести все оставшиеся комбинации на один msgBox - VB

Узнай цену своей работы

Формулировка задачи:

а остальные комбинации комбо должны на мсджБокс уходить

Решение задачи: «Как вывести все оставшиеся комбинации на один msgBox»

textual
Листинг программы
Option Explicit
 
Private Sub Command1_Click()
If Combo2.Text = "Комедия" Then
  If Combo1.Text = "США" Then
    If Combo3.Text = "2009" Then
      комедии_сша_2009.Show 1
    ElseIf Combo3.Text = "2012" Then
      комедии_сша_2012.Show 1
    ElseIf Combo3.Text = "2013" Then
      комедии_сша_2013.Show 1
    ElseIf Combo3.Text = "" Or Combo3.Text = "год" Then
      КОМЕДИИ_сша.Show 1
    Else
      aytn.Show 1
    End If
  ElseIf Combo1.Text = "Германия" Then
    If Combo3.Text = "1997" Then
      комедия_германия_1997.Show 1
    ElseIf Combo3.Text = "2009" Then
      комедия_германия_2009.Show 1
    ElseIf Combo3.Text = "" Or Combo3.Text = "год" Then
      комедия_германия.Show 1
    Else
      aytn.Show 1
    End If
  ElseIf Combo1.Text = "Россия" Then
    If Combo3.Text = "1971" Then
      комедии_россия_1971.Show 1
    ElseIf Combo3.Text = "2010" Then
      комедии_россия_2010.Show 1
    ElseIf Combo3.Text = "" Or Combo3.Text = "год" Then
      комедии_россия.Show 1
    Else
      aytn.Show 1
    End If
  ElseIf Combo1.Text = "" Or Combo1.Text = "страна" Then
    комедии.Show 1
  Else
    aytn.Show 1
  End If
ElseIf Combo2.Text = "Боевик" Then
  'по аналогии с комедиями
ElseIf Combo2.Text = "Приключения" Then
  'по аналогии с комедиями
ElseIf Combo2.Text = "Фантастика" Then
  'по аналогии с комедиями
Else
  aytn.Show 1
End If
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

12   голосов , оценка 4 из 5
Похожие ответы