Консультации Портала - Консультация #160201

Задать вопрос Консультации Пользователи Форум

Задать вопрос экспертам

Консультация № 160201

11.02.2009, 15:19

0.00 руб.

0 1 1

Компьютеры Программирование

Помогите пожалуйста:
Написать программу в которой вводится натуральное число n, а затем последовательность из n чисел; определяется, есть ли в последовательности отрицательные числа, и выдается соответствующий ответ.
Нужно чтоб последовательность выводилась в ячейки Excel спомощью Cell

Обсуждение

Неизвестный

11.02.2009, 17:09

общий

это ответ

Здравствуйте, Грязнева Ольга Михайловна!
Вот текст макроса. Макрос работает на активном листе текущей книги. Натуральное число нужноввести в ячейку A1. После чего запускаем макрос natural (предварительно добавленный в ваш екселевский файл). Последоветельность выводится в столбце B. Количество отрицательных значений - в ячейке С1.

Приложение:
Sub natural()
Set sh = ActiveSheet
n = sh.Cells(1, 1).Value
'проверяем, является ли содержимое ячейки a1 числом и на всякий случай делаем число натуральным
If IsNumeric(n) Then
n = Abs(Round(n))
sh.Cells(1, 1).Value = n
Else
sh.Cells(1, 1).Value = "Введите сюда натуральное число"
MsgBox ("Введите в А1 натуральное число и перезапустите макрос!")
Exit Sub
End If
'очищаем столбец B
sh.Columns(2).Select
Selection.ClearContents
'заполняем столбец B последовательностью из n случайных целых чисел
For i = 1 To n
sh.Cells(i, 2) = Round(-50 + Rnd() * 100)
Next i

'подсчитываем количество отрицательных чисел
negNumQty = 0
For i = 1 To n
If sh.Cells(i, 2) < 0 Then negNumQty = negNumQty + 1
Next

MsgBox ("Кол-во отрицательных чисел равно " & negNumQty)
sh.Cells(1, 3).Value = negNumQty

End Sub

Форма ответа

Отправка постов/ответов доступна только зарегистрированным и подтвержденным пользователям.

Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.