مینیمم و ماکزیمم بدون شرط

[arsalansalar]

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

[raravaice]

اگر بین 2 تا عدد میخوای اینکارو بکنی از :

math.max
و
math.min
استفاده کن
موفق باشی

[__H2__]

سلام
برای چند عدد ...
از ساده ترین و ابتدایی ترین امکانات نسخه 2008 است.
منظورم آن است که بسیار معادلات پیچیده و (به قول جوان، خفن!) را میتوان در یک خط انجام داد

کد نمونه بسیار بسیار بسیار بسیار ... ساده (Arr میتوانید هر نوع Collection که واسط مربوطه را دارد باشد)


Dim arr() As Integer = {5, 2, 8, 12, 2, 133, 25, 132}
Dim iMax As Integer= Aggregate x In arr Into Max()

[amirsajjadi]

با سلام

Dim arr() AsInteger = {5, 2, 8, 12, 2, 133, 25, 132}
Array.Sort(arr)
MsgBox("Min : " & arr(LBound(arr)) & vbCrLf & "Max : " & arr(UBound(arr)))