Imports System
Public Class MainClass
Shared Sub Main()
Dim objRandom As New Random()
Dim intRandomNumber As Integer = 0
'Process the loop until intRandomNumber = 10
Do Until intRandomNumber = 10
'Get a random number between 0 and 24
intRandomNumber = objRandom.Next(25)
'Add the number to the list
System.Console.WriteLine(intRandomNumber)
Loop
End Sub
End Class
|