send+moore=money problem

Jeg tror at du skal formulere dit spørgsmål lidt mere i dybten. Jeg er slet ikke med!

OK...man ska räkna ut vilka siffror som gömmer sig bakom:
  SEND
+MORE
------
MONEY
inga siffror får vara lika och det ska göras i VB .NET...jag har inte en aning om var jag ska börja....
Tomas

så här ska det vara..
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