Imports System.IO
Module Module1
Sub Main()
Using writer As StreamWriter = New StreamWriter("D:\\numbers.txt")
Dim i As Integer
For i = 1 To 20 Step 2
writer.WriteLine("{0:0.0} ", i)
Next i
End Using
End Sub
' run:
'
' 1.0
' 3.0
' 5.0
' 7.0
' 9.0
' 11.0
' 13.0
' 15.0
' 17.0
' 19.0
End Module