کوچکترین و بزرگترین عدد

[Honestvip]

سلام
بهترین راهی که میشه 10 عدد رو کوچکترین و بزرگترینشو پیدا کرد چیه ؟

sort هم باشه بهتر

[mpmsoft]

این اعداد بصورت آرایه هست ؟ بصورت استرینگ ؟ و یا به شکل دیگر ؟

[Honestvip]

این اعداد بصورت آرایه هست ؟ بصورت استرینگ ؟ و یا به شکل دیگر ؟

معذرت میخوام بصورت آرایه و فقط عددی

[mpmsoft]

ابتدا باید توسط کد زیر آرایه خود را سورت کند


Private Sub SortIntegerArray(paintArray() As Integer)
'------------------------------------------------------------------------

' This sub uses the Bubble Sort algorithm to sort an array of integers.

Dim lngX As Long
Dim lngY As Long
Dim intTemp As Integer
For lngX = LBound(paintArray) To (UBound(paintArray) - 1)

For lngY = LBound(paintArray) To (UBound(paintArray) - 1)

If paintArray(lngY) > paintArray(lngY + 1) Then
' exchange the items
intTemp = paintArray(lngY)
paintArray(lngY) = paintArray(lngY + 1)
paintArray(lngY + 1) = intTemp
End If

Next

Next

Loop

End Sub


کوچکترین ArrName(1)
بزرگترین UBound(ArrName)

[MBG73]

ببخشید حرف sort کردن شد یه سوال داشتم گفتم همینجا بپرسم .

اگه ما چند تا عدد داشته باشیم ( فرض کنید تو یک flexgrid ) باید چیجوری اون ها رو از کوچک به بزرگ مرتب کنیم ؟ ممنون

[xxxxx_xxxxx]

اگه ما چند تا عدد داشته باشیم ( فرض کنید تو یک flexgrid ) باید چیجوری اون ها رو از کوچک به بزرگ مرتب کنیم ؟ ممنون
به صورت Inplace نمیشه اینکارو کرد. باید ابتدا اعداد رو از داخل گرید به یک آرایه منتقل کنید. بعد آرایه رو مرتب کنید. در آخر محتویات آرایه رو به ترتیب روی سلول های گرید قرار بدید.

[mpmsoft]

VS1.Col = 3
VS1.Sort = flexSortNumericAscending

[Honestvip]

ابتدا باید توسط کد زیر آرایه خود را سورت کند


Private Sub SortIntegerArray(paintArray() As Integer)
'------------------------------------------------------------------------

' This sub uses the Bubble Sort algorithm to sort an array of integers.

Dim lngX As Long
Dim lngY As Long
Dim intTemp As Integer
For lngX = LBound(paintArray) To (UBound(paintArray) - 1)

For lngY = LBound(paintArray) To (UBound(paintArray) - 1)

If paintArray(lngY) > paintArray(lngY + 1) Then
' exchange the items
intTemp = paintArray(lngY)
paintArray(lngY) = paintArray(lngY + 1)
paintArray(lngY + 1) = intTemp
End If

Next

Next

Loop

End Sub
کوچکترین ArrName(1)
بزرگترین UBound(ArrName)

ببخشید من از این برنامه زیاد سر در نمیارم میشه ساده تر بنویسید و sort رو بزارید برای یک کلید دیگه که این کار رو انجام بده

[behroz1992]

اینو نگاهی بکن فقط sort نمیشه

Private Sub Command1_Click()
Dim a(10) As Single
For K = 1 To 10
a(K) = Val(InputBox(""))
Next
Max = a(1)
Min = a(1)
For K = 1 To 10
If a(K) > Max Then Max = a(K)
If a(K) < Min Then Min = a(K)
Next
For K = 1 To 10
Text1.Text = Text1.Text + Str(K) + vbCrLf
Next
Label1.Caption = Max
Label2.Caption = Min
End Sub

[Honestvip]

ممنون این بهتر شد

اینجاStr(K) + vbCrLf
Val
چکار میکنن؟

[Honestvip]

اینو نگاهی بکن فقط sort نمیشه

Private Sub Command1_Click()
Dim a(10) As Single
For K = 1 To 10
a(K) = Val(InputBox(""))
Next
Max = a(1)
Min = a(1)
For K = 1 To 10
If a(K) > Max Then Max = a(K)
If a(K) < Min Then Min = a(K)
Next
For K = 1 To 10
Text1.Text = Text1.Text + Str(K) + vbCrLf
Next
Label1.Caption = Max
Label2.Caption = Min
End Sub

حالا اینو چطوری سورت کنم ؟

[behroz1992]

سلام دوست عزیز فایل را ضمیمه کردم
vbcrlf:کار enter را انجام میده بعد از هر عنطر به سطر بعدی میرود
str:اگه اشتباه نکرده باشم عد را به رشته رشته تبدیل میکنه:متفکر:

[Honestvip]

اگر زحمتی نیست soRT اینم بگین