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 |