Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [VB6] Максимальное м минимальное числа

Автор: kyc0k 25.9.2008, 13:45

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

Автор: Akina 25.9.2008, 14:03

Цитата(kyc0k @ 25.9.2008, 14:45

)

для поиска наибольшего и наименьшего числа их нужно вогнать в массив?

Не обязательно.

Код


Function MinValue(ParamArray variables() As Variant) As Variant

Dim variable As Variant

MinValue = variables(0)
For Each variable In variables
    If MinValue > variable Then MinValue = variable
Next

End Function

' ********************

Private Sub Command1_Click()

Dim a1 As Variant, a2 As Variant, a3 As Variant, a4 As Variant, a5 As Variant

a1 = 3
a2 = 6
a3 = 2
a4 = 9
a5 = 1
MsgBox MinValue(a1, a2, a3, a4, a5)

End Sub