Fix - inconsistant?

[nishantp]

I have found a somewhat...intruiging anomaly in VB.

Close any instances of VB that are running (this is very important).
Open another one. Make a project with a form and a commandbutton. Add this code:

Private Sub Command1_Click()
    Me.Print Fix(0.42 * 100)
    Me.Print Fix(0.42 * 100)
End Sub

when you press the button, you should see a 42 and a 41...generated by the same code. That really puzzles me. If you press it again, it should give you 41 everytime, until you restart VB and run it again.

Any explanation?

[peet]

I get

41
41

VB6 SP 5 Win2k

[beachbum]

I get

47
kazoo

VBWollongong Win 1.0 Beta

[GlenW]

I get

41
41

VB6 SP 5 Win98SE

[nishantp]

This is on VB6 SP4.