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