adan99のプロフィール

まだＨをした事がありません。 この間Ｈする機会があったのですが、入りませんでした。 今週末またお泊りするのですが、相手とそういう事になるとは思っていなく、人のＨ話にも適当に合わせていたという事もあり、彼は処女だとは思っていません。 30手前にもなるし、今更言えず、「２年位Ｈしてないから、痛いかもしれないから優しくしてね」みたいな嘘をついちゃおうかとも思ってます。 やっぱ、まずいでしょうか。 痛がって血も出たらバレますかね・・・。

円周率を求めるプログラムを習い自分で入力してみました。以下のものです（質問上不要な部分もあるかもしれませんが、どこまで載せればいいのか分かりませんでしたのでほとんど載せちゃいます） Sub CalcPi() Const NumOfSim = 20000 　　　 ＿＿＿＿省略＿＿＿＿＿　 Randomize counter = 0 For i = 1 To NumOfSim XRand = Rnd() * 2 - 1# YRand = Rnd() * 2 - 1# Worksheets("sheet1").Cells(i, 5) = XRand Worksheets("sheet1").Cells(i, 6) = YRand distance = (XRand ^ 2 + YRand ^ 2) ^ (0.5) If distance <= 1# Then counter = counter + 1 End If Worksheets("sheet1").Cells(3, 1) = i Next i SimPi = counter / NumOfSim * 4 Worksheets("sheet1").Cells(1, 1) = SimPi End Sub このプログラムの２万回を１０万回にしたらエラーメッセージが出て「オーバーフロー」となりました。 そこでお聞きしたいのですが、 （１）１０万回でもエラーが出ないようにするにはどのような命令を追加すればいいのでしょうか？ （２）エラーが出るのはNumOfSimに確保されているメモリーの容量（表現が正しいか分かりません）が足りないからなんでしょうか？ なにぶんど初心者で（２）は噛んで含めるようにお願いいたします。