Разработать функцию для определения суммы чисел всех элементов одномерного массива с четным порядковым номером

13.01.2014, 22:34. **Показов** 932. **Ответов** 1

/VBA/ Разработать функцию для определения суммы чисел всех элементов одномерного массива с четным порядковым номером и протестировать ее, вызвав функцию через обработчик события, который генерирует одномерный массив а(n) целых чисел. (размерность массива задать через InputBox)

Помогите кто понимает в этом
Очень нужна ваша помощь, буду очень благодарен

KOPOJI · 13.01.2014, 23:41

в VBA не шарю, помогу, чем могу:

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

Разработать функцию для определения суммы чисел всех элементов одномерного массива с четным порядковым номером

Visual Basic

Function GetSum(arr() As Integer)
    Dim sum As Integer
    
    sum = 0
    
    For i = 0 To UBound(arr) Step 2
        sum = sum + arr(i)
        MsgBox "Ýëåìåíò ¹" & i & " = " & arr(i)
    Next
    
    GetSum = sum
    
End Function
 
Sub Main()
    Dim arr(0 To 10) As Integer
    
    Randomize
    
    For i = 0 To 10
        arr(i) = Int((999 - 100 + 1) * Rnd + 100)
    Next
    
    MsgBox GetSum(arr())
    
End Sub

kakkos
		1
	Разработать функцию для определения суммы чисел всех элементов одномерного массива с четным порядковым номером 13.01.2014, 22:34. Показов 932. Ответов 1 Метки нет (Все метки) /VBA/ Разработать функцию для определения суммы чисел всех элементов одномерного массива с четным порядковым номером и протестировать ее, вызвав функцию через обработчик события, который генерирует одномерный массив а(n) целых чисел. (размерность массива задать через InputBox) Помогите кто понимает в этом Очень нужна ваша помощь, буду очень благодарен __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь

Опции темы