Question

Написать код программы в VBA:

Дан массив Z (10). Поменять местами первый положительный и последний отрицательный.

Answer 1

Ответ:

Объяснение:

Sub SwapPosNeg()

   Dim Z(1 To 10) As Integer

   Dim i As Integer, firstPos As Integer, lastNeg As Integer, temp As Integer

   

   ' Инициализируем массив

   Z(1) = 1

   Z(2) = 2

   Z(3) = 3

   Z(4) = -4

   Z(5) = 5

   Z(6) = -6

   Z(7) = 7

   Z(8) = 8

   Z(9) = -9

   Z(10) = 10

   

   ' Находим первый положительный и последний отрицательный элементы

   For i = 1 To 10

       If Z(i) > 0 And firstPos = 0 Then

           firstPos = i

       End If

       If Z(i) < 0 Then

           lastNeg = i

       End If

   Next i

   

   ' Меняем местами элементы

   temp = Z(firstPos)

   Z(firstPos) = Z(lastNeg)

   Z(lastNeg) = temp

   

   ' Выводим измененный массив на экран

   For i = 1 To 10

       Debug.Print Z(i)

   Next i

End Sub

В этом коде мы создаем массив Z(10) и инициализируем его значениями. Затем мы находим первый положительный и последний отрицательный элементы в массиве и меняем их местами. Наконец, мы выводим измененный массив на экран с помощью команды Debug.Print. Обратите внимание, что для запуска этого кода необходимо открыть Visual Basic Editor в Excel и вставить его в новый модуль. После этого можно запустить код, нажав на кнопку "Выполнить подпрограмму" или клавишу F5.