display any 10 numbers in ascending order using arrays in vb scripting

[haritha]

hi,

can any one give me the simple code to display the below numbers in ascending order using arrays in vb scripting. 6,20,30,5,80,56,22,12,34,54

[v.swaminathan]

Hi.. Please let me know if the below code works for you...

You would be required to pass/specify the numbers to the variable "InputNumbers"

'Code Starts Here

Code:

Option Explicit Dim InputNumbers, SplitInputNumbers, ArrayCount, ReSort, iterInputNum, Num1, Num2 InputNumbers = "6,20,30,5,80,56,22,12,34,54" SplitInputNumbers = Split(InputNumbers, ",") ArrayCount = UBound(SplitInputNumbers) ReSort = "YES" While ReSort = "YES" ReSort = "NO" For iterInputNum = 0 to ArrayCount If iterInputNum < ArrayCount Then If Cint(SplitInputNumbers(iterInputNum)) > Cint(SplitInputNumbers(iterInputNum+1)) Then Num1 = SplitInputNumbers(iterInputNum) Num2 = SplitInputNumbers(iterInputNum+1) SplitInputNumbers(iterInputNum+1) = Num1 SplitInputNumbers(iterInputNum) = Num2 ReSort = "YES" End If End If Next Wend

'Code Ends Here


Thanks and Regards,
Swami

[haritha]

hi swamy,

its not displaying any results after executiong np print or msgbox specified.

[v.swaminathan]

Hi.. Please append the below script to retrieve the output data..

(From the earlier one also you would be able to see the output from the array (variable) "SplitInputNumbers". But this one will get you the output as a comma separated string)

'Code Starts here

Code:

Dim iterSortedNum, SortedNumericArray For iterSortedNum = 0 to ArrayCount If iterSortedNum = 0 Then SortedNumericArray = SplitInputNumbers(iterSortedNum) Else SortedNumericArray = SortedNumericArray & "," & SplitInputNumbers(iterSortedNum) End If Next msgbox SortedNumericArray

'Code Ends Here

[shivu.hanu]

Code:

dim arr(10),x 'TO READ THE INPUT FROM USERS for i=0 t0 9 arr(i)=cint(inputbox("enter 10 numbers")) next 'SORT THE INPUT for i=0 to ubound(arr) if arr(i)>arr(i+1) then x=arr(i) arr(i)=arr(i+1) arr(i+1)=x end if next 'to display the array vALUES for i=0 to 9 str=str&arr(i)&vblf next