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

名前

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

本文 Private Sub Command1_Click() '変数の宣言 Dim A As Double Dim B As Double Dim T As Double Dim X As Double Dim Y As Double Dim PI As Double '初期値設定 A = 1 B = 1 / Sqr(2) T = 1 / 4 X = 1 Y = A 'A-Bが小数第7桁までいくか確認 Do Until Abs(A - B) < 0.0000001 'ガウス公式で計算開始 Y = A A = (A + B) / 2 B = Sqr(B * Y) T = T - X * (Y - A) ^ 2 X = 2 * X Loop '満たした場合 PI = (A + B) ^ 2 / (4 * T) txtAns = PI End Sub にて解決いたしました！ PI = (A + B) ^ 2 / (4 * T) の、4 * Tに（）が抜けていたために計算結果が違ってきてたようです！ 質問に答えてくれた方々本当にありがとうございましたm(_)m