1
2
3
4
5
6
7
8
9
10
11
12
For i = 0 To 5
K(i)=int(rnd*49+1)
next i
For i = 0 To 4
For j = i + 1 To 5
If K(i) > K(j) Then
K(i) = K(j)
K(j) = t
t = K(i)
End If
Next j
Next i