Ｆｏｒ文を使えば円周率πが結構な近似で求められるのです。
円周率πは半径1の円の面積に等しいので、半径の円の面積を求めればよいのです。
中心が原点で半径の１円の方程式は、
です。
，
の範囲内では
という式になります。これを
の範囲で積分すれば１／４円の面積が求まります。そして、それを4倍すれば円の面積すなわち円周率になるというわけです。
サンプルプログラムをダブルで開いて、Ａｌｔ＋Ｆ１１でVisual Ｂａｓｉｃを開いてみてください。
プログラムは、次の単純なものです。
Private Sub CommandButton1_Click()
Dim x, dx, s As Double
dx = Cells(1, 12)
s = 0
For x = dx To 1 Step dx
s = s + Sqr(1 - x * x) * dx
Next
Cells(3, 12) = 4 * s
End Sub
Sqr(1 - x * x）は
に相当します。Sqr()は()内の数の平方根を求める式です。エクセルに戻って頂くとわかりますが、デフォルトは刻み幅0.00001になっていますが、いろいろ変更して実行ボタンを押してください。
刻み幅0.1だと２．９０４５・・・、0.01なら３．１２０・・・、0.001なら３．１３９・・・、0.0001なら３．１４１３９・・・、
0.00001なら３．１４１５７・・・、0.000001なら３．１４１５９・・・というように刻み幅を小さくしていけばπ（＝３．１４１５９２・・・）に近づいていくことがわかると思います。
