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.

Answer 2

Вот пример кода на VBA, который меняет местами первый положительный элемент и последний отрицательный элемент в массиве Z(10):

vbaCopy code
Sub SwapElements()
    Dim Z(10) As Double
    Dim i As Integer
    Dim firstPositiveIndex As Integer
    Dim lastNegativeIndex As Integer
    Dim temp As Double
    
    ' Заполнение массива Z(10) произвольными значениями
    For i = 1 To 10
        Z(i) = Rnd() - 0.5 ' Генерация случайных чисел в диапазоне [-0.5, 0.5]
    Next i
    
    ' Поиск первого положительного элемента
    For i = 1 To 10
        If Z(i) > 0 Then
            firstPositiveIndex = i
            Exit For
        End If
    Next i
    
    ' Поиск последнего отрицательного элемента
    For i = 10 To 1 Step -1
        If Z(i) < 0 Then
            lastNegativeIndex = i
            Exit For
        End If
    Next i
    
    ' Меняем местами первый положительный и последний отрицательный элемент
    If firstPositiveIndex <> 0 And lastNegativeIndex <> 0 Then
        temp = Z(firstPositiveIndex)
        Z(firstPositiveIndex) = Z(lastNegativeIndex)
        Z(lastNegativeIndex) = temp
    End If
    
    ' Вывод результата
    For i = 1 To 10
        Debug.Print Z(i)
    Next i
End Sub

Обратите внимание, что в этом примере массив Z(10) заполняется случайными значениями в диапазоне [-0.5, 0.5] для иллюстрации. Вы можете заменить этот код своими данными или внести изменения в зависимости от ваших потребностей.