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