• gena
  • Восстановленный участник
  • На форуме с 5 апреля 2005г.
  • Сообщений: 6
  • Спасибо: 0

Тема: Array, Ubound

братва
у меня проблема
я не могу найти наибольшее из массива
для вас думаю будет смешно это
но я не смог найти
например
sub ss ()
dim MYARRAY
MYARRAY=ARRAY(2,6,9,8,3,99,77,888,999,112)
МНЕ нужно через чтото например Ubound найти наибольшее число
ubond(myarray)
ничего не дает
буду благодарен если поможете
Гена

  • На форуме с 6 октября 2002г.
  • Сообщений: 162
  • Спасибо: 0

Re: Array, Ubound

Ubound, между прочим, это максимальный индекс массива. Используйте стандартный алгоритм поиска максимума для любого языка -- перебором значений в цикле.

  • gena
  • Восстановленный участник
  • На форуме с 5 апреля 2005г.
  • Сообщений: 6
  • Спасибо: 0

Re: Array, Ubound

Александр
братан если я мог бы это сделать я уже сделал бы и не беспокоил бы Вас. но так получилось что не нашел и поэтому нуждаюсь в Вашей помощи.
надеюсь поможете по крайней мере продолжив этот пример
Заранее благодарен
Гена

  • algol
  • Восстановленный участник
  • На форуме с 5 февраля 2005г.
  • Сообщений: 27
  • Спасибо: 0

Re: Array, Ubound

Как вариант на вскидку
Sub ss()
Dim MYARRAY, I, Maxi, Ma, IAr
MYARRAY = Array(2, 6, 9, 8, 3, 99, 77, 888, 999, 112)
Maxi = -32000
I = 1
On Error GoTo Error1
While TypeName(MYARRAY(I)) = "Integer"
  IAr = MYARRAY(I)
  If IAr > Maxi Then Maxi = IAr
I = I + 1
Wend
Error1:
Err.Clear
MsgBox "Maxi = " + CStr(Maxi)
End Sub

  • gena
  • Восстановленный участник
  • На форуме с 5 апреля 2005г.
  • Сообщений: 6
  • Спасибо: 0

Re: Array, Ubound

спасибо братан
только если туда вставляешь более 320000 он не работает.
я обычно работаю с координатами которые иногда более 10000000 тогда становится плохо.
в любом случае очень благодарен
Гена

  • algol
  • Восстановленный участник
  • На форуме с 5 февраля 2005г.
  • Сообщений: 27
  • Спасибо: 0

Re: Array, Ubound

На уточненную вводную
Sub ss()
Dim MYARRAY, I, Maxi, Ma, IAr
MYARRAY = Array(2, 6, 9, 8, 3, 99, 77, 888, 999, 112, 999999999.9)
Maxi = -999999999.9 '10000000
I = 1
On Error GoTo Error1
While TypeName(MYARRAY(I)) = "Integer" Or TypeName(MYARRAY(I)) = "Double"
IAr = MYARRAY(I)
If IAr > Maxi Then Maxi = IAr
I = I + 1
Wend
Error1:
Err.Clear
MsgBox "Maxi = " + CStr(Maxi)
End Sub
Обрати внимание на формат больших чисел в MYARRAY и Maxi