به دست آوردن بیشترین مقدار داده شده به مجموعه آرایه ها

[kitcat_m18]

با سلام,
من نیاز دارم تو این قطعه کد بیشترین مقدار دریافتی در مجموعه آرایه ها A رو پیدا کنم از چه تابعی باید استفاده کنم؟



Dim A(3)

A(1)=Text1.text
A(2)=Text2.text
A(3)=Text3.text

msgbox Max(A)
توضیح دستورMax(A)o درست نمی باشد و فقط برای توضیح بیشتر در کد گنجانده شده است.


با تشکر:لبخندساده:

[xxxxx_xxxxx]

دستوری برای این کار وجود نداره.
می تونید یک تابع به نام Max بنویسید که آرایه رو به عنوان ورودی دریافت کنه و بزرگترین مقادار به به عنوان خروجی برگردونه.

تاپیک به بخش اصلی VB6 منتقل شد/

[ghasemweb]

تابع تشخيص بزرگترين مقدار يك ارايه :


Dim a(1 To 10) As Integer
Private Sub Command1_Click()
For i = 1 To 10
a(i) = Int(Rnd(1000) * 99)
Print a(i)
Next i
MsgBox a(max_value) & " in position " & max_value
End Sub

Private Function max_value()
m = 1
For i = 2 To UBound(a)
If a(i) > a(m) Then
m = i
End If
Next i
max_value = m

End Function