(IMG:style_emoticons/default/sad.gif) Помогите пож сост программку. VBA. Для организации ввода и вывода исходных данных и результатов использовать:
б) ячейки рабочего листа.
Оценить уровень заработной платы работника, сравнив ее с размером прожиточного минимума. Превышение более чем в 15 раз – соответствует высокому, менее 7 раз - очень низкому, в промежутке от 7 до 15 раз – среднему уровню заработной платы

ваши наработки?

№ теста Значение 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
(IMG:style_emoticons/default/blush.gif)

(IMG:style_emoticons/default/sad.gif) на цифры не обращайте внимания. мне главное суть...

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