変数を変化させるには？ (ID:124885)

名前

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

本文 ああ・・問題はそこではなかったみたいです； Private Sub Command1_Click() '変数の宣言 Dim A As Single Dim B As Single Dim T As Single Dim X As Single Dim Y As Single Dim π As Single '初期値設定 A = 1 B = 1 / Sqr(2) T = 1 / 4 X = 1 Y = A 'A-Bが小数第7桁までいくか確認 If Abs(A - B) < 0.000001 Then '満たした場合 π = (A + B) ^ 2 / 4 * T txtAns = π '満たさなかった場合 Else 'ガウス公式で計算開始 Y = A A = (A + B) / 2 B = Sqr(B * Y) T = T - X * (Y - A) ^ 2 X = 2 * X '確認2 If Abs(A - B) < 0.000001 Then '満たした場合 π = (A + B) ^ 2 / 4 * T txtAns = π '満たさなかった場合 Else 'ガウス公式で計算開始 Y = A A = (A + B) / 2 B = Sqr(B * Y) T = T - X * (Y - A) ^ 2 X = 2 * X '確認3 If Abs(A - B) < 0.000001 Then '満たした場合 π = (A + B) ^ 2 / 4 * T txtAns = π '満たさなかった場合 Else 'ガウス公式で計算開始 Y = A A = (A + B) / 2 B = Sqr(B * Y) T = T - X * (Y - A) ^ 2 X = 2 * X '確認4 If Abs(A - B) < 0.000001 Then '満たした場合 π = (A + B) ^ 2 / 4 * T txtAns = π '満たさなかった場合 Else 'ガウス公式で計算開始 Y = A A = (A + B) / 2 B = Sqr(B * Y) T = T - X * (Y - A) ^ 2 X = 2 * X End If End If End If End If End Sub で、最後のIfで条件を満たし、ウォッチでは3.14〜と答えがでる数値でした。 ですが、πは0.16となっているので、細かいミスだと思います。 少し自力でやってみます！