41期电脑报编程题目

Trynew

编程题目：

有一个九位数，它由１到９着９个数字组成，每个数字刚好只出现一次。这个九位数的前两位能被２整除，前三位能被３整除。。。。前Ｎ位能被Ｎ整除（２<=n<=9），整个九位数能被9整除。请编程找出这样的九位数。

游客，如果您要查看本帖隐藏内容请回复

zxclen

SEE

xinbao

看看, 答案

海狸先生

呵呵，trynew对文本操作情有独钟，借鉴思路修改后速度提高十二倍，在0.7毫秒左右

Public Sub mNumTest(Optional Num As Long = 0, Optional N As Integer = 1)

Static ik(1 To 9) As Boolean

Dim i As Integer

For i = 1 To 9

   If Not ik(i) Then

      If (10 * Num + i) Mod N = 0 Then

         ik(i) = True

         If N = 9 Then

            Debug.Print 10 * Num + i

         Else

            mNumTest 10 * Num + i, N + 1

         End If

         ik(i) = False

      End If

   End If

Next

End Sub

[此贴子已经被作者于2005-10-21 8:50:57编辑过]

LucasLynn

电脑比较慢，Cerelon 1.2G环境，1.422毫秒

Option Compare Database

Option Explicit

Dim N(8) As Integer

Public Sub Calc()

    Dim i As Integer

   

    Dim t1 As Single

    t1 = Timer

   

    For i = 1 To 1000

        N(0) = 5

        N(1) = 1

        N(2) = 3

        N(3) = 7

        N(4) = 9

        N(5) = 2

        N(6) = 4

        N(7) = 6

        N(8) = 8

        

        P1379

    Next i

   

    Debug.Print Timer - t1

End Sub

Private Sub P1379(Optional x As Integer = 1)

    Dim y As Integer

    Dim tmp As Integer

   

    If x = 4 Then

        P2468

        Exit Sub

    Else

        P1379 x + 1

        For y = x + 1 To 4

             tmp = N(x)

             N(x) = N(y)

             N(y) = tmp

            

             P1379 x + 1

            

             N(y) = N(x)

             N(x) = tmp

        Next y

    End If

End Sub

Private Sub P2468(Optional x As Integer = 5)

    Dim y As Integer

    Dim tmp As Integer

   

    If x = 8 Then

        If Check Then

            'Debug.Print N(1) & N(5) & N(2) & N(6) & N(0) & N(7) & N(3) & N(8) & N(4)

        End If

        Exit Sub

    Else

        P2468 x + 1

        For y = x + 1 To 8

             tmp = N(x)

             N(x) = N(y)

             N(y) = tmp

            

             P2468 x + 1

            

             N(y) = N(x)

             N(x) = tmp

        Next y

    End If

End SubPrivate Function Check() As Boolean

    If (N(1) + N(5) + N(2)) Mod 3 <> 0 Then Exit Function    '3

    If (N(2) * 10 + N(6)) Mod 4 <> 0 Then Exit Function      '4

    If (N(1) + N(5) + N(2) + N(6) + N(7)) Mod 3 <> 1 Then Exit Function '6

    If (N(7) * 100 + N(3) * 10 + N(8)) Mod 8 <> 0 Then Exit Function '8

    If CLng(N(1) & N(5) & N(2) & N(6) & 5 & N(7) & N(3)) Mod 7 <> 0 Then Exit Function '7

    Check = True

End Function

海狸先生

经过LucasLynn 的超强分析，进行改进，时间为 0.42毫秒Public Sub mNumTest(Optional Num& = 0, Optional N% = 1)

Static ik(1 To 9) As Boolean

Dim i%

For i = 1 - (N Mod 2 = 0) To 9 + (N Mod 2 = 0) Step 2

   If Not ik(i) Then

      If (10 * Num + i) Mod N = 0 Then

         ik(i) = True

         If N = 9 Then

            Debug.Print 10 * Num + i

         Else

            mNumTest 10 * Num + i, N + 1

         End If

         ik(i) = False

      End If

   End If

Next

End Sub

george

look look

lou2003

OK

Dghost

for "以下内容只有回复后才可以浏览"

glw

看看