Static Array
ตัวอย่าง Example
<SCRIPT LANGUAGE=VB RUNAT=SERVER>
Sub Page_Load()
Dim A(6) As Integer
Dim i, j, Y As Integer
A(1) = 30
A(2) = 2
A(3) = 8
A(4) = 15
A(5) = 11
A(6) = 1
For i = 1 To 6
label1.Text = label1.Text & A(i) & " "
Next
For i = 2 To 6
Y = A(i)
j = i - 1
Do While Y < A(j)
A(j + 1) = A(j)
j = j - 1
Loop
A(j + 1) = Y
Next
For i = 1 To 6
label2.Text = label2.Text & A(i) & " "
Next
End Sub
</SCRIPT>
<CENTER><H2>INSERTION SORT</H2></CENTER>
<u>Data before storing</u><br>
<asp:label id=label1 runat=server />
<p>
<u>Data after storing</u><br>
<asp:label id=label2 runat=server />
ผลลัพธ์
INSERTION SORT
Data before storing
30 2 8 15 11 1
Data after storing
1 2 8 11 15 30
Powered by ASPThai.Net
Copyright ©2002-2004 ASPThai
.
