エクセルvbaの円周率

最近の書き込み件数: 今日 0件、昨日 0件
未読分:1件

最新20件 最新50件 最新100件 最新200件 200件以前
昨日以降(0) 2日前以降(0) 3日前以降(0) 4日前以降(0) 5日前以降(0)


Excel VBAでIEを思いのままに操作できるプログラミング術 Excel 2013/2010/2007/2003対応

近田 伸矢, 植木 悠二, 上田 寛

IEのデータ収集&自動操作のプログラミング本はこの1冊だけ!IEの起動やポップアップウィンドウ、表示を制御する基本的なコードはもちろん、テキストボックスやラジオボタン、表、ハイパーリンクなどのHTML部品を制御する方法など、自動操作に欠かせないノウハウを丁寧に解説。

Message#1 2014年12月26日(金)09時37分
From: 後ろ指
返事 削除 変更
エクセルVBAのマクロについてです。
円周率を球の体積を用いてモンテカルロ法によって求めるプログラムを教えていただきたいです。
ヒントとして、球の体積ではなく、円の面積から求めるプログラムは教えてもらったのですが、
無知なものでさっぱりわかりませんでした。
ご教授願いたく質問させていただきました。
以下に書きますのがヒントのものです。

Sub 円周率()
Dim xx As Double
Dim yy As Double
Dim rr As Double
Dim nn As Long
Dim ii As Long
Dim nmax As Long
Dim ens As Double
nmax = InputBox("最大試行回数")
MsgBox ("saidai" & nmax)
ii = 0
For nn = 1 To nmax
xx = Rnd(1)
yy = Rnd(2)
rr = xx * xx + yy * yy
If Sqr(rr) <= 1# Then
ii = ii + 1
Else: ii = ii
End If
Next nn
MsgBox ("current ii" & ii)
MsgBox ("nmax" & nmax)
ens = 4# * CDbl(ii) / CDbl(nmax)
MsgBox ("円周率" & ens)
End Sub

何卒よろしくお願いいたします。

補足
ヒントのプログラムの内容を少しいじって体積から円周率を求めよ、とのことでした。
言葉足らずで申し訳ございません。

最新20件 最新50件 最新100件 最新200件 200件以前
昨日以降 2日前以降 3日前以降 4日前以降 5日前以降

ExcelのVBAについてのQ&A掲示板

↑ExcelのVBA全般について分からない事があればこちらの掲示板よりご質問ください^^

VBAのInternetExplorer操作入門

↑ExcelのVBAをマスターできたら、エクセルVBAのIE(InternetExplorer)操作にも挑戦してみてください^^

VBAのIE制御入門RSS

RSSフィードを登録すると最新記事を受け取ることができます。

VBAIE操作のスカイプレッスン

エクセルVBAのステートメント

こちらでは、エクセルVBAの事例で利用したステートメントをまとめたものです。ExcelのVBAには様々な機能が用意されていますので一度ご確認ください。

スポンサー リンク

エクセルVBAのオブジェクト

こちらでは、エクセルVBAの事例で利用したオブジェクトをまとめたものです。ExcelのVBAには様々な機能が用意されていますので一度ご確認ください。

スポンサー リンク

エクセルVBAのプロパティ

こちらでは、エクセルVBAの事例で利用したオブジェクトのプロパティをまとめたものです。ExcelのVBAには様々な機能が用意されていますので一度ご確認ください。

エクセルVBAのメソッド

こちらでは、エクセルVBAの事例で利用したオブジェクトのメソッドをまとめたものです。ExcelのVBAには様々な機能が用意されていますので一度ご確認ください。

エクセルVBAのイベント

こちらでは、エクセルVBAの事例で利用したオブジェクトのイベントをまとめたものです。ExcelのVBAには様々な機能が用意されていますので一度ご確認ください。

dmb.cgi Ver. 1.068
Copyright(C) 1997-2014, hidekik.com