ϿƤޤ
ФɤդȤ߹碌ͤ
θ222ܤФޤ
6ĤĺƤФդ˴ޤޤΤ
դȤ߹碌¤줽Ǥ
1124ڡ 0:10:11 38596
N.Nishi
פ֤Υꥢ륿໲äǤ
1124ڡ 0:15:55 38597
ͣ.ǥ
Ĥĺ㤨СäüȤФϣ̤ꡣãĤФɤäȤȡ¾ФΣܤɤϣ̤ꡣ
äơФɤϡǡ4*28̤
Фξüɤϡ줾졡̤ꤺĤΤ
͡8*2*2*2ˡ64̤ˡȤޤ
1124ڡ 0:20:27 38598
CRYING DOLPHIN
ʾˤɤФƤơ餤ʣʡȡͤǤ褯狼줭򤷤Ƥޤ

դ᤿ñǡ
ޤդ4̤ǡ줾ˡʾˡʾˤ
Ʊդɤ2̤ꤺĤΤǡ428̤ꡣ
ޤΤȤʾˡʾˤƱɤϡ
줾Фդˤ2̤ꤺġ2228̤ꤢ롣
ȤȤǡ8864̤ꡣ

ʬνФƤΤ10̰ʤȤϾ𤱤ʤorz
ï⤤ʤԳϡ 1124ڡ 0:20:42 HomePage:ƻ38599
ϻǯ
ФɤդȤ߹碌ʬ餺˺äƤޤ
ɤϡ
ߣߣࣳ᣸ФɤդȤ߹碌
(ߣߣ)᣶
ʤߤˡ¿ѷʬˡˤʤΤϤʤǤ
1124ڡ 0:29:31 38600
ͤ
ǽФդޤ
ȬΤξȾʬ飱ġϤࣴդ飱ġȾʬ飱
ʤΤϤʤȤʤ狼
ȾʬǤդΣդФդϤͤΰ֤Σ
ȾʬϡΣդȤˤͤƣĤˤʤޤ
ߣߣ᣸
Ȥϡ줾֡Ĥηߣߣǡߣ᣶
裲롼ס 1124ڡ 0:49:33 HomePage:38601

3Ĥξ3ĤξϻĤʤΤǡ֤ͤɤäѷΤΤȤλΤΤ˾ʬƽФޤѷ㤨ABCˤϣ̤ꤢФΰƣ̤ꡢλ㤨ACFˤϣ̤ꤢФƤ줾죴̤ꡣäƣߣܣߣ᣶
1124ڡ 2:05:55 38602
aibo
μ248̤ꡢդɤ8̤
88=64̤Ǥο϶
1124ڡ 2:09:13 38603
ߤ
пդɤܤʤ褦֤롣
ȬΤξʣˢʣ¡šˡɤ梪ʣơˤΣդ
֤Ȥˤʤ롣
äΰϣߣ᣸̤ꡣ

ο֤ʤ⤦ĤˤʤΤǡդȤˣ̤ꡣ
դɤϣ᣸̤ꡣ

ʾꡢߣ᣶̤ꡣ
1124ڡ 10:15:03 38604
uchinyan
Ϥˤϡơϡ
ˡ̤˿ɤ뤫դ˿ɤ뤫̤βˡꤽǤʴǡ

ޤϡ̤ʸˤ̾դƤΤǡ̵ڤդϰۤʤΤȤƶ̤ΤȻפޤ
ϡȬΤžҤä֤ꤷȤˡ֤ȤƤƱ˸ΤǤ̤롤ȹͤ뤳Ȥ̣ޤ
ǹͤޤ

(ˡ1)
ޤ̤֤Ĥɤޤ
(1)ꡤ̤ 6 ĤΤ 3 ĤĤʬޤΤȤθȼΤ褦ˤʤޤ
ȬΤθ礦̤ѷȤʬ硧
4 Ȥ֤Ĥ 2 ɤ뤫顤4 * 2 = 8 ̤ꡣ
֤ϡ֤ءפλȤ߹碌ξ硧
㤨 A ޤޤޤʤܤ 6 Ȥ֤Ĥ 2 ɤ뤫顤6 * 2 = 12 ̤ꡣ
ˡդФɤޤ
ѷξ硧
(2)(3)ѷγĺ̤ 2 ̤ꤺĤͤޤ(4)Τ 1 + 1 = 2 ̤˹ʤޤ
ǡ8 * 2 = 16 ̤ꡤˤʤޤ
֤ϡ֤ءפλξ硧
(2)(3)ꡤξü 3 ̤ꤺġ 2 ̤꤬ͤޤ(4)Τ 1 + 2 + 1 = 4 ̤˹ʤޤ
ǡ12 * 4 = 48 ̤ꡤˤʤޤ
ʾǤ٤ƤʤΤǡ16 + 48 = 64 ̤ꡤˤʤޤ

(ˡ2)
ޤդФɤޤ
(2)դ 3 Ӥޤ(4)ꡤޤ A ޤդ 4 ̤ꡤ줾Ф 2 ̤ꤺĤǡ4 * 2 = 8 ̤ꡤǤ
ˡ̤֤Ĥɤޤ
(3)դξüοϰۤʤΤ 2 ̤ꤺ 3 ܤ 2 * 2 * 2 = 8 ̤ꡤΤȤ(1)ϼƤޤ
ǡ8 * 8 = 64 ̤ꡤˤʤޤ
ͥνȡ 1124ڡ 11:33:58 38605
uchinyan
ǼĤɤߤޤ

#38596#38598#38599#38600#38601#38603#38604#38605(ˡ1)
ޤդɤɤͤ˶̤ɤɤͤˡ

#38602#8605(ˡ2)
ޤ̤ɤɤͤդɤɤͤˡ
ͥνȡ 1124ڡ 11:56:02 MAIL:uchi@sco.bekkoame.ne.jp 38606

ĺ֤Ȥ硢ĺɤʬϣᣱ̤
ʬ򤷤ȤˡΩΤΤ̤ѷĺƱ쿧Ȥʤä硢դɤϣ̤ꡦʣ
ʳξϣ̤ꡦʣ
̤ΤʣˤΥѥϣ̤ꡢʣˤΥѥϣ̤ꡢĺĤξͤƣܤФΤǡʣߣܣߣˡߣ᣶̤
1124ڡ 12:03:01 38607
abcba@jugglermoka
褦䤯PCĶˤɤ夭áʬ׻88=64Ǥ
1124ڡ 14:35:18 38608
???
Option Explicit
Dim tama(3) As Integer
Dim hen(3) As Integer
Sub Macro1()
Cells(1, 1).Value = 0
Call saiki1(1)
Range("A1").Select
End Sub
Sub saiki1(ByVal n As Integer) '֤ζ̤
If n = 1 Then
tama(1) = 1
Else
tama(n) = tama(n - 1) + 1
End If
While tama(n) <= 6
If n < 3 Then
Call saiki1(n + 1)
Else
Call saiki2(1)
End If
tama(n) = tama(n) + 1
Wend
End Sub
Sub saiki2(ByVal n As Integer) 'Фդ
If n = 1 Then
hen(1) = 1
Else
hen(n) = hen(n - 1) + 1
End If
While hen(n) <= 12
If n < 3 Then
Call saiki2(n + 1)
Else
Call check(1)
End If
hen(n) = hen(n) + 1
Wend
End Sub
Sub check(ByVal x As Integer) 'Υå
Dim a(6) As Integer
Dim b(6) As Integer
Dim dame As Integer
Dim j As Integer
Dim jj As Integer
For j = 1 To 6
a(j) = 2
Next j
For j = 1 To 3 '1:ֶ, 2:Ķ
a(tama(j)) = 1
Next j
'3ܤФդξüϰۤʤ뿧
dame = 0
j = 1
While dame = 0 And j <= 3
If a(f(henn(hen(j)), 1)) = a(f(henn(hen(j)), 2)) Then
dame = 1
Else
j = j + 1
End If
Wend
If dame Then 'ξüζ̤οƱ
Exit Sub
End If
'Фդ˴ޤޤʤĺʤ
For j = 1 To 6
b(j) = 0
Next j
For j = 1 To 3
For jj = 1 To 2 '1:ĺȤФ, 0:ĺȤФʤ
b(f(henn(hen(j)), jj)) = 1
Next jj
Next j
dame = 0
j = 1
While dame = 0 And j <= 6
If b(j) = 0 Then
dame = 1
Else
j = j + 1
End If
Wend
If dame Then 'Фʤĺͭ
Exit Sub
End If

Cells(1, 1).Value = Cells(1, 1).Value + 1
For j = 1 To 6
Cells(Cells(1, 1).Value, j + 1).Value = ball(j) & ":" & iro(a(j))
Next j
For j = 1 To 3
Cells(Cells(1, 1).Value, j + 7).Value = henn(hen(j))
Next j
Range("B" & Cells(1, 1).Value).Select
End Sub
Private Function iro(ByVal n As Integer) As String
If n = 1 Then
iro = ""
Else
iro = ""
End If
End Function
Private Function ball(ByVal n As Integer) As String
Select Case n
Case 1
ball = "A"
Case 2
ball = "B"
Case 3
ball = "C"
Case 4
ball = "D"
Case 5
ball = "E"
Case Else
ball = "F"
End Select
End Function
Private Function henn(ByVal n As Integer) As String
Select Case n
Case 1
henn = "AB"
Case 2
henn = "AC"
Case 3
henn = "AD"
Case 4
henn = "AE"
Case 5
henn = "BC"
Case 6
henn = "BE"
Case 7
henn = "BF"
Case 8
henn = "CD"
Case 9
henn = "CF"
Case 10
henn = "DE"
Case 11
henn = "DF"
Case Else
henn = "EF"
End Select
End Function
Private Function f(ByVal x As String, ByVal i As Integer) As Integer
Select Case Mid(x, i, 1)
Case "A"
f = 1
Case "B"
f = 2
Case "C"
f = 3
Case "D"
f = 4
Case "E"
f = 5
Case "F"
f = 6
End Select
End Function
1124ڡ 16:20:53 38609
wowka
꤬Ȥޤ
1124ڡ 19:06:35 38610
imai
̤4ܡƤ̤2
դ֤Ĥؤ2̤
ߣߣߣߣ᣶
1125ʶ 14:01:07 38611
fumio
Ϥ褦ޤ
īĴҤɤߤǤϤϤϡ
ǤϤޤ
1126ڡ 6:47:43 38612
hhirorisuu
ABCDEFABCFDEACBEDFACBFDEADBCEF
ADBECFAEBCDFAEBFCD8̤ŤĤ88=64
1127 11:38:58 38613