Как заполнить массив числами в заданном диапазоне и посчитать сумму его элементов - VB

Формулировка задачи:

Заполнить одномерный массив из 19 элементов в интервале от -19 до 43. Посчитать сумму элементов массива. Помогите пожалуйста решить..

Решение задачи: «Как заполнить массив числами в заданном диапазоне и посчитать сумму его элементов»

textual
                            Листинг программы 
                        

                            Private Sub Form_Load()
' Исходные данные
Dim Arr(18) As Integer
Dim Summ As Integer
Dim Min As Integer
Dim Max As Integer
Dim i As Integer
Randomize Timer
Min = -19
Max = 43
Summ = 0
 
For i = 0 To 18
Arr(i) = Int((Max - Min + 1) * Rnd + Min) ' заполняем массив
Summ = Summ + Arr(i) ' считаем сумму
Next i
 
MsgBox "Сумма элементов массива = " & Summ ' Выводим результат
End
End Sub
                        

Оцени полезность:

7 голосов , оценка 4 из 5

Похожие ответы