Imports System.IO
Module Module1
Sub Main()
Dim myRandom As New Random
Dim myRandomIndex As Integer
Dim myOutputString As String
Dim myNumbers1 As Integer
Dim myNumbers2 As Integer
Dim myNumbers3 As Integer
Dim myNumbers4 As Integer
'Encase your StreamWriter in a Using block so that the file is Disposed
'correctly when the project ends and resources are returned to the system
Using myWriter As New StreamWriter("c:\temp\testrandom.txt")
'First we create a loop to do this 100 times
For myLoopCounter As Integer = 1 To 100
'Here we create a list of all the possible numbers that can be used in the project
'By declaring this NumberList variable here, the list is effectively reset for each
'iteration of the Loop even though we remove items as part of the loop.
Dim Numberlist As New List(Of Integer) From {1, 2, 3, 4, 5, 6, 7, 8, 9, 10}
'Firstly we get a random number from 0 to 9 which relates to an index in the NumberList variable
myRandomIndex = myRandom.Next(0, Numberlist.Count)
'We save the number at that particular index and set the second number to the same number
myNumbers1 = Numberlist(myRandomIndex)
myNumbers2 = myNumbers1
'Now we remove the number in the list at the specified index so that we do not pick that number again
Numberlist.RemoveAt(myRandomIndex)
'Now we just do the same thing again for however many times you want. i.e:-
'Get a Random Index
'Save the Number at that Index
'Delete the Number at that Index
myRandomIndex = myRandom.Next(0, Numberlist.Count)
myNumbers3 = Numberlist(myRandomIndex)
Numberlist.RemoveAt(myRandomIndex)
myRandomIndex = myRandom.Next(0, Numberlist.Count)
myNumbers4 = Numberlist(myRandomIndex)
Numberlist.RemoveAt(myRandomIndex)
'Now we build the string and output to a file
myOutputString = myNumbers1.ToString + ControlChars.Tab + myNumbers2.ToString + ControlChars.Tab + myNumbers3.ToString + ControlChars.Tab + myNumbers4.ToString
myWriter.WriteLine(myOutputString)
Next
End Using
MsgBox("Done!")
End Sub
End Module
