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

名前

ホームページ(ブログ、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) * 2 T = 1 / 4 X = 1 'A-Bが小数第7桁までいくか確認 If (A - B) < 0.000001 Then '満たした場合 π = (A + B) ^ 2 / 4 * T txtAns = π '満たさなかった場合 Else 'ガウス公式で計算開始 Y = A A = (A + B) / 2 B = Sqr(2) * B * Y T = T - X * (Y - A) ^ 2 X = 2 * X '確認2 If (A - B) < 0.000001 Then '満たした場合 π = (A + B) ^ 2 / 4 * T txtAns = π '満たさなかった場合以下同じものが続く と、わかりづらいかもしれませんが、公式に変数をあてはめて A-Bの値が、0.000001以下になったときに、πを求める式にしたつもりです。 ですが、実際は0.000001以下になる前にπを求める式にいってる気がします。 自分的には変数を変化させられてないのかな？と思うのですが ここが違う、などご指摘ありましたらご教授お願いします。