output.to from Sideway

Bubble Sorting

Draft for Information Only

# Content

`Knowledge Base: Examples of Sorting Sorting An Array by Bubble Sort Algorithm  Examples:`

# Knowledge Base: Examples of Sorting

Sorting: Sorting algorithm referencehttps://en.wikipedia.org/wiki/Sorting_algorithm

## Sorting An Array by Bubble Sort Algorithm

Sorting An Array by Bubble Sort Algorithm. Bubble sort is a simple exchanging algorithm but is also a highly inefficient sort.

Bubble sort reference: https://en.wikipedia.org/wiki/Bubble_sort

### Examples:

Example of Sorting An Array by Bubble Sort Algorithm.

ASP VbScript Command:
``````<script runat="server" language="VBScript">
Dim OriArry, NewArry
OriArry=Array("s","i","d","e","w","a","y","o","u","t")
Response.Write "Original Array<br />"
Response.Write LstArry(OriArry)&"<br /> "
NewArry=SrtArry(OriArry)
Response.Write "Sorted Array<br /> "
Response.Write LstArry(NewArry)

Function SrtArry(Ori_Arry)
Dim i, j, temp, tempind
Response.Write "Array Sorting<br /> "
For i = LBound(Ori_Arry) to UBound(Ori_Arry)-1
For j= UBound(Ori_Arry)-1 to i step -1
if UCase(Ori_Arry(j))>UCase(Ori_Arry(j+1)) then
temp=Ori_Arry(j)
Ori_Arry(j)=Ori_Arry(j+1)
Ori_Arry(j+1)=temp
End If
Response.Write i&" "&j&": "
Response.Write LstArry(Ori_Arry)&"<br />"
Next
Next
SrtArry=Ori_Arry
End Function

Function LstArry(Ori_Arry)
Dim i
For i = LBound(Ori_Arry) to UBound(Ori_Arry)
Response.Write Ori_Arry(i)&" "
Next
End Function
</script>``````
HTML Web Page In-line Output:
Original Array
s i d e w a y o u t
Array Sorting
0 8: s i d e w a y o t u
0 7: s i d e w a y o t u
0 6: s i d e w a o y t u
0 5: s i d e w a o y t u
0 4: s i d e a w o y t u
0 3: s i d a e w o y t u
0 2: s i a d e w o y t u
0 1: s a i d e w o y t u
0 0: a s i d e w o y t u
1 8: a s i d e w o y t u
1 7: a s i d e w o t y u
1 6: a s i d e w o t y u
1 5: a s i d e o w t y u
1 4: a s i d e o w t y u
1 3: a s i d e o w t y u
1 2: a s d i e o w t y u
1 1: a d s i e o w t y u
2 8: a d s i e o w t u y
2 7: a d s i e o w t u y
2 6: a d s i e o t w u y
2 5: a d s i e o t w u y
2 4: a d s i e o t w u y
2 3: a d s e i o t w u y
2 2: a d e s i o t w u y
3 8: a d e s i o t w u y
3 7: a d e s i o t u w y
3 6: a d e s i o t u w y
3 5: a d e s i o t u w y
3 4: a d e s i o t u w y
3 3: a d e i s o t u w y
4 8: a d e i s o t u w y
4 7: a d e i s o t u w y
4 6: a d e i s o t u w y
4 5: a d e i s o t u w y
4 4: a d e i o s t u w y
5 8: a d e i o s t u w y
5 7: a d e i o s t u w y
5 6: a d e i o s t u w y
5 5: a d e i o s t u w y
6 8: a d e i o s t u w y
6 7: a d e i o s t u w y
6 6: a d e i o s t u w y
7 8: a d e i o s t u w y
7 7: a d e i o s t u w y
8 8: a d e i o s t u w y
Sorted Array
a d e i o s t u w y

Example of Sorting of An Array with Index by Bubble Sort Algorithm.

ASP VbScript Command:
``````<script runat="server" language="VBScript">
Dim OriArry, NewArry
OriArry=Array("s","i","d","e","w","a","y","o","u","t")
For i = LBound(OriArry) to UBound(OriArry)
OriArry(i)=array(i,OriArry(i))
Next
Response.Write "Original Array"
Response.Write LstArry(OriArry)&"<br />"
NewArry=SrtArry(OriArry)
Response.Write "Sorted Array"
Response.Write LstArry(NewArry)

Function SrtArry(Ori_Arry)
Dim i, j, temp
For i = LBound(Ori_Arry) to UBound(Ori_Arry)-1
For j= UBound(Ori_Arry)-1 to i step -1
if UCase(Ori_Arry(j)(1))>UCase(Ori_Arry(j+1)(1)) then
temp=Ori_Arry(j)
Ori_Arry(j)=Ori_Arry(j+1)
Ori_Arry(j+1)=temp
End If
Next
Next
SrtArry=Ori_Arry
End Function

Function LstArry(Ori_Arry)
Dim i
For i = LBound(Ori_Arry) to UBound(Ori_Arry)
If IsArray(Ori_Arry(0)) Then
call LstArry(Ori_Arry(i))
Else
If i=0 Then
Response.Write "<br />"
End If
Response.Write Ori_Arry(i)&" "
End If
Next
End Function
</script>``````
HTML Web Page In-line Output:
Original Array
0 s
1 i
2 d
3 e
4 w
5 a
6 y
7 o
8 u
9 t
Sorted Array
5 a
2 d
3 e
1 i
7 o
0 s
9 t
8 u
4 w
6 y

References

1. Active Server Pages, http://msdn.microsoft.com/en-us/library/aa286483.aspx, updated 20Dec2012
2. ASP Overview, http://msdn.microsoft.com/en-us/library/ms524929%28v=vs.90%29.aspx, updated 21Dec2012
3. ASP Best Practices, http://technet.microsoft.com/en-us/library/cc939157.aspx, updated 15Apr2013
4. ASP Built-in Objects, http://msdn.microsoft.com/en-us/library/ie/ms524716(v=vs.90).aspx, updated 20Dec2012
5. Response Object, http://msdn.microsoft.com/en-us/library/ms525405(v=vs.90).aspx, updated 20Dec2012
6. Request Object, http://msdn.microsoft.com/en-us/library/ms524948(v=vs.90).aspx, updated 20Dec2012
7. Server Object (IIS), http://msdn.microsoft.com/en-us/library/ms525541(v=vs.90).aspx, updated 20Dec2012
8. Application Object (IIS), http://msdn.microsoft.com/en-us/library/ms525360(v=vs.90).aspx, updated 20Dec2012
9. Session Object (IIS), http://msdn.microsoft.com/en-us/library/ms524319(8v=vs.90).aspx, updated 20Dec2012
10. ASPError Object, http://msdn.microsoft.com/en-us/library/ms524942(v=vs.90).aspx, updated 20Dec2012
11. ObjectContext Object (IIS), http://msdn.microsoft.com/en-us/library/ms525667(v=vs.90).aspx, updated 20Dec2012
12. Debugging Global.asa Files, http://msdn.microsoft.com/en-us/library/aa291249(v=vs.71).aspx, updated 15Apr2013
13. How to: Debug Global.asa files, http://msdn.microsoft.com/en-us/library/ms241868(v=vs.80).aspx, updated 15Apr2013
14. Calling COM Components from ASP Pages, http://msdn.microsoft.com/en-us/library/ms524620(v=VS.90).aspx, updated 15Apr2013
15. IIS ASP Scripting Reference, http://msdn.microsoft.com/en-us/library/ms524664(v=vs.90).aspx, updated 15Apr2013
16. ASP Keywords, http://msdn.microsoft.com/en-us/library/ms524672(v=vs.90).aspx, updated 15Apr2013
17. Creating Simple ASP Pages, http://msdn.microsoft.com/en-us/library/ms524741(v=vs.90).aspx, updated 15Apr2013
18. Including Files in ASP Applications, http://msdn.microsoft.com/en-us/library/ms524876(v=vs.90).aspx, updated 15Apr2013
19. ASP Overview, http://msdn.microsoft.com/en-us/library/ms524929(v=vs.90).aspx, updated 15Apr2013
20. FileSystemObject Object, http://msdn.microsoft.com/en-us/library/z9ty6h50(v=vs.84).aspx, updated 14Mayr2013
21. http://msdn.microsoft.com/en-us/library/windows/desktop/ms675944(v=vs.85).aspx, ADO Object Model, updated 15Apr2013
22. ADO Fundamentals, http://msdn.microsoft.com/en-us/library/windows/desktop/ms680928(v=vs.85).aspx, updated 14Mayr2013

ID: 170100015 Last Updated: 2017/1/15 Revision: Ref:

Home (5)

Management

HBR (3)

Information

Recreation

Hobbies (7)

Culture

Chinese (1097)

English (336)

Reference (66)

Computer

Hardware (149)

Software

Application (187)

Digitization (24)

Numeric (19)

Programming

Web (644)

CSS (SC)

ASP.NET (SC)

HTML

Knowledge Base

Common Color (SC)

Html 401 Special (SC)

OS (389)

MS Windows

Windows10 (SC)

.NET Framework (SC)

DeskTop (7)

Knowledge

Mathematics

Formulas (8)

Number Theory (206)

Algebra (20)

Trigonometry (18)

Geometry (18)

Calculus (67)

Complex Analysis (21)

Engineering

Tables (8)

Mechanical

Mechanics (1)

Rigid Bodies

Statics (92)

Dynamics (37)

Fluid (5)

Control

Acoustics (19)

Biology (1)

Geography (1)