Нужно написать парочку решений - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

13   голосов , оценка 3.923 из 5
Похожие ответы