в 16:40, 26 мая 2010

2010-05-26T16:40:30Z

Admin: 1 версия

2010-05-26T12:53:51Z

1 версия

Новая страница

==Creates random numbers and sorts them using bubble sort==

<source lang="vbnet">Module Tester
Sub Main()
Dim array As Integer() = New Integer(9) {}
Dim randomNumber As Random = New Random()
Dim i As Integer

For i = 0 To array.GetUpperBound(0)
array(i) = randomNumber.Next(100)
Console.Write(array(i)& " ")
Next
BubbleSort(array)
Console.WriteLine("")
For i = 0 To array.GetUpperBound(0)
Console.Write(array(i)& " ")
Next
End Sub
Sub BubbleSort(ByVal sortArray As Integer())
Dim pass, i As Integer
For pass = 1 To sortArray.GetUpperBound(0)
For i = 0 To sortArray.GetUpperBound(0) - 1
If sortArray(i) > sortArray(i + 1) Then
Swap(sortArray, i)
End If
Next
Next
End Sub " BubbleSort
Sub Swap(ByVal swapArray As Integer(), _
ByVal first As Integer)
Dim hold As Integer
hold = swapArray(first)
swapArray(first) = swapArray(first + 1)
swapArray(first + 1) = hold
End Sub " Swap
End Module</source>
<pre class=codeResult>11 18 28 60 97 59 23 23 25 14
11 14 18 23 23 25 28 59 60 97 "</pre>

← Предыдущая	Версия 16:40, 26 мая 2010
(нет различий)

VB.Net Tutorial/Collections/Sort - История изменений

в 16:40, 26 мая 2010

Admin: 1 версия