پرسش مرتب کردن اعداد به صورت صعودی درvba

[Mahdi borounsar]

سلام چطور میشه درvba ده عدد رو از کاربر بگیره و به صورت صعودی نمایش بده؟
لطفا راهنماییم کنین.

[Mahdi borounsar]

کسی نیست سوال مارو جواب بده؟

[iranweld]

با سلام

فعلا ورودی اعداد را چک کنید اگر تعداد اعداد ورودی کمتر از ده میباشد در پنجره بعدی عددی وارد نکنید

Private Sub CommandButton1_Click()
Dim i, j As Integer
Dim myValue, myValue2(10) As Variant

For i = 1 To 10

myValue = InputBox("Give me some input", "input Number", i)

If myValue = "" Then
j = i - 1
Exit For

End If

myValue2(i) = myValue
  
Next

For i = 1 To j

MsgBox myValue2(i)

Next

End Sub