Студопедия
Случайная страница | ТОМ-1 | ТОМ-2 | ТОМ-3
АрхитектураБиологияГеографияДругоеИностранные языки
ИнформатикаИсторияКультураЛитератураМатематика
МедицинаМеханикаОбразованиеОхрана трудаПедагогика
ПолитикаПравоПрограммированиеПсихологияРелигия
СоциологияСпортСтроительствоФизикаФилософия
ФинансыХимияЭкологияЭкономикаЭлектроника

If c > 19 Then

digital = Int(c / 10)

Select Case digital

Case 2

word = "двадцять"

Case 3

word = "тридцять"

Case 4

word = "сорок"

Case 5

word = "п’ятдесят"

Case 6

word = "шістдесят"

Case 7

word = "сімдесят"

Case 8

word = "вісімдесят"

Case 9

word = "дев’яносто"

End Select

If word <> "" Then

If str <> "" Then

str = str + " " + word

Else

str = word

End If

End If

word = ""

c = c - digital * 10

End If

Select Case c

Case 1

word = "один"

Case 2

word = "два"

Case 3

word = "три"

Case 4

word = "чотири"

Case 5

word = "п’ять"

Case 6

word = "шість"

Case 7

word = "сім"

Case 8

word = "вісім"

Case 9

word = "дев’ять"

Case 10

word = "десять"

Case 11

word = "одинадцять"

Case 12

word = "дванадцять"

Case 13

word = "тринадцять"

Case 14

word = "чотирнадцять"

Case 15

word = "п’ятнадцять"

Case 16

word = "шістнадцять"

Case 17

word = "сімнадцять"

Case 18

word = "вісімнадцять"

Case 19

word = "дев’ятнадцять"

End Select

If (c <= 2) And ((gender = "w") Or (gender = "W")) Then

Select Case c

Case 1

word = "одна"

Case 2

word = "дві"

End Select

End If

If word <> "" Then

If str <> "" Then

str = str + " " + word

Else

str = word

End If

End If

Else


Дата добавления: 2015-07-17; просмотров: 26 | Нарушение авторских прав


<== предыдущая страница | следующая страница ==>
End Select| If c < 1000000 Then

mybiblioteka.su - 2015-2024 год. (0.006 сек.)