とりあえずExcelのマクロ動かしてみた Sub Macro1() Dim i As Long Dim x(1) As Long Dim coin As Long Dim jibunnogaku As Long Dim koukannogaku As Long Dim koukanshinai As Long Dim koukansuru As Long
For i = 1 To 10000 Randomize x(0) = Int(Rnd(1) * 100000) + 1 x(1) = x(0) * 2 Randomize coin = Int(Rnd(1) * 2) If coin = 0 Then jibunnogaku = x(0) koukannogaku = x(1) Else jibunnogaku = x(1) koukannogaku = x(0) End If koukanshinai = koukanshinai + jibunnogaku koukansuru = koukansuru + koukannogaku Next i End Sub
