Поиск наибольшего и наименьшего числа - VB

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

Всем привет! Нужно найти максимально и минимальное числа из ниже приведенных переменных dim e1, e2, e3, e4, e5 as double из них нужно найти максимальное и минимальное, после чего провести такую вещь - сложить все числа от e1 до e5 после чего вычесть из них сумму минимального и максимального числа как я понял для поиска наибольшего и наименьшего числа их нужно вогнать в массив?

Решение задачи: «Поиск наибольшего и наименьшего числа»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Dim arr#(1 To 5), i&, max&, min&, sum&
arr(1) = e1
arr(2) = e2
arr(3) = e3
arr(4) = e4
arr(5) = e5
 
min = arr(1)
max = arr(1)
sum = arr(1)
For i = 2 To 5
    sum = sum + arr(i)
    If arr(i)>max Then max = arr(i)
    If arr(i)<min Then min = arr(i)
Next
 
MsgBox("Min = " & min & vbCrLf & _
       "Max = " & max & vbCrLf & _
       "sum = " & sum & vbCrLf & _
       "sum-min = " & (sum - min) & vbCrLf & _
       "sum-max = " & (sum - max))

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

11 голосов , оценка 3.818 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

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