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