Imports System

Public Module Module1

    Public Sub Main()

        dim number as double

        dim rand as new random

        number=(rand.nextdouble()*150.0)+100.0

        console.writeline(number)

        console.writeline(" ")

        console.writeline("\\------\\------\\------\\-------\\-------\\-----\\------\\------\\------\\------\\-------\\-------\\")

        console.writeline(" ")

        for i=1 to 10

        number=rand.next(30)

    console.write(number & "  ")

next

​

    End Sub

End Module