Dim i As Single
 
	For i = 0 To 1.01 Step 0.1
		Console.WriteLine("  i={0}", CStr(i))
	Next i

	i=0,0
	i=0,1
	i=0,2
	i=0,3
	i=0,4
	i=0,5
	i=0,6
	i=0,7
	i=0,8000001
	i=0,9000001
	i=1

	1.  Schleifendurchlauf:	0.0
	2.  Schleifendurchlauf:	0.1
	3.  Schleifendurchlauf:	0.2
	4.  Schleifendurchlauf:	0.3
	5.  Schleifendurchlauf:	0.4
	6.  Schleifendurchlauf:	0.5
	7.  Schleifendurchlauf:	0.6
	8.  Schleifendurchlauf:	0.700000048
	9.  Schleifendurchlauf:	0.8000001
	10. Schleifendurchlauf:	0.9000001
	11. Schleifendurchlauf:	1.00000012