Поиск наибольшего и наименьшего числа - 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))
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д