необходимо составить код на одномерный массив в ВБА

[илья1992]

Дан вектор А(n). Вычислить суммму элементов стоящих на четных местах

[Stanislav]

Сообщение от илья1992

Дан вектор А(n). Вычислить суммму элементов стоящих на четных местах

или вот



что больше нравится?

А вообще все возьмите за правило. ЗДОРОВАТЬСЯ - это так сложно??

[Smitt&Wesson]

Сообщение от Stanislav

[IMG]
А вообще все возьмите за правило. ЗДОРОВАТЬСЯ - это так сложно??

Ну, привет. Дальше то что?

[Stilet]

Дан вектор А(n).

Сможешь показать код ввода вектора?

[Stanislav]

Сообщение от Smitt&Wesson

Ну, привет. Дальше то что?

А дальше лесом, ок?

[илья1992]

Сообщение от Stilet

Сможешь показать код ввода вектора?

Под код вектора составил

Sub SM(ByRef A(), ByVal n As Integer)
sumX = 0#
For i = 2 To n Step 2
sumX = sumX + A(i)
Next i
MsgBox sumX

Сообщение от Stilet

Сможешь показать код ввода вектора?

вот еще попытка:

Sub MySub()
Dim A() As Integer
Dim i, sum, n As Integer
n = 15
ReDim A(n)
sum = 0
Randomize
For i = 2 To n Step 2
    A(i) = Int((100 * Rnd) + 1)
    If i Mod 2 = 0 Then sum = sum + A(i)
Next
MsgBox sum
End Sub

Сообщение от Stanislav

А дальше лесом, ок?

Вы дяденька хам!

[Stilet]

Ай молодЭц )
А говоришь "не умею".

Отрэжэм лышне:

Sub MySub()
Dim A() As Integer
Dim i, sum, n As Integer
n = 15
ReDim A(n)
sum = 0
Randomize
For i = 2 To n
    A(i) = Int((100 * Rnd) + 1)
    If i Mod 2 = 0 Then sum = sum + A(i)
Next
MsgBox sum
End Sub

И порядок

[Stanislav]

Сообщение от илья1992

Вы дяденька хам!

Ну во-первых: это не вам предназначалось, а во-вторых хамство - это не поздороваться и писать обращение.

[илья1992]

Сообщение от Stilet

Ай молодЭц )
А говоришь "не умею".

Отрэжэм лышне:

Sub MySub()
Dim A() As Integer
Dim i, sum, n As Integer
n = 15
ReDim A(n)
sum = 0
Randomize
For i = 2 To n
    A(i) = Int((100 * Rnd) + 1)
    If i Mod 2 = 0 Then sum = sum + A(i)
Next
MsgBox sum
End Sub

И порядок

Спасибо) вот я только не как не пойму почему выдает ошибку "ожидаемые конечные подгруппы" и Private Sub CommandButton1_Click() обводится желтым? где у меня косяк?((