04/10/12 23:47:33
>>73
こういうことか？「有効数字」の意味とどの型をターゲットにているのかが
よく分らんが。とりあえずDoubleで。
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim BandWidth As Double = 0.5R
Dim LeftVal, RightVal, CenterVal As Double
Dim Epsilon As Double = 0
Do While BandWidth <> 0.0R
'LeftVal = 1.0R + Epsilon
'RightVal = 1.0R + Epsilon + BandWidth * 2
CenterVal = 1.0R + (Epsilon + BandWidth)
If CenterVal = 1.0R Then
Epsilon += BandWidth
End If
BandWidth /= 2
Loop