Option Strict On Imports System Module Module1 Sub Main( ) Dim loopCounter As Single For loopCounter = 0.5 To 9 Step 0.5 Console.WriteLine("loopCounter: {0}", loopCounter) Next End Sub 'Main End Module
loopCounter: 0.5 loopCounter: 1 loopCounter: 1.5 loopCounter: 2 loopCounter: 2.5 loopCounter: 3 loopCounter: 3.5 loopCounter: 4 loopCounter: 4.5 loopCounter: 5 loopCounter: 5.5 loopCounter: 6 loopCounter: 6.5 loopCounter: 7 loopCounter: 7.5 loopCounter: 8 loopCounter: 8.5 loopCounter: 9