VB.NET質問ｽﾚ (Part7) - 暇つぶし2ch

VB.NET質問ｽﾚ (Part7) ..

83:デフォルトの名無しさん
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

次ページ