Выяснить, какое число встречается раньше — положительное или отрицательное - VBA

Формулировка задачи:

Здравствуйте,помогите пожалуйста написать код к задаче: Дана последовательность целых чисел a1, a2, ..., an. Выяснить, какое число встречается раньше — положительное или отрицательное.

Код к задаче: «Выяснить, какое число встречается раньше — положительное или отрицательное - VBA»

textual
Sub m_2()
'Создание на пластинке оперативной памяти компьютера поименованной области (массива) myArray.
'Integer означает, что в массиве могут быть только целые числа (недробные).
'1 To - используется, чтобы порядковый номер первого элемента массива был 1,
'так удобнее непрограммистам (по умолчанию порядковый номер первого элемента массива ноль).
Dim myArray(1 To 10) As Integer
'Создание на пластинке оперативной памяти компьютера поименованной области (переменной) i.
Dim i As Integer
'Заполнение массива случайными числами. Я выберу по своему усмотрению диапазон от -50 до +50.
'For i ... To ... Next - называется циклом.
For i = 1 To 10
    myArray(i) = (50 - (-50) + 1) * Rnd + (-50)
Next i
'Просматриваем элементы массива, как только будет найден элемент,
'отвечающий поставленной задаче, выведем сообщение и выйдем из программы.
For i = 1 To 10
    'If ... Then ... ElseIf ... End If - используется для выбора действия.
    If myArray(i) > 0 Then
        'MsgBox - инструмент VBA для вывода на монитор информации.
        MsgBox "Раньше встречается положительное число"
        'Выход из кода.
        Exit Sub
    ElseIf myArray(i) < 0 Then
        MsgBox "Раньше встречается отрицательное число"
        Exit Sub
    End If
Next i
MsgBox "В последовательности только нули"
End Sub
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

5   голосов, оценка 4.200 из 5


СДЕЛАЙТЕ РЕПОСТ