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

Узнай цену своей работы

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

взять из массива X и расположить в массиве Y сначало все положительные, а затем все отрицательные элементы на QBasic была похожая задача, а на 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.6 из 5
Похожие ответы