Положительные и отрицательные элементы - VB

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

взять из массива X и расположить в массиве Y сначало все положительные, а затем все отрицательные элементы на QBasic была похожая задача, а на VB не знаю как делать. Помогите....


textual

Код к задаче: «Положительные и отрицательные элементы - VB»

Private Sub Command1_Click()
Dim ArrayX(1 To 10) As Single
Dim ArrayY(1 To 10) As Single
Dim i As Integer
Dim j As Integer
For i = 1 To 10
    ArrayX(i) = (100 - (-100) + 1) * Rnd + (-100)
    Debug.Print ArrayX(i)
Next i
Debug.Print "------------------------------------"
For i = 1 To 10
    If ArrayX(i) > 0 Then
        j = j + 1
        ArrayY(j) = ArrayX(i)
    End If
Next i
j = UBound(ArrayY)
For i = UBound(ArrayX) To 1 Step -1
    If ArrayX(i) < 0 Then
        ArrayY(j) = ArrayX(i)
        j = j - 1
    End If
Next i
For i = 1 To 10
    Debug.Print ArrayY(i)
Next i
End Sub
Эта работа вам не подошла?

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


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

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

Источник