send+moore=money problem

Hej.
jag skulle behöva hjälp med att lösa send+moore=money i vb.net i en consollapplikation

tacksam för hjälp

Tomas

Hur långt har du kommit?

Det är alltid bra att försöka lite själv och fråga när man kör fast.

inte långt alls...vet inte hur jag ska börja...själva proggningen är väl inget större probbs..det e logiken bakom matten som e svårare...

jaha...fick lösa det själv.:-)

Module Module1
Dim s, e, n, d, m, o, r, e2, y, send, more, money As Integer
Function skicka(ByVal tal1, ByVal tal2) As Integer
money = tal1 + tal2
'Console.WriteLine(tal1 & " " & tal2)
y = (tal1 + tal2) Mod 10
s = (tal1 - tal1 Mod 1000) / 1000
tal1 = tal1 - s * 1000
e = (tal1 - tal1 Mod 100) / 100
tal1 = tal1 - e * 100
n = (tal1 - tal1 Mod 10) / 10
tal1 = tal1 - n * 10
d = (tal1 - tal1 Mod 1) / 1

    If s \<\> e And s \<\> n And s \<\> d And e \<\> n And e \<\> d And n \<\> d Then

        m = (tal2 - tal2 Mod 1000) / 1000
        tal2 = tal2 - m \* 1000
        o = (tal2 - tal2 Mod 100) / 100
        tal2 = tal2 - o \* 100
        r = (tal2 - tal2 Mod 10) / 10
        tal2 = tal2 - r \* 10
        e2 = (tal2 - tal2 Mod 1) / 1

        If m \<\> o And m \<\> r And m \<\> e2 And o \<\> r And r \<\> e2 And o \<\> e2 Then
            'Console.Write(s & e & n & d)
            'Console.WriteLine()
            'Console.Write(m & o & r & e2)
            'If e = e2 And s \<\> m And s \<\> o And s \<\> r And n \<\> m And n \<\> 0 And n \<\> r Then
            'If y \<\> s And y \<\> e And y \<\> n And y \<\> d And y \<\> m And y \<\> o And y \<\> r Then

            If e = e2 And m \<\> o And m \<\> r And m \<\> e2 And o \<\> r And o \<\> e2 \_
            And r \<\> e2 And d \<\> r And n \<\> m And n \<\> o And n \<\> r \_
            And m \<\> y And o \<\> y And r \<\> y And s \<\> m And s \<\> o And s \<\> r Then
                If m \* 10000 + o \* 1000 + n \* 100 + e \* 10 + y = s \* 1000 + e \* 100 + n \* 10 + d + m \* 1000 + o \* 100 + r \* 10 + e2 Then
                    Console.WriteLine()

                    Console.WriteLine("Send: " & s \* 1000 + e \* 100 + n \* 10 + d)
                    Console.WriteLine("More: " & m \* 1000 + o \* 100 + r \* 10 + e2)
                    Console.WriteLine("Money: " & money)
                    Console.WriteLine("Klart")
                    Console.Read()
                    Return 1
                Else
                    Exit Function
                End If
            Else
                Exit Function
            End If
        Else
                Exit Function
            End If
        Else
            Exit Function
        End If
        Exit Function

End Function

Sub Main()

    Dim send As Integer ' = 9567
    Dim more As Integer ' = 1085
    Dim money As Integer
    Dim i, j, k As Integer
    For i = 999 To 9999
        more = i
        For j = 999 To 9999
            send = j
            If i + j \> 10000 Then
                k = skicka(send, more)
                If k = 1 Then
                    Exit Sub
                End If
            End If

        Next

    Next

    Console.Read()

End Sub

End Module