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

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

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

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

textual
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

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


СОХРАНИТЬ ССЫЛКУ