Одномерный массив в VBA

[Keeper!]

Здравствуйте, просьба помочь в решении следующей задачи:
"Дан массив целых чисел (2n=16), полученных случайным образом в диапазоне [-20;20]. Поменять местами первую и вторую половины массива."

Необходимо, чтобы сам массив был выведен в таблицу Excel (т.е. используются команды Sheets("ЛистN").Select, ЛистN.Cells(i, j).Value = a(i, j), Cells.

Кто разбирается, помогите пожалуйста.

[G-Kyller]

Что-то такое тебе надо:

'Случайное число в диапазоне: Int((max - min + 1) * Rnd + min)
'16 значений в массиве
dim massiv() as integer
'Заполняем массив
For i = 0 To 15 Step 1
  massiv(i)=Int(41* Rnd -20)
Next i
dim perem as integer
'Меняем местами
For i = 0 To 7 Step 1
  perem=massiv(i)
  massiv(i)=massiv(i+(massiv.length/2))
  massiv(i+(massiv.length/2))=perem
Next i
'Выводим
Sheets("ЛистN").Select
For i = 0 To 15 Step 1
  ЛистN.Cells(i+1, 2).Value = massiv(i)
Next i

[Keeper!]

massiv(i) = massiv(i + (massiv.Length / 2))

Жалуется на эту строчку.

[G-Kyller]

попробуй просто massiv(i + число) (в данном случае 8)
каким образом жалуется? что говорит?

[Keeper!]

Пишет:

compile error
invalid qualifier

[Keeper!]

Когда изменил на (i + 8), стало жаловаться на строку massiv(i) = Int(41 * Rnd - 20):

Run-time error ''9'
Subscript out of range

[G-Kyller]

измени:
dim massiv(16) as integer

[Keeper!]

Получился в итоге такой код:

Sub Massiv2()
Dim massiv(16) As Integer
'Çàïîëíÿåì ìàññèâ
For i = 0 To 15 Step 1
  massiv(i) = Int(41 * Rnd - 20)
Next i
Dim perem As Integer
'Ìåíÿåì ìåñòàìè
For i = 0 To 7 Step 1
  perem = massiv(i)
  massiv(i) = massiv(i + 8)
  massiv(i + 8) = perem
Next i
'Âûâîäèì
Sheets("Ëèñò9").Select
For i = 0 To 15 Step 1
  Ëèñò9.Cells(i + 1, 2).Value = massiv(i)
Next i
End Sub

В итоге на лист вывело следующее:
-16
20
7
-20
3
-16
-16
12
4
20
17
-11
8
20
-10
1

Несостыковка(

[G-Kyller]

Несостыковка(

В смысле? что тебя не устраивает?

[Keeper!]

Можно как-нибудь добавить массив до замены?
А то тут мы вывели заменённый уже, как я понял.
Просто требуется увидеть эту самую замену: что было до и стало после.