С 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
|
|
|
|
