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 |
Direct link: https://paste.plurk.com/show/AhUYCKjFE6R2qKSZsLfq
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 |