|
ぶなしめじTZ |
|
VB組みました。(^^;
Dim i As Integer Dim j As Integer Dim k As Integer Dim l As Integer Dim Counter As Integer Counter = 0 For i = 1 To 13 For j = 1 To 13 For k = 1 To 13 For l = 1 To 13 If Not (i = j Or i = k Or i = l Or j = k Or j = l Or k = l) Then If (i + j + k + l) Mod 13 = 0 Then Counter = Counter + 1 End If End If Next l Next k Next j Next i Counter = Counter / (4 * 3 * 2 * 1) MsgBox Counter |
|
1月16日（木） 0:15:40
17828 |