Преобразовать число в текстовое представление

18.06.2012, 15:59. **Показов** 4087. **Ответов** 2

Студворк — интернет-сервис помощи студентам

Не могу понять , что и куда нужно добавить , при запуске данного макроса он показывает только целые числа и формате (20 , 9 и т.д.) Но должен выдавать и остальные . Пример : 45 , 25 и т.д.
Вот само задание : При разработке функции учтите следующее :
а)в любом месте функции можно организовать выход из процедуры по команде Exit Function.
б) числа в диапазоне от 11 до 19 имеют нестандартное текстовое представление.
в) для обработки числе > 19 , следует выделить старший разряд ( с помощью оператора деления нацело на 10 ) и младший разряд ( с помощью вычисления остатка от деления на 10). Для каждого разряда отдельно сформировать текстовое представление ( с помощью команд Select Case) а затем соединить их в одно строковое выражение ( с помощью оператора конкатенации)

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Function Число2(N)
'функция для записи прописью целого числа N от 0 до 99
'Исключим число , не попадающее в заданный диапазон
If N < 0 Or N > 99 Then Число2 = "Неверное число": Exit Function
'Исключим число , не являющееся целым. Для этого используем
'функцию Int, вычислящую целую часть числа
If N - Int(N) <> 0 Then Число2 = "Неверное число": Exit Function
Select Case N
Case 0: Число2 = "ноль"
Case 1: Число2 = "один"
Case 2: Число2 = "два"
Case 3: Число2 = "три"
Case 4: Число2 = "четыре"
Case 5: Число2 = "пять"
Case 6: Число2 = "шесть"
Case 7: Число2 = "семь"
Case 8: Число2 = "восемь"
Case 9: Число2 = "девять"
Case 10: Число2 = "десять"
Case 11: Число2 = "одиннадцать"
Case 12: Число2 = "двенадцать"
Case 13: Число2 = "тринадцать"
Case 14: Число2 = "четырнадцать"
Case 15: Число2 = "пятнадцать"
Case 16: Число2 = "шеснадцать"
Case 17: Число2 = "семнадцать"
Case 18: Число2 = "восемнадцать"
Case 19: Число2 = "девятнадцать"
Case 20: Число2 = "двадцать"
Case 30: Число2 = "тридцать"
Case 40: Число2 = " сорок"
Case 50: Число2 = "пятдесят"
Case 60: Число2 = "шестьесят"
Case 70: Число2 = "семьдесят"
Case 80: Число2 = "восемьдесят"
Case 90: Число2 = "девянносто"
End Select
End Function

Комментарий модератора

Программа в Visual Basic - вопрос ни о чем!
Даём темам внятные заголовки!
Читаем правила.

SoftIce · 18.06.2012, 16:56

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
Option Explicit
 
Private Sub Command1_Click()
        Dim N As Single
        N = InputBox("N =", , 25)
        MsgBox Число2(N)
End Sub
 
Function Число2(ByVal N As Single) As String
        'функция для записи прописью целого числа N от 0 до 99
Dim Nd As Integer, Ne As Integer
        'Исключим число , не попадающее в заданный диапазон
If N < 0 Or N > 99 Then Число2 = "Неверное число": Exit Function
        'Исключим число , не являющееся целым. Для этого используем
        'функцию Int, вычислящую целую часть числа
If N - Int(N) <> 0 Then Число2 = "Неверное число": Exit Function
 
If N > 20 And N Mod 10 <> 0 Then
        Ne = N Mod 10: Nd = N - Ne
        Число2 = Число2(Nd) & " " & Число2(Ne)
End If
  
Select Case N
       Case 0: Число2 = "ноль"
       Case 1: Число2 = "один"
       Case 2: Число2 = "два"
       Case 3: Число2 = "три"
       Case 4: Число2 = "четыре"
       Case 5: Число2 = "пять"
       Case 6: Число2 = "шесть"
       Case 7: Число2 = "семь"
       Case 8: Число2 = "восемь"
       Case 9: Число2 = "девять"
       Case 10: Число2 = "десять"
       Case 11: Число2 = "одиннадцать"
       Case 12: Число2 = "двенадцать"
       Case 13: Число2 = "тринадцать"
       Case 14: Число2 = "четырнадцать"
       Case 15: Число2 = "пятнадцать"
       Case 16: Число2 = "шеснадцать"
       Case 17: Число2 = "семнадцать"
       Case 18: Число2 = "восемнадцать"
       Case 19: Число2 = "девятнадцать"
       Case 20: Число2 = "двадцать"
       Case 30: Число2 = "тридцать"
       Case 40: Число2 = " сорок"
       Case 50: Число2 = "пятдесят"
       Case 60: Число2 = "шестьесят"
       Case 70: Число2 = "семьдесят"
       Case 80: Число2 = "восемьдесят"
       Case 90: Число2 = "девянносто"
End Select
 
End Function

18.06.2012, 17:06

Большое спасибо , программа работает верно )

Новые блоги и статьи Все статьи Все блоги /
Изучаю kubernetes lagorue 13.01.2026 А пригодятся-ли мне знания kubernetes в России?	Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .
Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .	Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114	Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .

Joerex
	18.06.2012, 17:06
	Большое спасибо , программа работает верно )