Форум программистов, компьютерный форум, киберфорум
Наши страницы

Visual Basic

Войти
Регистрация
Восстановить пароль
 
TimonTF
0 / 0 / 0
Регистрация: 04.12.2012
Сообщений: 6
#1

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

04.12.2012, 16:28. Просмотров 620. Ответов 5

Здравствуйте. я новичек на вашем форуме, незнаю куда написать. Сейчас делаю задачи в вижуал бэйсике и незнаю как разработать полбзовательскую форму,( точнее что нужно именно прописать чтобы выполнялась задача) для вот этой :
По заданной сумме S стоимости покупки напечатать строку содержащую это число и еденицу измерения в рублях, согласовывая окончание слова рубль.Например 1 рубль, 3 рубля, 7 рублей.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
04.12.2012, 16:28
Здравствуйте! Я подобрал для вас темы с ответами на вопрос По заданной стоимости покупки напечатать строку содержащую это число и еденицу измерения в рублях, согласовывая окончания (VB):

Определение стоимости покупки компьютеров в рублях по курсу и в долларах - Pascal ABC
В продаже имеются ПК трех марок (цена задана в рублях). Покупатель может купить ПК разных марок в любом количестве. Оптовым покупателям...

Для каждого прочитанного числа напечатать строку, содержащую соответствующее число звездочек - C++
Напишите программу которая читает из файла несколько целых чисел (каждое между 1 и 72). Для каждого просчитанного числа ваша программа...

Для каждого прочитанного числа напечатать строку, содержащую соответствующее число символов "*" - C++
Целое задание выглядит так: Написать программу, которая читает из файла несколько целых чисел (каждое из промежутка от 1 до 80). Для...

Дано некоторое число копеек.Вывести сколько это будет в рублях - Turbo Pascal
1)Дано некоторое число копеек.Вывести сколько это будет в рублях 2)Даны радиус круга и стороны квадрата, написать программу выводящую...

Написать программу вычисления стоимости покупки с учетом скидки. Скидка в 10% предоставляется , если сумма покупки больше 100 руб - C++
Написать программу вычисления стоимости покупки с учетом скидки. Скидка в 10% предоставляется , если сумма покупки больше 100 руб ...

Преобразовать число в строку, разделив тройки цифр в рублях пробелом - C#
Дано дробное число типа double, представляющее собой денежную сумму в рублях и копйках. Преобразовать число в строку, разделив тройки цифр...

5
MrCrown
596 / 592 / 142
Регистрация: 03.10.2012
Сообщений: 617
06.12.2012, 19:32 #2
Можно, например, так:


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
0
gaw
6632 / 1499 / 152
Регистрация: 09.01.2010
Сообщений: 4,270
06.12.2012, 20:03 #3
неучтено
Цитата Сообщение от 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 = "я"
0
MrCrown
596 / 592 / 142
Регистрация: 03.10.2012
Сообщений: 617
06.12.2012, 22:05 #4
Цитата Сообщение от gaw Посмотреть сообщение
неучтено
Может быть код не самый оптимальный, но все учтено. Обратите внимание, что конструкция Select Case стоит в
ветви Else. То есть цифра 1 и 2 в последней позиции строки S проверяется только если две последние цифры не равны 11 ... 19.
0
gaw
6632 / 1499 / 152
Регистрация: 09.01.2010
Сообщений: 4,270
06.12.2012, 22:11 #5
Цитата Сообщение от MrCrown Посмотреть сообщение
в
ветви Else
не заметил, приношу свои извинения
0
m-ch
5229 / 776 / 212
Регистрация: 25.02.2011
Сообщений: 1,061
Записей в блоге: 1
06.12.2012, 23:13 #6
вариант:
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
0
06.12.2012, 23:13
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
06.12.2012, 23:13
Привет! Вот еще темы с ответами:

Напечатать строку текста, содержащую минимальное количество знаков препинания - C++
Задается произвольный текст, содержащий не более 10 строк, в каждой строке не более 80 символов. Напечатать строку, содержащую...

Написать функцию, которая преобразует строку, содержащую произвольную последовательность 0 и 1 (двоичное число), в десятичное число - Delphi
Написать функцию, которая преобразует строку, содержащую произвольную последовательность 0 и 1 (двоичное число), в десятичное число. В...

Дано натуральное число. Напечатать это число словами - Turbo Pascal
Операции со строковыми данными. Дано натуральное число n (n<=1000). Напечатать это число словами (one, twenty, forty seven, one thousand...

Вывести строку, содержащую символы заданной строки, между которыми вставлено по одному пробелу - C++
Что то вот на решал, немного вроде не так посмотрите оцените пожалуйста; /* Дана непустая строка S . Вывести строку, содержащую символы...


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

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

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