river_history
§򸫤Ĥ뤳Ȥʤ夲Τǡ줫ˡ§򸫤ĤƤߤޤ
1114ڡ 0:06:56 41098
Ĺ
ʿޣޣȡˤϡʿޣޣȡˤǤ͡

Ϥޤޤġ 1114ڡ 0:07:12 HomePage:åλؤ41099
abcba@baLLjugglermoka
Ѥ144濴114פ100
1114ڡ 0:09:03 41100
ߤ뤯
Ƚƻͥѥ˾櫓
1114ڡ 0:09:32 41101

ʬʤ򤭤ޤоȤޤ͡
ޤޤǹͤOK
ä񤯤ȡͶȤ56̤ꡢ楹Ȥ44̤
­100̤Ǥ
1114ڡ 0:11:04 41102
ߤ
ʥѤΥޤ򥹥ȤȤѥ
ѤΥޢ̤γѤΥޡ̤
ѤΥޢΥޡ̤
ѤΥޢȯƱѤΥޡ̤
ʾˤƽȯγѤΥޤϣꤢΤǡʣܣܣˡߣᣵ̤
ʥΥޤ򥹥ȤȤѥ
ΥޢѤΥޡʣꤢˡߣᣲ̤
ΥޢΥޡʣܤˡߣᣲ̤

ꡢܣܣᣱ̤ꡣ
1114ڡ 0:18:36 41103

ˤƥޤȷҤ褦˹ͤȡ3̤ꤢ뤬4ġ4̤ꤢ뤬4ġäơ4x(3^2+4^2)=100ȹͤޤ
1114ڡ 0:22:21 41104
Mr.ǥ
ʳѤΥޢѤΥޡˤΥ롼....4*2*432̤
ʳѤΥޢΥޡˤΥ롼....4*2*324̤
ΥޢѤΥޡˤΥ롼....Ʊ24̤
ΥޢΥޡˤΥ롼....1*4*1+4ˡ20̤
ä
3224*220100̤ˡȤޤ
1114ڡ 0:36:58 41105

Ѥȿ˾ʬޤ
ѤΥޡʣ̤ˢʣ̤ˢΥʣ̤ˢʣ̤ˢޡʣ̤
Υʣ̤ˢʣ̤ˢޡʣ̤
ǡߣߡʣܣˡᣵ̤
Υޡʣ̤ˢʣ̤ˢΥʣ̤ˢʣ̤ˢޡʣ̤
Υʣ̤ˢʣ̤ˢޡʣ̤
ǡߡʣܣߣˡᣴ̤
ףܣᣱ̤ˤʤޤ
1114ڡ 1:12:38 41106
fumio
Ϥ褦ޤ
ǤϤǤϤޤ͡
1114ڡ 5:43:17 41107
(Keigei)
դܤ֥פ֥פ̤äơ֥ޡפ˹Ԥˡϣ̤ꡢ
äƤΡ֥פ̤֥ޥ륵ޡפ ߣ᣹̤ꡢ
˶ᤤ֥פ֥פ̤äơ֥ޡפ˹Ԥˡϣ̤ꡢ
äƤΡ֥פ̤֥ޥ륵ޡפ ߣᣱ̤ꡢ
Ρ֥פ⣴ĤĤ뤫顢(ܣ)ߣᣱ ̤Ǥ
1114ڡ 6:04:59 41108
ϥ饮㡼ƥ
Ϥ褦ޤǧڤǤߤޤ󡣤ʤˤ󤢤ȤϻפޤǤ
1114ڡ 6:25:48 HomePage:湩ؤ˥41109
takasi
֥פơ٤礦֥פ12ܤ̤Τ1ĤޤΤ
4*3^2+4*4^2=100Ǥ
1114ڡ 9:12:29 41110
uchinyan
Ϥˤϡơϡ
ϡ֡񤷤˸ޤäȹͤȴñǤʴǡ

ƤߤСޥ륵ޤܤΥθΥޤϰդ˷ޤ뤳Ȥʬޤ
ǡθΥθĿޤ
äơǽΥޤβΥβΥβΥθĿ­夲ФǤ
ޤ϶ 4 Ĥ 1 ĤΤǡоθơ
(3 + 4) * 2 * 4 + (3 + 4 + 4) * 4 = 56 + 44 = 100 ̤
ˤʤޤ

ǽ顤ܤơޥ륵ꤷƼ餷ޤ (^^;
ͥνȡ 1114ڡ 12:31:42 MAIL:uchi@sco.bekkoame.ne.jp 41111
uchinyan
ǼĤɤߤޤ
͡Ǥ󲿤餫ε§򸫤ĤƤ˴Ťƿ롤ȤˡΤ褦Ǥ͡
ͥνȡ 1114ڡ 12:40:55 MAIL:uchi@sco.bekkoame.ne.jp 41112
ʥޥ
ˤϢ
ߤǮʡ֥ޥ붵סԤǤw
ޥ륵ޡޥ륵ޡޥ륵ޡ
1114ڡ 13:37:25 41113

ߤʤ󡢥ޥ륵ޤβʸˤϤޤäƤ褦Ǥ͡ʬ⤽ǡ٤Ƥޤ
طޤ󤬡βʸϡߤ椭βΤ˽ФƤ֥ΥʥХʥΥפȹҤΡ֥ޥޥ索פǤ
1114ڡ 17:38:00 41114
???
äĹǤEXCELΥޥǤ
Option Explicit: Dim a(4) As Integer, x As Integer, y As Integer
Sub Macro1()
Cells(1, 1).Value = 0
For y = 1 To 5
For x = 1 To 5
If masarusama(x, y) = masaru(1) Then Call saiki(1)
Next x
Next y
End Sub
Sub saiki(ByVal n As Integer)
Dim xx As Integer, yy As Integer, j As Integer
a(n) = 1
While a(n) <= 4
xx = x: yy = y
For j = 1 To n
Select Case a(j)
Case 1: xx = xx + 1
Case 2: yy = yy + 1
Case 3: xx = xx - 1
Case Else: yy = yy - 1
End Select
Next j
If 1 <= xx And xx <= 5 And 1 <= yy And yy <= 5 Then
If masarusama(xx, yy) = masaru(n + 1) Then
If n < 4 Then
Call saiki(n + 1)
Else
Call hyouji(1)
End If
End If
End If
a(n) = a(n) + 1
Wend
End Sub
Sub hyouji(ByVal p As Integer)
Dim gyou As Integer, xx As Integer, yy As Integer
Dim j As Integer, jj As Integer
Cells(1, 1).Value = Cells(1, 1).Value + 1
gyou = Cells(1, 1).Value * (5 + 1) - 5
For j = 1 To 5
For jj = 1 To 5
Cells(gyou + jj - 1, j + 1).Value = masarusama(jj, j)
Next jj
Next j
For j = 0 To 4
If j = 0 Then
xx = x: yy = y
Call keisen(xx + 1, gyou + yy - 1)
Else
Select Case a(j)
Case 1: xx = xx + 1
Case 2: yy = yy + 1
Case 3: xx = xx - 1
Case Else: yy = yy - 1
End Select
End If
Call yellow(xx + 1, gyou + yy - 1)
Next j
End Sub
Sub keisen(ByVal retsu As Integer, ByVal gyou As Integer)
Range(r(retsu) & strr(gyou)).Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
End Sub
Sub yellow(ByVal retsu As Integer, ByVal gyou As Integer)
Range(r(retsu) & strr(gyou)).Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End Sub
Private Function r(ByVal retsu As Integer) As String
Select Case retsu
Case 2: r = "B"
Case 3: r = "C"
Case 4: r = "D"
Case 5: r = "E"
Case Else: r = "F"
End Select
End Function
Private Function masarusama(ByVal x As Integer, ByVal y As Integer) As String
Select Case y
Case 1: masarusama = Mid("ޥ륵", x, 1)
Case 2: masarusama = Mid("륵륵", x, 1)
Case 3: masarusama = Mid("륵ޥ", x, 1)
Case 4: masarusama = Mid("륵륵", x, 1)
Case Else: masarusama = Mid("ޥ륵", x, 1)
End Select
End Function
Private Function masaru(ByVal n As Integer) As String
Select Case n
Case 1, 5: masaru = ""
Case 2, 4: masaru = ""
Case Else: masaru = ""
End Select
End Function
Private Function strr(ByVal n As Integer) As String
strr = Right(Str(n), Len(Str(n)) - 1)
End Function
1114ڡ 18:27:12 41115

ޤޤä褦Ǥ
ϤϺûϩDz򤭤ޤ
ޥܤޤޤ˹Ԥϩ򸫤Ĥơ
餯ޤޤäȻפΤǡϾäޤ

㤦ˡͤ
456̤ꡡ44̤Ǥ
1115ʶ 10:45:14 HomePage:41119
pao
4ĤΤĤΡ֥פ֥ޡפޤǤ3̤9̤
¦4ĤΤĤΡ֥פ֥ޡפޤǤ4̤16̤
줾4ĤΤǡ9+16)4=100̤
1116ڡ 22:34:46 41120
粬ҹ
ƻˡ饹ȣߣᣵ椫飴ءߣᣲ椫鿿롡ʿ夲ˣե󡡣롡֥פ롡
סܣܣᣱ󡢲Ȥʤݤʡ
Ǥ⡢餷äȼ­Ǥʡ
1117 23:14:04 41121