مرتب سازي اعداد در vb6

[خودم1]

سلام به همه
آيا مي دانيد براي مرتب سازي اعدا به صورت صعودي به روش بابي لون در vb6 بايد چه كار كرد
البته فكر كنم مي دونم كه چه جوري بايد اعداد ورودي را دريافت كرد ولي نمي دونم اين اعداد را به اين روش بايد چه جوري مرتب كرد

اگه اشتباه نكنم روش در يافت اعداد ورودي به اين شكله
به طور مثال :

Dim a(1 to 10 ) as integer
for i=1 to 10
(prompt = " enter number " + str(i
a(i) = val (input box (prompt , "enter number ",""))l
NEXT i​

 

[shirini_forush]

برای ورود میتونید n تا کار بکنید...
سادش اینه که یه تکست باکس بزاری و یه دکمه که کاربر کلیک کنه و تو هی به آرایه تو index ه i++ اضافه کنی.
برای مرتب کردن هم sort کن دیگه...

 

[خودم1]

safir187 آيا تا به حال خودت ++i را در بر نامت به كار بر دي؟
چون من استفاده كردن و موقع اجرا error گرفت و مجبور شدم بنويسم i+1
اگه ممكنه مي شه در مورد sort يه مقدار بيشتر توضيح بدين.
ممنون مي شم اگه اين لطف را در حق بنده بكنين.

 

[محمد - ب]

يك نفر به من بگه كه چطوري مي تونم با وي بي page setup اكسل را تغيير بدم تو رو خدا كمكم كنيد

 

[shirini_forush]

++ که گفتم مال vb نیست. فقط برای فهم موضوع گفتم. معادل i++ (تو زبونایی که سینتکس C دارن) تو VB میشه:

i = i+1

برای sort هم الآن vb6 رو دستگاهم نیست تست کنم. این تو console ه .net درست جواب میده.
برای 6 هم باید تو همین مایه ها باشه. یکم پس و پیش...

Module Module1
    Sub Main()
        Dim InVal(0 To 9) As Integer
        Dim I As Integer
        For I = 0 To 9
            InVal(I) = CType(Console.ReadLine(), Integer)
        Next
        Array.Sort(InVal)
        Console.WriteLine("-----> Sorted Array:")
        For I = 0 To 9
            Console.WriteLine(InVal(I))
        Next
        Console.ReadKey()
    End Sub
End Module