public class Test public Shared Sub Main For x As Single = 1 To 2 Step 1 / 7 Console.WriteLine(x) Next x End SubEnd class 11.1428571.2857141.4285721.5714291.7142861.857143