Изменить массив так, чтобы сначала выводились 1,затем 0, и потом 2 - VB

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

Дан целочисленный массив, заполненный 0,1 и 2 в случайном порядке. изменить массив так, чтобы сначала выводились 1,затем 0, и потом 2Добавлено через 9 минут массив проинициализированный

Код к задаче: «Изменить массив так, чтобы сначала выводились 1,затем 0, и потом 2 - VB»

textual
Option Explicit
Private Sub Form_Click()
Cls
Randomize
 
Dim A(25) As Byte, i As Integer, j As Integer, k As Integer
 
For i = LBound(A) To UBound(A)
    A(i) = Round(Rnd * 2)
    Print A(i);
Next
 
Print
For i = LBound(A) To UBound(A) Step 3
    For j = i To UBound(A) Step 2
        For k = j To UBound(A)
            A(k) = 0
                A(j) = 2
                    A(i) = 1
If i + 3 = UBound(A) Then Exit For
Next
    Next
        Next
        
For i = LBound(A) To UBound(A)
    Print A(i);
Next
 
End Sub

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

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


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