BASICの宿題はお前にまかせた

BASICの宿題はお前にまかせた at TECH

437:デフォルトの名無しさん
10/01/04 17:10:24
>>434

Dim n(5)
Randmize(Left$(Time$,2))
For i=0 To 10000
m=0
f=0
For j=1 To 5
n(j) = Int(Rnd()*50)+1
If n(j) > 36 Then f=f+1 Else m=m+1
Next j

If m=3 And f=2 Then c=c+1
Print c*100/i
Next

次ページ

続きを表示

1を表示