Как найти максимальное число из трёх заданных в VisualBesic

[{ Roman }]

Если кто может пришлите исходник плизззз
Tesla-master@mail.ru

[RayShade]

Похоже, пора открывать раздел "вопросы школьников начальной школы на VBStreets".

[Samovar]

И тебя туда же: http://bbs.vbstreets.ru/viewtopic.php?t=9880&highlight=

[A.A.Z.]

Код:

Код: Выделить всё

Private Sub Form_Load() 'процедура, которая происходит при загрузке формы
Dim Chislo1 As Long 'Переменная для первого числа
Dim Chislo2 As Long 'Переменная для второго числа
Dim Chislo3 As Long 'Переменная для третьего числа
Dim Samoe_bolshoe_chislo As Long 'Переменная для самого большого числа
Chislo1 = InputBox("Введите первое число") 'Просим пользователя ввести первое число
Chislo2 = InputBox("Введите второе число") 'Просим пользователя ввести второе число
Chislo3 = InputBox("Введите третье число") 'Просим пользователя ввести третье число
If Chislo1 >= Chislo2 Then Samoe_bolshoe_chislo = Chislo1 Else Samoe_bolshoe_chislo = Chislo2 'Сравниваем первое число со вторым и большее кладем в переменную для самого большого числа, если же первое число равно второму, то положить в переменную первое число
If Chislo3 > Samoe_bolshoe_chislo Then Samoe_bolshoe_chislo = Chislo3 'Если третье число больше самого большего из двух первых (оно находится в ячейке с самым большим числом), то присвоить перемнной с самым большим числом третье число
MsgBox "Самое большое число из этих трёх - " & Samoe_bolshoe_chislo 'Вывести результат на экран
End Sub 'конец процедуры, происходящей при загрузке формы

[cg_ck]

[klop086]

A.A.Z. - - а ты не разжуёшь для меня примерчик (они у тебя такие клёвые ) из АПИ Гайд на тему CreateWindowEx, пример называется Classical.

[GSerg]

Вот ты попал, A.A.Z.!
Для всех тамошних констант.... ооо...

[A.A.Z.]

A.A.Z. - - а ты не разжуёшь для меня примерчик (они у тебя такие клёвые ) из АПИ Гайд на тему CreateWindowEx, пример называется Classical.

А-а-а-у-у-э-э-ы-ы-н-н-н-е-е-т-т, наверное...

[A.A.Z.]

klop086, если ты серьёзно, то подожди до каникул (~1 месяц), потом посмотрим

[tyomitch]

A.A.Z. - - а ты не разжуёшь для меня примерчик (они у тебя такие клёвые ) из АПИ Гайд на тему CreateWindowEx, пример называется Classical.

Я мог бы... Но только не всё сразу, он же здоровенный.
Какие-то конкретные вопросы по нему есть?

Если ты составишь список конкретных вопросов, то думаю, мы втроём на него сразу накинемся и сразу же всё разжуём

[Samovar]

Э...э, может тему переместить сюда: "Народный юмор" А то я ее уже третий раз по ошибке откываю...

[Vitaly1]

A.A.Z. - Да-а-а, восхищаюсь Надо было еще написать как войти в VB, как создать форму, как запустить программу на выполнения

[FaKk2]

Так форум, как бы для новичков...

[Шурик]

A.A.Z. - Да-а-а, восхищаюсь Надо было еще написать как войти в VB, как создать форму, как запустить программу на выполнения

А что такого??? Некоторые даже установить VB не могут

[Matv]

А теперь нужен пример, как сравнить 4 числа


Хотя может так....

Код: Выделить всё

Public Function Max(X, Y)
If X > Y Then Max = X Else Max = Y
End Function
Private Sub Form_Load()
Dim a1%, a2&, a3!, a5#
a1 = 1
a2 = 64000
a3 = 64000.0001
a4 = 64000.00010001
MsgBox Max(Max(a1, a2), Max(a3, a4))
End Sub


Но сколько ещё можно придумать, ведь может быть и 5 чисел...

[Ennor]

По-моему, проще прикрутить сортировку массива, а потом взять последний его член (или первый, если сортировка по убыванию). Более универсального способа все равно нет...

[alibek]

Сортировка ресурсоемка. Если нужно только найти экстремумы, то можно поступить так:

Код: Выделить всё

Dim I As Long, Min, Max
Min = Data(1)
Max = Data(1)
For I = 2 To UBound(Data)
  If Data(I) < Min Then Min = Data(I)
  If Data(I) > Max Then Max = Data(I)
Next I
Print Min, Max


Или еще лучше, искать индексы.

Код: Выделить всё

Dim I As Long, Min As Long, Max As Long
Min = 1
Max = 1
For I = 2 To UBound(Data)
  If Data(I) < Data(Min) Then Min = I
  If Data(I) > Data(Max) Then Max = I
Next I
Print Data(Min), Data(Max)