Новые сообщения · Правила  
  • Страница 1 из 1
  • 1
Помогите дописать код
С Select Case я вроде разобрался,вроде работает, но я хз как сделать вывод данных о площади и населении. Это через MsgBox или как?
Помогите плиз!

Private Sub Command1_Click()
Dim Area As Single, Population As Single
City$ = InputBox("Киев, Полтава, Умань, Кременчуг, Миргород", "Введите название грода", "Киев")
Select Case City$
Case "Киев"
Area = 839: Population = 2849
Case "Полтава"
Area = 112.5: Population = 296
Case "Умань"
Area = 44.87: Population = 86.9
Case "Кременчуг"
Area = 96: Population = 228
Case "Миргород"
Area = 30: Population = 42.7
Case Else
MsgBox "", vbCritical, "Нет такого города в базе!"
Exit Sub
End Select

 
End Sub
1 | Автор: Vexel | 2014-01-04, 00:04   |  Репутация: [ + 0 ]
  • Страница 1 из 1
  • 1
Поиск: