По заданной стоимости покупки напечатать строку содержащую это число и еденицу измерения в рублях, согласовывая окончания

@TimonTF · Регистрация: 04.12.2012

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

Здравствуйте. я новичек на вашем форуме, незнаю куда написать. Сейчас делаю задачи в вижуал бэйсике и незнаю как разработать полбзовательскую форму,( точнее что нужно именно прописать чтобы выполнялась задача) для вот этой :
По заданной сумме S стоимости покупки напечатать строку содержащую это число и еденицу измерения в рублях, согласовывая окончание слова рубль.Например 1 рубль, 3 рубля, 7 рублей.

@MrCrown · 06.12.2012, 19:32

Можно, например, так:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub Command1_Click()
Dim S As String, sSuff As String
 S = InputBox("Введите сумму покупки")
 If Mid(StrReverse(S), 2, 1) = "1" Then  'Проверяем предпоследнюю цифру
    sSuff = "ей"
 Else
    Select Case Right(S, 1)    'Проверяем последнюю цифру
       Case "0", "5", "6", "7", "8", "9"
           sSuff = "ей"
       Case "1"
           sSuff = "ь"
       Case "2", "3", "4"
           sSuff = "я"
     End Select
   End If
 MsgBox "Сумма покупки:" & "  " & S & "  рубл" & sSuff
End Sub

@gaw · 06.12.2012, 20:03

неучтено

Сообщение от MrCrown

Visual Basic
1
2
3
4
5
6
Case "0", "5", "6", "7", "8", "9"
    sSuff = "ей"
 Case "1"                 ---------->11
    sSuff = "ь"
 Case "2", "3", "4"     ----------->12
    sSuff = "я"

@MrCrown · 06.12.2012, 22:05

Сообщение от gaw

неучтено

Может быть код не самый оптимальный, но все учтено. Обратите внимание, что конструкция Select Case стоит в
ветви Else. То есть цифра 1 и 2 в последней позиции строки S проверяется только если две последние цифры не равны 11 ... 19.

@gaw · 06.12.2012, 22:11

Сообщение от MrCrown

в
ветви Else

не заметил, приношу свои извинения

@m-ch · 06.12.2012, 23:13

вариант:

Visual Basic
1
2
3
4
5
Private Sub Command1_Click()
    Dim S As Long
    S = Val(InputBox("Введите сумму покупки"))
    MsgBox "Сумма покупки: " & S & " рубл" & IIf(S \ 10 Mod 10 = 1 Or (S + 9) Mod 10 >= 4, "ей", IIf(S Mod 10 = 1, "ь", "я"))
End Sub

Новые блоги и статьи Все статьи Все блоги /
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .
Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .

@TimonTF 0 / 0 / 0 Регистрация: 04.12.2012 Сообщений: 6

	По заданной стоимости покупки напечатать строку содержащую это число и еденицу измерения в рублях, согласовывая окончания 04.12.2012, 16:28. Показов 2208. Ответов 5 Метки еденицу, заданной, измерения, Напечатать, окончания, покупки, рублях, согласовывая, содержащую, стоимости, строку, число (Все метки) Здравствуйте. я новичек на вашем форуме, незнаю куда написать. Сейчас делаю задачи в вижуал бэйсике и незнаю как разработать полбзовательскую форму,( точнее что нужно именно прописать чтобы выполнялась задача) для вот этой : По заданной сумме S стоимости покупки напечатать строку содержащую это число и еденицу измерения в рублях, согласовывая окончание слова рубль.Например 1 рубль, 3 рубля, 7 рублей. 0