Imports System

Public Class main
    Public Shared Sub Main()
        Dim val As Double
        Dim x As Integer
        val = 0.0
        Do While x < 100
            Console.writeLine(""&val)
            val = val + 0.1
            x = x + 1
        Loop
    End Sub
End Class