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

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


textual

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

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

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

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



Похожие ответы
  1. рабочий frame1 у меня постоянно скрыт. Но в определенные моменты он появляется. В этот момент хочется, чтобы срабатывал Beep и делались некоторые настройки рабочей среды. Но не могу понять к какому событию привязать этот Beep. Событие типа onvisible зачем? Иногда занимаюсь другими делами. Чтобы не высиживать перед компом каждое появление Frame1, а чтобы он сам звал, когда я нужен. Ибо если появилась frame1 - значит я определенно нужен. В другое время - я могу и по кофию сидеть... и в туалет... и вапче бай... миштааааа... а не работа......

  1. Здравствуйте! Прошу вашей подсказки. Есть форма с кнопкой,при нажатии на неё открывается другая форма, в которой есть поле со списком. Как сделать чтобы этот список сразу открыт был, не нажимая дополнительно на галку. В коде это поле написано так: Me.Id1SOrg.RowSource=...

  1. Какое значение содержит поле value у пустой ячейки?

  1. Доброго времени суток. Подскажите как можно выделить цветом заранее не определённые ячейки куда что-либо записалось (в данном случае только числовые значения) и соответственно вернуть исходный цвет при удалении значения.

  1. задача: Даны действительные числа A, B, C. Выяснить пройдет ли кирпич с ребрами А, В, С в прямоугольное отвермтвие со сторонами x, y

  1. Даны действительные, положительные числа A,B,C. Выяснить, можно ли построить треугольник с такими сторонами (сумма длин любых двух сторон должна быть больше третьей стороны).

  1. Помогите пожалуйста сделать лабу: Дан массив ненулевых целых чисел размера N. Проверить, чередуются ли в нем положительные и отрицательные числа. Если чередуются, то вывести 0, если нет, то вывести порядковый номер первого элемента, нарушающего закономерность.

  1. здравствуйте, файл Ворда, в нём два поля одно не в таблице второе в таблице, этот код, выдает один и тот же ответ - "не в таблице" не пойму в коде между интеракциями затирать нужно?

  1. Добрый вечер.Подскажите как исправить код. Задание : A, B, r1 и r2 – заданные целые положительные числа. Выяснить, является ли хотя бы одно из чисел r1 и r2 остатком от деления A на B. Код нужен на vba, чтобы записался макросом в excel. По разному уже переписывала if.. все равно "ложь" выдает.