VBScript to sort the Array elements using Bubble sort
kw.vbs
arr = Array(1000,900,800,700,600,500,400,300,200,100)
For i = LBound(arr) to UBound(arr)
    For j = LBound(arr) to UBound(arr) - 1
        If arr(j) > arr(j + 1) Then
            temp = arr(j + 1)
            arr(j + 1) = arr(j)
            arr(j) = temp
        End If
    Next
Next

For i = LBound(arr) To UBound(arr)
    sorted = sorted & arr(i)&" "
Next
print "Sorted Array Is "&sorted
Output

Sorted Array Is 100 200 300 400 500 600 700 800 900 1000
Comments and Reactions
What Next?
VBScript implementation of Fibonacci series VBScript to generate the random numbers VBScript to demonstrate the use of conversion functions
Advertisement