Замена элементов массива - VB

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

Люди, помогите пожалуйста с заданием: Заменить последний положительный элемент массива на второй элемент массива. Разделить все элементы с четными номерами на 1й, 1й отличный от 0 Заранее спасибо!

Решение задачи: «Замена элементов массива»

textual
                            Листинг программы 
                        

                            Private Sub Form_Load()
Dim myArray() As Single
Dim i As Long
Dim NoZero As Single
'1.
For i = UBound(myArray) To LBound(myArray) Step -1
    If myArray(i) > 0 Then
        myArray(i) = myArray(1)
        Exit For
    End If
Next i
'2.
For i = LBound(myArray) To UBound(myArray)
    If myArray(i) <> 0 Then
        NoZero = myArray(i)
        Exit For
    End If
Next i
For i = LBound(myArray) To UBound(myArray) Step 2
    myArray(i) = myArray(i) / NoZero
Next i
End Sub
                        

Оцени полезность:

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

Похожие ответы