偶数奇数配列集計について、これはVBAですけど、2で割って、あまりがでるかでないかで
やってます。
最近、集計後の利用がわからないので、全然載せてないですけど
アクセスがあったので、もしかして、
やろうとしてるのかなって思いまして、
以下参考に
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(調べる番号1.Value) = False Then
TextBox1.Value = "奇数"
Else
TextBox1.Value = "偶数"
End If
If IsEven(調べる番号2.Value) = False Then
TextBox1.Value = "奇数"
Else
TextBox1.Value = "偶数"
End If
javaでは、やってないのでわからないですが、
剰余のは%ででるから、
順次振り分けるフローにしますかね、
いや、
適当なこと言ってすみません、
なんか、クラスにありそうですし、
いや~それよりなにより、
ロトくじの集計はいまだにしてますが、
なにか、違った分析方法をみつけないと
でも、4等とか、当たってくれないと、
活力がでないですよ、
当然先週も1個どまりで、
結局、そのことに記事で触れることもありませんでした。
最近めっきりやる気はなくなり、
ロトくじネタは書いてないけど、
ちゃんと買ってるし、やっていますよ。
やってます。
最近、集計後の利用がわからないので、全然載せてないですけど
アクセスがあったので、もしかして、
やろうとしてるのかなって思いまして、
以下参考に
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(調べる番号1.Value) = False Then
TextBox1.Value = "奇数"
Else
TextBox1.Value = "偶数"
End If
If IsEven(調べる番号2.Value) = False Then
TextBox1.Value = "奇数"
Else
TextBox1.Value = "偶数"
End If
javaでは、やってないのでわからないですが、
剰余のは%ででるから、
順次振り分けるフローにしますかね、
いや、
適当なこと言ってすみません、
なんか、クラスにありそうですし、
いや~それよりなにより、
ロトくじの集計はいまだにしてますが、
なにか、違った分析方法をみつけないと
でも、4等とか、当たってくれないと、
活力がでないですよ、
当然先週も1個どまりで、
結局、そのことに記事で触れることもありませんでした。
最近めっきりやる気はなくなり、
ロトくじネタは書いてないけど、
ちゃんと買ってるし、やっていますよ。