Нужно написать парочку решений - VB
Формулировка задачи:
Кто чем может помогите
Решение задачи: «Нужно написать парочку решений»
textual
Листинг программы
Option Explicit
Private Sub Комманда1_Click()
Dim TX
Dim KOD As String
KOD = InputBox("Введите код города", "Справосник кодов городов", "05632")
Select Case KOD
Case "044"
TX = "Киев"
Case "05632"
TX = "Павлоград"
Case "05633"
TX = "Першотравенск"
Case Else
TX = "Городов с таким кодом не существует"
End Select
MsgBox TX, 64, "Город"
End Sub