Imports System

Public Module Module1

    Public Sub Main()

        Console.WriteLine("Hello World")

        hi()

        Dim Output As String = ""

        Dim RandomNumber As Integer

        Dim n As Integer

        Dim NumberArray(1000) As Integer

        Dim rnd As New Random()

​

        For n = 1 To 1000

            RandomNumber = rnd* 100 + 1

            NumberArray(n) = RandomNumber

​

        Next

    End Sub

​

Private Sub hi()

        Dim randomNum As New Random()

        Dim i As Integer

        Dim SampleArray(1000) As Double

        For i = 0 To 1000

            SampleArray(i) = randomNum.Next(1, 100000)

        Next

    End Sub

End Module