| Вопрос: подбор окончаний слов в Visual Basic.NET | Добавлено: 09.11.06 13:47 |
Автор вопроса:  Developer | Web-сайт: livefun.narod.ru
|
|
у меня проблема - не могу написать код, чтобы программа правильно подбирала окончания слова в зависимости от результата.
Например, чтобы выдавала сообщение не "вашей матери было 61 лет", а "вашей матери был 61 год". У кого есть исходники - киньте, пожалуйста, на мыло [email]stosman@narod.ru[/email] [url=http://stosman.narod.ru/Programming/VBNET/My/Projects/forSchool/DataRozhdeniya/dataRozhd12.zip]А здесь, собственно, находится сам проект[/url], вы можете переделать его и прислать мне на E-mail. Заранее благодарен! |
| Ответы | Всего ответов: 6 |
|
Номер ответа: 1 Автор ответа:  Sacred Phoenix ICQ: 304238252 Вопросов: 52 Ответов: 927 |
Профиль | | #1 | Добавлено: 09.11.06 15:08 |
| детская задача... | ||
|
Номер ответа: 2 Автор ответа: Developer Вопросов: 1 Ответов: 2 |
Web-сайт: Профиль | | #2 | Добавлено: 09.11.06 15:17 |
| Если детская - напиши как! | ||
|
Номер ответа: 3 Автор ответа: Sacred PhoenixICQ: 304238252 Вопросов: 52 Ответов: 927 |
Профиль | | #3 | Добавлено: 09.11.06 18:30 |
|
Если детская - напиши как!
:\ Private Const Age As Byte = 61
Private Sub Form_Load() Call MsgBox("Вашей матери было " & CStr(Age) & ChooseWord(Age, " лет", " год", " года"  & "."
End Sub Private Function ChooseWord(ByVal X As Long, ByVal w1 As String, ByVal w2 As String, ByVal w3 As String) As String Dim D As Byte, Q As Byte  = (X Mod 100) \ 10
Q = X Mod 10 If (D = 1 Or Q = 0 Or Q >= 5) Then ChooseWord = w1 ElseIf (Q = 1) Then ChooseWord = w2 Else ChooseWord = w3 End If End Function |
||
|
Номер ответа: 4 Автор ответа: Sacred PhoenixICQ: 304238252 Вопросов: 52 Ответов: 927 |
Профиль | | #4 | Добавлено: 09.11.06 18:31 |
| перевести под .NET, надеюсь, труда не составит | ||
|
Номер ответа: 5 Автор ответа: Sacred PhoenixICQ: 304238252 Вопросов: 52 Ответов: 927 |
Профиль | | #5 | Добавлено: 09.11.06 18:32 |
|
сорри,
Call MsgBox("Вашей матери " & ChooseWord(Age, "было ", "был ", "было "
& CStr(Age) & ChooseWord(Age, " лет", " год", " года" & "." |
||
|
Номер ответа: 6 Автор ответа: DeveloperВопросов: 1 Ответов: 2 |
Web-сайт: Профиль | | #6 | Добавлено: 11.11.06 04:15 |
| Спасибо. Работает. | ||
Страница: 1 |