Работа с массивами (язык VBA)

[Иришка89]

Здравствуйте, нужно написать программу на языке VBA в Excel: дан массив R(10). Найдите сумму значений элементов из диапазона [5,25].

[EvKont]

Public Sub help()
    Dim mas(10) As Integer
    Dim sum As Integer
    Dim str As String
    
    Randomize
    
    For i = 1 To 10
        mas(i) = Rnd(10) * 30
        str = str & " " & mas(i)
    Next i
    
    For i = 1 To 10
        If (mas(i) > 5) And (mas(i) < 25) Then sum = sum + mas(i)
    Next i
    
    MsgBox "Массив - " & str & Chr(13) & "Сумма - " & sum
End Sub

[Serge_Bliznykov]

EvKont! Красавчик!
а мы все гадаем (эта тема-дубль от TC), что за диапазон такой [5,25] ?! o_O Я, как и Виталий Stilet, решил, что речь идёт о диапазоне ячеек...
а тут всё проще - это диапазон значений!

p.s. а в коде неточность! 5 и 25 включаются в диапазон
поэтому должно быть так:

If (mas(i) >= 5) And (mas(i) <= 25) Then

[EvKont]

Извините за неточность. Я исправлюсь

[Иришка89]

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

[Иришка89]

Может вы еще поможете блок-схему нарисовать к этой задаче, буду очень благодарна

[Mari.Ya]

Помогите плиз...тут задачка такая...я не то что программу не знаю как написать....я блок-схему не могу понять....(((
такое задание...
Для массива W(N,M) найти сумму элементов находящихся на периметре этого массива

[Byka13]

нужно написать массив(программу) в редакторе VBA ...
а у меня вот такая задачка:

Если в массиве P, нет отрицательных элементов, то переписать все элементы подряд в масиве C.В противном случае составить массив C, заменив отрицательные элементы элементами по модулю. P- целые

[Son Of Pain]

И набежал сюда весь их класс...

[Byka13]

Сообщение от Son Of Pain

И набежал сюда весь их класс...

оффтоп ну ладно))) я знакомой помогаю) лутчебы ответили на вопросик)