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

Узнай цену своей работы

Формулировка задачи:

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

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

textual
Листинг программы
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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

14   голосов , оценка 4.429 из 5
Похожие ответы