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


У нас один комментарий на запись “Ввод произвольной цифры и вывод её названия”

Почему бы Вам не высказать свое мнение! Позвольте нам узнать, что Вы думаете...

  1. 1 On 25.11.2009, crystalbit said:

    Проще сделать массив из названий и брать по индексу, и там уже MsgBox(массив(цифра))

Оставить комментарий

Я не робот.