宝くじ分析で偶数奇数わけする

偶数奇数配列集計について、これはVBAですけど、２で割って、あまりがでるかでないかで
やってます。
最近、集計後の利用がわからないので、全然載せてないですけど
アクセスがあったので、もしかして、
やろうとしてるのかなって思いまして、
以下参考に

---

Public Function IsEven(siraberuNumer As Integer) As Boolean

If (siraberuNumer Mod 2) = 0 Then
IsEven = True
Else
IsEven = False
End If

End Function

---

If IsEven(調べる番号１.Value) = False Then
TextBox1.Value = "奇数"
Else
TextBox1.Value = "偶数"
End If
If IsEven(調べる番号２.Value) = False Then
TextBox1.Value = "奇数"
Else
TextBox1.Value = "偶数"
End If

---

javaでは、やってないのでわからないですが、
剰余のは％ででるから、
順次振り分けるフローにしますかね、
いや、
適当なこと言ってすみません、
なんか、クラスにありそうですし、

いや～それよりなにより、
ロトくじの集計はいまだにしてますが、
なにか、違った分析方法をみつけないと
でも、４等とか、当たってくれないと、
活力がでないですよ、

当然先週も１個どまりで、
結局、そのことに記事で触れることもありませんでした。

最近めっきりやる気はなくなり、
ロトくじネタは書いてないけど、
ちゃんと買ってるし、やっていますよ。