繰り返し処理 (ID:120844)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 小数点が入った比較をする際に このような感じでしています。 0〜10まで0.1刻みで比較していく Dim g As Integer Dim Range As Single g = 0 'カウンター Range = 0 'カウンター Do Until g = 99 If ResPons > Range And ResPons <= Range + 0.1 Then Respons_Count(g) = Respons_Count(g) + 1 Exit Do Else g = g + 1 Range = Range + 0.1 End If Loop 繰返し回数が増えるとRangeの値がおかしくなっていきます。 Range=3.99998とかになります。 これの対処法ってどうすればよろしいでしょうか？