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

18.06.2012, 15:59. **Показов** 4106. **Ответов** 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

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

Новые блоги и статьи Все статьи Все блоги /
Доступность команды формы по условию Maks 07.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .	Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .
Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .	Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .

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