Imports System
Module Program
Sub Main()
' Define the range parameters.
Const StartValue As Double = 0.0
Const StepSize As Double = 0.1
Const Count As Integer = 11 ' Generates 0.0 through 1.0 inclusive.
'
' Use an Integer loop counter.
' Each floating-point value is computed independently.
'
For i As Integer = 0 To Count - 1
Dim value As Double = StartValue + (i * StepSize)
Console.WriteLine(value.ToString("F1"))
Next
End Sub
End Module
' run:
'
' 0.0
' 0.1
' 0.2
' 0.3
' 0.4
' 0.5
' 0.6
' 0.7
' 0.8
' 0.9
' 1.0
'