Как вывести все оставшиеся комбинации на один 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д