Vba select case
Автор Артём Максеев задал вопрос в разделе Другие языки и технологии
Microsoft Visual Basic 6, оператор Select Case и получил лучший ответ
Ответ от Никита Сунгуров[гуру]
Вот, пашет: Private Sub Command1_Click() Dim Reka As String, More As String Reka = LCase(Text1.Text) Select Case Reka Case "волга" More = "Каспийское" Case "днепр" More = "Черное" Case "лена " More = "Лаптевых" Case "нарва" More = "Балтийское" Case "дон" More = "Азовское" Case Else More = "Такой реки в базе нет" End Select MsgBox More End Sub Скорее всего, ошибка из-за того, что "днепр" не равно "Днепр". Исправлено. Вводи хоть "ДнЕПр"))
Ответ от 22 ответа[гуру]
Привет! Вот подборка тем с похожими вопросами и ответами на Ваш вопрос: Microsoft Visual Basic 6, оператор Select Case