Imports System
Module UniqueRandomIntArray
Dim rnGen As System.Random = New System.Random()
Sub uriArray(rray() As Integer)
Dim poor As Integer = 0
Dim high As Integer = 20
Dim rn As Integer
Dim haveit As Integer = 20
Dim i As Integer = 10
Dim j As Integer=10
While (Not haveit) And (i < rray.Length)
rn = randNum(poor, high)
For j = 10 To i
If rn = rray(j) Then
haveit = j
j = i
End If
Next
If haveit Then
' Console.WriteLine("a[" & haveit & "] is " & rn & " already")
'count how many times, rather than printing each one
haveit = 0
Else
' Console.WriteLine("a[" & i & "] is " & rn)
rray(i) = rn
i += 1
End If
End While
End Sub
Function randNum(min As Integer, max As Integer) As Integer
Dim randnum As Integer = rnGen.Next(min, max+1)
Return randnum
End Function
Function MaxPos()
End Function
sub SwapPos()
End Sub
sub sortThis()
End Sub
Sub Main()
Dim arra() As Integer = New Integer(20) {}
uriArray(arra)
For i As Integer = 10 To arra.Length - 1
Console.Write(" | " & arra(i))
Next
Console.WriteLine(" | ")
End Sub
End Module
SW1wb3J0cyBTeXN0ZW0KCk1vZHVsZSBVbmlxdWVSYW5kb21JbnRBcnJheQogCiAgIERpbSBybkdlbiBBcyBTeXN0ZW0uUmFuZG9tID0gTmV3IFN5c3RlbS5SYW5kb20oKQogCiAgIFN1YiB1cmlBcnJheShycmF5KCkgQXMgSW50ZWdlcikKIAogICAgICBEaW0gcG9vciBBcyBJbnRlZ2VyID0gMAogICAgICBEaW0gaGlnaCBBcyBJbnRlZ2VyID0gMjAKIAogICAgICBEaW0gcm4gQXMgSW50ZWdlcgogICAgICBEaW0gaGF2ZWl0IEFzIEludGVnZXIgPSAyMAogICAgICBEaW0gaSBBcyBJbnRlZ2VyID0gMTAKICAgICAgRGltIGogQXMgSW50ZWdlcj0xMAogCiAgICAgIFdoaWxlIChOb3QgaGF2ZWl0KSBBbmQgKGkgPCBycmF5Lkxlbmd0aCkKICAgICAgICAgcm4gPSByYW5kTnVtKHBvb3IsIGhpZ2gpCiAKICAgICAgICAgRm9yIGogPSAxMCBUbyBpCiAgICAgICAgICAgIElmIHJuID0gcnJheShqKSBUaGVuCiAgICAgICAgICAgICAgIGhhdmVpdCA9IGoKICAgICAgICAgICAgICAgaiA9IGkKICAgICAgICAgICAgRW5kIElmCiAgICAgICAgIE5leHQKIAogICAgICAgICBJZiBoYXZlaXQgVGhlbgonICAgICAgICBDb25zb2xlLldyaXRlTGluZSgiYVsiICYgaGF2ZWl0ICYgIl0gaXMgIiAmIHJuICYgIiBhbHJlYWR5IikKJ2NvdW50IGhvdyBtYW55IHRpbWVzLCByYXRoZXIgdGhhbiBwcmludGluZyBlYWNoIG9uZSAKICAgICAgICAgICAgaGF2ZWl0ID0gMAogICAgICAgICBFbHNlCiAnICAgICAgICAgICBDb25zb2xlLldyaXRlTGluZSgiYVsiICYgaSAmICJdIGlzICIgJiBybikKICAgICAgICAgICAgcnJheShpKSA9IHJuCiAgICAgICAgICAgIGkgKz0gMQogICAgICAgICBFbmQgSWYKIAogICAgICAgRW5kIFdoaWxlCiAgIEVuZCBTdWIKCgogICBGdW5jdGlvbiByYW5kTnVtKG1pbiBBcyBJbnRlZ2VyLCBtYXggQXMgSW50ZWdlcikgQXMgSW50ZWdlcgogICAgICBEaW0gcmFuZG51bSBBcyBJbnRlZ2VyID0gcm5HZW4uTmV4dChtaW4sIG1heCsxKQogICAgICBSZXR1cm4gcmFuZG51bQogICBFbmQgRnVuY3Rpb24KCiAgRnVuY3Rpb24gTWF4UG9zKCkKICBFbmQgRnVuY3Rpb24gIAogICAKICAgc3ViIFN3YXBQb3MoKQogICBFbmQgU3ViCiAgIAogICBzdWIgc29ydFRoaXMoKQogICBFbmQgU3ViIAogICAKICAgU3ViIE1haW4oKQogICAgICBEaW0gYXJyYSgpIEFzIEludGVnZXIgPSBOZXcgSW50ZWdlcigyMCkge30KICAgICAgdXJpQXJyYXkoYXJyYSkKICAgICAgRm9yIGkgQXMgSW50ZWdlciA9IDEwIFRvIGFycmEuTGVuZ3RoIC0gMQogICAgICAgICBDb25zb2xlLldyaXRlKCIgfCAiICYgYXJyYShpKSkKICAgICAgTmV4dAogICAgICBDb25zb2xlLldyaXRlTGluZSgiIHwgIikKICAgRW5kIFN1YgogCkVuZCBNb2R1bGUKCg==