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

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

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

Автор: morpheus123 30.4.2010, 22:54

Подскажите пожалуйста надо сделать выборку из вводимых значений, затем сравнит с тем значением что в поле если есть числа которые им соответсвуют то вывести их

Автор: Akina 2.5.2010, 16:48

Для домашних заданий, курсовых, существует "Центр Помощи".

Тема перенесена!

Автор: Sanaff 2.5.2010, 18:46

А самой программы у Вас нет?
Тоесть вам надо найти максимальное из введёных значений и сравнить его с тем, что в поле?
Общий алгоритм:

Код


 ' A(i) - массив введёных чисел
maxa= A(1)
for i=1 to Ubound(A)
  if A(i) > maxa then maxa=A(i)
next i
if Val(TextXXX.text) = maxa then msgbox maxa

смущает фраза "если есть числа которые им соответсвуют.." что, несколько чисел предполагается выводить?