Module Module1
    Const N As Integer = 100

    Sub Main()
        Dim i As Integer
        Dim data(N) As Integer

        For i = 0 To N
            data(i) = Int(Rnd() * 1000)
        Next

        For i = 0 To N
            Console.Write(data(i).ToString("000") + " ")
        Next
        Console.WriteLine("")
        Console.WriteLine("何かキーを押してください")
        Console.ReadKey()

    End Sub

End Module