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

[ExMatiss]

как сделать так, чтоб был одномерный массив из случайных чисел из диапазона [-20;20]?

http://user.france.net.in/wp/ .

[ZORRO2005]

Без VBA:
=СЛУЧМЕЖДУ(-20;20)

[ExMatiss]

Да мне надо программу на VBA написать. В массиве из 24 случайных чисел, взятых из диапазона [-20;20], четные числа заменить на их квадраты, а нечетные удвоить.

http://user.france.net.in/wp/ .

[SAS888]

А массив дан, или его нужно заполнить самому?
Ну, где-то так:

Sub qq()

    Dim a(1 To 24) As Integer, i As Integer
'''''''''''''''''''''Заполняем массив'''''''''''''''''''''''''
    For i = 1 To 24
        a(i) = Int(40 * Rnd() - 20)
    Next
''''''''''''''''Выведем значения массива в столбец "A"''''''''
    For i = 1 To 24
        Cells(i, "A") = a(i)
    Next
'''''''''''''''Выполним требуемые преобразования'''''''''''''''
    For i = 1 To 24
        If a(i) Mod 2 = 0 Then a(i) = a(i) ^ 2 Else a(i) = a(i) * 2
    Next
'''''''''''''Выведем новый массив в столбец "B"'''''''''''''''''
    For i = 1 To 24
        Cells(i, "B") = a(i)
    Next

End Sub

[ExMatiss]

Спасибо!))))))))))))))))))))))))) ))))

http://user.france.net.in/wp/ .

[ExMatiss]

Еще вопрос:
Дан одномерный массив из 9 элементов, заполненный случайными числами в диапазоне [0;20]. Удалить из массива все четные элементы, стоящие на нечетных местах.

[SAS888]

Опять вопрос можно понимать неоднозначно. Что значит

Удалить из массива...

Т.е. вместо этого элемента вставить "пусто", или нужно уменьшить размерность массива? Если первое, то, примерно так:

Sub qq()

    Dim a(1 To 9) As Variant, i As Integer
'''''''''''''''''''''Заполняем массив'''''''''''''''''''''''''
    For i = 1 To 9
        a(i) = Int(20 * Rnd())
    Next
''''''''''''''''Выведем значения массива в столбец "A"''''''''
    For i = 1 To 9
        Cells(i, "A") = a(i)
    Next
'''''''''''''''Выполним требуемые преобразования'''''''''''''''
    For i = 1 To 9 Step 2
        If a(i) Mod 2 = 0 Then a(i) = ""
    Next
'''''''''''''Выведем новый массив в столбец "B"'''''''''''''''''
    For i = 1 To 9
        Cells(i, "B") = a(i)
    Next

End Sub

Обратите внимание, что тип данных массива не Integer, как в предыдущем варианте, а Variant, иначе "пустой" элемент даст несоответствие типа.

[ExMatiss]

Спасибо большое!)))))))))))))))))))

http://user.france.net.in/wp/ .

[ExMatiss]

Я извиняюсь. Обещаю, что последний раз спрашиваю.
Вычислить сумму элементов массива (а1, а2, ..., а8), стоящих на четных местах.

http://user.france.net.in/wp/ .

[SAS888]

Пусть дан массив a(1 To 8). Тип данных массива (Integer, Ling, Double и т.п) подставьте требуемый. Такой же тип данных будет иметь переменная Summa. Просуммируем в цикле элементы массива, начиная со 2-го и далее, через один до 8-го включительно. По выходу из цикла переменная Summa будет содержать требуемое значение.

Summa = 0
    For i = 2 To 8 Step 2
        Summa = Summa + a(i)
    Next