首页 > 代码库 > 对不起，我是一个程序猿
对不起，我是一个程序猿
程序VB。net:
Module Module1 Sub Main() Console.WriteLine(DateTime.Now.ToLongTimeString()) Dim count As Long = 0 For a1 As Integer = 1 To 4 For b2 As Integer = 1 To 4 For c3 As Integer = 1 To 4 For d4 As Integer = 1 To 4 For e5 As Integer = 1 To 4 For f6 As Integer = 1 To 4 For g7 As Integer = 1 To 4 For h8 As Integer = 1 To 4 For i9 As Integer = 1 To 4 For j0 As Integer = 1 To 4 count += 1 Dim success As Boolean = True ‘case 1 If a1 = 2 Then If b2 <> 1 Then Continue For End If End If If a1 = 3 Then If c3 <> 1 Then Continue For End If End If If a1 = 4 Then If d4 <> 1 Then Continue For End If End If ‘case 2 If b2 = 1 Then If e5 <> f6 Then Continue For End If End If If b2 = 2 Then If f6 <> g7 Or (a1 = b2 Or b2 = c3 Or c3 = d4 Or d4 = e5 Or e5 = f6 Or g7 = h8 Or h8 = i9 Or i9 = j0) Then Continue For End If End If If b2 = 3 Then If g7 <> h8 Or (a1 = b2 Or b2 = c3 Or c3 = d4 Or d4 = e5 Or e5 = f6 Or f6 = g7 Or h8 = i9 Or i9 = j0) Then Continue For End If End If If b2 = 4 Then If h8 <> i9 Or (a1 = b2 Or b2 = c3 Or c3 = d4 Or d4 = e5 Or e5 = f6 Or f6 = g7 Or g7 = h8 Or i9 = j0) Then Continue For End If End If ‘case 3 If c3 = 1 Then If d4 <> 1 Then Continue For End If End If If c3 = 2 Then If i9 <> 2 Then Continue For End If End If If c3 = 3 Then If g7 <> h8 Then Continue For End If End If If c3 = 4 Then If h8 <> i9 Then Continue For End If End If ‘case 4 Dim countA As Integer = 0 If a1 = 1 Then countA += 1 If b2 = 1 Then countA += 1 If c3 = 1 Then countA += 1 If d4 = 1 Then countA += 1 If e5 = 1 Then countA += 1 If f6 = 1 Then countA += 1 If g7 = 1 Then countA += 1 If h8 = 1 Then countA += 1 If i9 = 1 Then countA += 1 If j0 = 1 Then countA += 1 If d4 = 1 Then If countA <> 5 Then Continue For End If End If If d4 = 2 Then If countA <> 4 Then Continue For End If End If If d4 = 3 Then If countA <> 3 Then Continue For End If End If If d4 = 4 Then If countA <> 2 Then Continue For End If End If ‘case 5 If e5 = 1 Then If a1 <> 1 Then Continue For End If End If If e5 = 2 Then If b2 <> 2 Then Continue For End If End If If e5 = 3 Then If c3 <> 3 Then Continue For End If End If If e5 = 4 Then If d4 <> 4 Then Continue For End If End If ‘case 6 Dim countB As Integer = 0 If a1 = 2 Then countB += 1 If b2 = 2 Then countB += 1 If c3 = 2 Then countB += 1 If d4 = 2 Then countB += 1 If e5 = 2 Then countB += 1 If f6 = 2 Then countB += 1 If g7 = 2 Then countB += 1 If h8 = 2 Then countB += 1 If i9 = 2 Then countB += 1 If j0 = 2 Then countB += 1 Dim countC As Integer = 0 If a1 = 3 Then countC += 1 If b2 = 3 Then countC += 1 If c3 = 3 Then countC += 1 If d4 = 3 Then countC += 1 If e5 = 3 Then countC += 1 If f6 = 3 Then countC += 1 If g7 = 3 Then countC += 1 If h8 = 3 Then countC += 1 If i9 = 3 Then countC += 1 If j0 = 3 Then countC += 1 Dim countD As Integer = 0 If a1 = 4 Then countD += 1 If b2 = 4 Then countD += 1 If c3 = 4 Then countD += 1 If d4 = 4 Then countD += 1 If e5 = 4 Then countD += 1 If f6 = 4 Then countD += 1 If g7 = 4 Then countD += 1 If h8 = 4 Then countD += 1 If i9 = 4 Then countD += 1 If j0 = 4 Then countD += 1 If f6 = 1 Then If countA = countB Or countA = countC Or countA = countD Then Continue For End If End If If f6 = 2 Then If countA <> countC Then Continue For End If End If If f6 = 3 Then If countA <> countC Then Continue For End If End If If f6 = 4 Then If countA <> countD Then Continue For End If End If ‘case 7 If g7 = 3 Then If h8 <> 4 Or h8 <> 2 Then Continue For End If Else If h8 <> 4 Then Continue For End If End If ‘case 8 If h8 = 1 Then If countA <> 0 Then Continue For End If End If If h8 = 2 Then If countA <> 1 Then Continue For End If End If If h8 = 3 Then If countA <> 2 Then Continue For End If End If If h8 = 4 Then If countA <> 3 Then Continue For End If End If ‘case 9 If i9 = 1 Then If (countB + countC + countD) Mod 2 <> 0 Then Continue For End If End If If i9 = 2 Then If (countB + countC + countD) Mod 2 <> 1 Then Continue For End If End If If i9 = 3 Then If (countB + countC + countD) >= 5 Then Continue For End If End If If i9 = 4 Then If (countB + countC + countD) <> 1 And (countB + countC + countD) <> 4 And (countB + countC + countD) <> 9 Then Continue For End If End If If success Then Console.WriteLine("{0} {1} {2} {3} {4} {5} {6} {7} {8} {9}", a1, b2, c3, d4, e5, f6, g7, h8, i9, j0) Else End If Next Next Next Next Next Next Next Next Next Next Console.WriteLine(DateTime.Now.ToLongTimeString()) Console.ReadKey() End SubEnd Module
结果：ACBCACDDBA
对不起，我是一个程序猿
声明：以上内容来自用户投稿及互联网公开渠道收集整理发布，本网站不拥有所有权，未作人工编辑处理，也不承担相关法律责任，若内容有误或涉及侵权可进行投诉： 投诉/举报 工作人员会在5个工作日内联系你，一经查实，本站将立刻删除涉嫌侵权内容。