Mega Code Archive

 

Categories / VB.Net Tutorial / Data Type

 

Precision Error

Module Module1     Sub Main()         Dim A As Single         'Dim A As Double         For A = 0.01 To 0.1 Step 0.01             If (A = 0.05) Then                 Console.WriteLine("Reached 0.05")             End If         Next         Console.WriteLine("Done with loop")     End Sub End Module Done with loop