Помощь - Поиск - Пользователи - Календарь
Полная версия: программирование разветвл.алгоритмов > Информатика / Программирование
Образовательный студенческий форум > Другие дисциплины > Информатика / Программирование
сн___19
sad.gif Помогите пож сост программку. VBA. Для организации ввода и вывода исходных данных и результатов использовать:
б) ячейки рабочего листа.
Оценить уровень заработной платы работника, сравнив ее с размером прожиточного минимума. Превышение более чем в 15 раз – соответствует высокому, менее 7 раз - очень низкому, в промежутке от 7 до 15 раз – среднему уровню заработной платы
kaa
ваши наработки?
сн___19
№ теста Значение zp Комментарий
1 0 Введено некорректное значение
2 -1 500 000 Введено некорректное значение
3 3500 000 Высокий уровень заработной платы
4 3 000 000 Средний уровень заработной платы
5 2 200 000 Средний уровень заработной платы
6 1 400 000 Средний уровень заработной платы
7 1 200 000 Низкий уровень заработной платы

и вот че-то мутила не понятное))

Sub prim4a() ' Вывод данных в ячейки рабочего листа
'Составил студент группы ЗУ-11с Михеенкова С.А.
Dim zp As Long
Dim S As String, P As Integer, I As Integer, K As Integer
K = InputBox("Сколько всего тестов?", "Ввод")
'Формирование заголовка
Cells(1, 1) = "№ теста"
Cells(1, 2) = "Значение zp"
Cells(1, 3) = "Комментарий"
For I = 1 To K ' цикл для повторения расчетов
zp = InputBox("Введи значение zp", "Ввод")
If zp < 200000 Then
R = "Введено некорректное значение"
Else
If zp > 3000000 Then
R = "Высокий уровень заработной платы"
Else
If zp < 1400000 Then
R = "Низкий уровень заработной платы"
Else
R = "Низкий уровень заработной платы"
End If
End If
Cells(I + 1, 1) = I
Cells(I + 1, 3) = "Комментарий"
Next I
End Sub
blush.gif

sad.gif на цифры не обращайте внимания. мне главное суть...
Vago
Цитата(сн___19 @ 28.10.2009, 14:48) *

и вот че-то мутила не понятное))

А где размер прожиточного минимума? Вся ж логика должна быть к нему привязана.
сн___19
Цитата(Vago @ 29.10.2009, 9:33) *

А где размер прожиточного минимума? Вся ж логика должна быть к нему привязана.


сначала я взяла 200.000, ну и соответственно 200000х15раз=3000000, 200000х7раз=1400000 ,
а вообще реальный БПМ=250070.

либо нужно как-то через формулу его выразить..... dry.gif ...че-то я запуталась..

sad.gif помогите...распутаться
kaa
Цитата
соответственно 200000х15раз=3000000


а зачем вы умножаете прожиточный минимум на зарплату?


их надо сравнивать
Vago
Цитата(kaa @ 29.10.2009, 14:56) *

а зачем вы умножаете прожиточный минимум на зарплату?

каа, где Вы увидели умножение на зарплату?

сн___19
Цитата(kaa @ 29.10.2009, 12:56) *

а зачем вы умножаете прожиточный минимум на зарплату?
их надо сравнивать

потому что не придумала каким образом их сравнить и отразить в программе
Vago
Код

Sub prim4a()
    
    Dim zp As Long      ' Зарплата
    
    zpMin = 200000      ' Прожиточный минимум
    kV = 15             ' Коэффициент для "высокой" зарплаты
    kN = 7              ' Коэффициент для "низкой" зарплаты
    
    zpV = zpMin * kV    ' Значение "высокой" зарплаты
    zpN = zpMin * kN    ' Значение "низкой" зарплаты
    
    'формирование заголовка
    Cells(1, 1) = "№ теста"
    Cells(1, 2) = "Значение zp"
    Cells(1, 3) = "Уровень дохода"
    
    k% = InputBox("Сколько всего тестов?", "Ввод")
    
    For i% = 1 To k%
        zp = InputBox("Введи значение zp", "Ввод")  ' Вводим очередную зарплату
        Cells(1 + i%, 1) = i%
        Cells(1 + i%, 2) = zp
        If zp < 0 Then              ' Не может быть отрицательной
            level$ = " Ошибка в данных"
        Else
            If zp > zpV Then        ' Больше "высокой"
                level$ = " Высокий"
            Else
                If zp < zpN Then    ' Меньше "низкой"
                    level$ = " Низкий"
                Else                ' "средняя"
                    level$ = " Средний"
                End If
            End If
        End If
        Cells(1 + i%, 3) = level$
    Next i%

End Sub

Прятать в теле программы инициализацию параметров, начальные значения которых от запуска к запуску могут меняться (zpMin, kV, kN ),- нехорошо. Для самопроверки, предлагаю программку доделать, так чтобы эти три значения брались из листа, а потом в этом листе ещё и печатались бы вычисленные zpV и zpN.

Следующий этап самопроверки - автоматическая очистка листа в начале работы макроса от результатов предыдущего запуска. Ну а потом уже можно и колоночки в разные цвета раскрасить... wink.gif
сн___19
Цитата(Vago @ 29.10.2009, 14:56) *

dribble.gif ооооо!!!! вы не представляете, как я вам благодарна!! большое человеческое СПАСИБО!!! есть над чем поразмыслить. Спасибо, что уделили мне время... flowers1.gif
Vago
Да не за что smile.gif Захотите показать "плоды размышлений" - милости прошу!.. wink.gif
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.
Русская версия Invision Power Board © 2001-2024 Invision Power Services, Inc.