Поиск наибольшего и наименьшего числа - 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))