Форум программистов, компьютерный форум, киберфорум
Наши страницы
Visual Basic
Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 10, средняя оценка - 4.90
Vampir2049
1 / 1 / 0
Регистрация: 25.11.2010
Сообщений: 3
#1

Запись чисел прописью - VB

25.11.2010, 22:01. Просмотров 1447. Ответов 4
Метки нет (Все метки)

Объястните пжлст как это сделать , ну не только тупо код а еще и поясните что зачем идет ...... буду сильно благодарен
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.11.2010, 22:01
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Запись чисел прописью (VB):

Числа прописью в VB
Привет!! Ребята помогите чем можете. Мне надо сделать программу которая...

Сумма прописью
Привет всем! Подскажите мне пожалуйста, как можно реализовать на Visual Basic...

Вывести число прописью
С клавиатуры вводится двузначное число. Вывести на на форму в словесной записи....

Число процентов прописью
Ребята подскажите где можно посмотреть как в VB6 прописать прописью сумму в...

Сумма Прописью на армянском
Сумма Прописью Друзья нашел вот такой макрос Мне нужно чтобы писало на...

программа на возраст: число прописью
помогите решить задачу! в текстовое поле введено натурально число n (n<0),...

4
gaw
6632 / 1499 / 169
Регистрация: 09.01.2010
Сообщений: 4,272
25.11.2010, 22:53 #2
генератор цифр в слова --- попробуйте конкретнее поставить вопрос
0
Vampir2049
1 / 1 / 0
Регистрация: 25.11.2010
Сообщений: 3
25.11.2010, 23:22  [ТС] #3
ну вот нам дано число допустим 1243 и программа должна ег опредставить в таком виде "тысяча двести сорок три"......я нашел коды но они что непонятные для меня
0
gaw
6632 / 1499 / 169
Регистрация: 09.01.2010
Сообщений: 4,272
25.11.2010, 23:33 #4
ааа, числа прописью, такие темы уже поднимались
выложи код и кто-то объяснит
0
Vampir2049
1 / 1 / 0
Регистрация: 25.11.2010
Сообщений: 3
25.11.2010, 23:41  [ТС] #5
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
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
Dim Сумма As Currency, Остаток As Currency
    Function Десятки (Разряд As Long) As String
    Select Case Разряд
    Case 2
    Десятки = "двадцать "
    Case 3
    Десятки = "тридцать "
    Case 4
    Десятки = "сорок "
    Case 5
    Десятки = "пятьдесят "
    Case 6
    Десятки = "шестьдесят "
    Case 7
    Десятки = "семьдесят "
    Case 8
    Десятки = "восемьдесят "
    Case 9
    Десятки = "девяносто "
    End Select
    End Function
    Function Единицы (Разряд As Long, Род As String) As
    String
    Select Case Разряд
    Case 1
    If Род = "Мужской" Then
    Единицы = "один "
    Else
    Единицы = "одна "
    End If
    Case 2
    If Род = "Мужской" Then
    Единицы = "два "
    Else
    Единицы = "две "
    End If
    Case 3
    Единицы = "три "
    Case 4
    Единицы = "четыре "
    Case 5
    Единицы = "пять "
    Case 6
    Единицы = "шесть "
    Case 7
    Единицы = "семь "
    Case 8
    Единицы = "восемь "
    Case 9
    Единицы = "девять "
    Case 10
    Единицы = "десять "
    Case 11
    Единицы = "одиннадцать "
    Case 12
    Единицы = "двенадцать "
    Case 13
    Единицы = "тринадцать "
    Case 14
    Единицы = "четырнадцать "
    Case 15
    Единицы = "пятнадцать "
    Case 16
    Единицы = "шестнадцать "
    Case 17
    Единицы = "семнадцать "
    Case 18
    Единицы = "восемнадцать "
    Case 19
    Единицы = "девятнадцать "
    End Select
    End Function
    Function Миллионы (Разряд As Long) As String
    If Разряд = 1 Then
    Миллионы = "миллион "
    ElseIf Разряд > 1 And Разряд < 5 Then
    Миллионы = "миллиона "
    Else
    Миллионы = "миллионов "
    End If
    End Function
    Function Рубли (Разряд As Long) As String
    If Разряд = 1 Then
    Рубли = "рубль"
    ElseIf Разряд > 1 And Разряд < 5 Then
    Рубли = "рубля"
    Else
    Рубли = "рублей"
    End If
    End Function
    Function Сотни (Разряд As Long) As String
    Select Case Разряд
    Case 1
    Сотни = "сто "
    Case 2
    Сотни = "двести "
    Case 3
    Сотни = "триста "
    Case 4
    Сотни = "четыреста "
    Case 5
    Сотни = "пятьсот "
    Case 6
    Сотни = "шестьсот "
    Case 7
    Сотни = "семьсот "
    Case 8
    Сотни = "восемьсот "
    Case 9
    Сотни = "девятьсот "
    End Select
    End Function
    Function СуммаПрописью (СуммаСчета As Double) As String
    ' Параметры: Используются глобальные параметры
    ' Сумма, Остаток и Подпись
    ' Назначение: Перевод СуммыСчета в строковую константу
    ' Возвращает: СуммуПрописью
    Dim Группа As Long, Разряд As Long, Длина As
    Integer
    Dim Пропись As String
    Dim cents As String
    Dim cent As Long
    cent = Format (CInt ( (СуммаСчета - Fix (СуммаСчета))
    * 100))
    Сумма = СуммаСчета
    If Сумма < CLng (Сумма) Then Сумма = Сумма - 1
    Остаток = Сумма
    Группа = Остаток \ 1000000
    If Группа <> 0 Then
    Разряд = Группа \ 100
    Пропись = Пропись & Сотни (Разряд)
    Остаток = Остаток - Разряд * 100 * 1000000
    Группа = Группа - Разряд * 100
    If Группа > 19 Then
    Разряд = Группа \ 10
    Пропись = Пропись & Десятки (Разряд)
    Остаток = Остаток - Разряд * 10 * 1000000
    Группа = Группа - Разряд * 10
    End If
    Разряд = Группа
    Пропись = Пропись & Единицы (Разряд, "Мужской")
    Остаток = Остаток - Разряд * 1000000
    Пропись = Пропись & Миллионы (Разряд)
    End If
    Группа = Остаток \ 1000
    If Группа <> 0 Then
    Разряд = Группа \ 100
    Пропись = Пропись & Сотни (Разряд)
    Остаток = Остаток - Разряд * 100 * 1000
    Группа = Группа - Разряд * 100
    If Группа > 19 Then
    Разряд = Группа \ 10
    Пропись = Пропись & Десятки (Разряд)
    Остаток = Остаток - Разряд * 10 * 1000
    Группа = Группа - Разряд * 10
    End If
    Разряд = Группа
    Пропись = Пропись & Единицы (Разряд, "Женский")
    Остаток = Остаток - Разряд * 1000
    Пропись = Пропись & Тысячи (Разряд)
    End If
    Группа = Остаток
    If Группа <> 0 Then
    Разряд = Группа \ 100
    Пропись = Пропись & Сотни (Разряд)
    Остаток = Остаток - Разряд * 100
    Группа = Группа - Разряд * 100
    If Группа > 19 Then
    Разряд = Группа \ 10
    Пропись = Пропись & Десятки (Разряд)
    Остаток = Остаток - Разряд * 10
    Группа = Группа - Разряд * 10
    End If
    Разряд = Группа
    Пропись = Пропись & Единицы (Разряд, "Мужской")
    Остаток = Остаток - Разряд
    Пропись = Пропись & Рубли (Разряд)
    End If
    Длина = Len (Пропись)
    If IsNull (Длина) Then
    Exit Function
    End If
    Пропись = UCase (Mid (Пропись, 1, 1)) &
    (Mid (Пропись, 2, Длина))
    If cent < 20 Then
    cents = Единицы (cent, "Женский")
    Else
    cents = Десятки (CInt (cent / 10))
    cents = cents & Единицы (CInt (cent - (CInt (cent /
    10) * 10)), "Женский")
    End If
    СуммаПрописью = Пропись & " " & cents & "коп."
    End Function
    Function Тысячи (Разряд As Long) As String
    If Разряд = 1 Then
    Тысячи = "тысяча "
    ElseIf Разряд > 1 And Разряд < 5 Then
    Тысячи = "тысячи "
    Else
    Тысячи = "тысяч "
    End If
    End Function
1
25.11.2010, 23:41
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.11.2010, 23:41
Привет! Вот еще темы с решениями:

Придумал ! написать число прописью с 60 знаками
до октодециллиона (с трудом можно выговорить :)) примерно такое же количество...

Среди чисел 1…n найти все такие, запись которых совпадает с последними цифрами их квадрата
Дано натуральное число n. Среди чисел 1…n найти все такие, запись которых...

Запись числа прописью
Доброго времени. Ищу надёжный алгоритм записи ЛЮБОГО числа прописью. Тоесть...

Запись числа прописью
Перевод числа из десятичной формы (&lt;255) в прописную Написать программу,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru