Положительные и отрицательные элементы - 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