Создать проект для подсчета суммы элементов массива из 5 чисел - VB

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

Задания :1) Создать проект для подсчета суммы элементов массива из 5 чисел . 2) Создать проект для подсчета площади прямоугольника по известным сторонам. Нужны коды к обоим заданиям . Заранее спасибо огромное .

P.S.

В названии темы забыл написать слово "суммы"

Решение задачи: «Создать проект для подсчета суммы элементов массива из 5 чисел»

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

                            Sub Task_1()
Dim i As Integer, arr(1 To 5), vSum
i = 1
Do
    arr(i) = InputBox("Г‚ГўГҐГ¤ГЁГІГҐ " & i & " ГЅГ«ГҐГ¬ГҐГ*ГІ Г¬Г*Г±Г±ГЁГўГ*")
    If Not IsNumeric(arr(i)) Then Exit Sub
    vSum = vSum + Val(arr(i))
    i = i + 1
Loop While i <= 5
MsgBox "Г‘ГіГ¬Г¬Г* ГЅГ«ГҐГ¬ГҐГ*ГІГ®Гў Г¬Г*Г±Г±ГЁГўГ* " & vSum
End Sub
                        

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

14 голосов , оценка 4.357 из 5

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