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