23
Ноябрь
2009
Ввод произвольной цифры и вывод её названия
Ввод произвольной цифры и вывод её названия.
dim digit as String digit = Me.Text1.Text Select Case digit Case is = "0" MsgBox("Ноль") Case is = "1" MsgBox("Один") Case is = "2" MsgBox("Два") Case is = "3" MsgBox("Три") Case is = "4" MsgBox("Четыре") Case is = "5" MsgBox("Пять") Case is = "6" MsgBox("Шесть") Case is = "7" MsgBox("Семь") Case is = "8" MsgBox("Восемь") Case is = "9" MsgBox("Девять") Case Else MsgBox("Ошибочный ввод!") End Select