Ввод произвольной цифры и вывод её названия
2009-11-23 07:00 Александр
Ввод произвольной цифры и вывод её названия.
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