11
Январь
2010
Изменить порядок следования элементов в массиве на обратный
Изменить порядок следования элементов в массиве на обратный
Dim A(n) As Integer
Private Sub Command1_Click()
Dim buf As Integer
y = Int(UBound(A)) / 2
For x = 0 To UBound(A)
If x < y Then
buf = A(x)
A(x) = A(UBound(A) - x)
A(UBound(A) - x) = buf
End If
Next x
End Sub