Изменить порядок следования элементов в массиве на обратный
Изменить порядок следования элементов в массиве на обратный
2010-01-11 07:00 Александр
Изменить порядок следования элементов в массиве на обратный
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)
[...]