Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

Изменить порядок следования элементов в массиве на обратный


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


В избранное