ник: час
Ниже приведен пример функции поиска максимального элемента в массиве:
Function FindMax(ByVa1 a() As Integer
Dim finish As Integer = UBound(a)
Dim max As Integer = a(0)
Dim i As Integer
For i = 0 To finish
If a(i) > max Then max = a(i)
Next i
Return max End Function
|
Но может имеется встроенная функция????
типа Dmax(arrary())