---
title: "send+moore=money problem"
type: "forum-thread"
url: "https://www.webforum.nu/amne/dotnet/55563-send-moore-money-problem"
topic: ".NET"
topic_url: "https://www.webforum.nu/amne/dotnet"
author: "Masa"
published: "2002-10-09T12:14:01.000Z"
updated: "2002-11-04T08:47:56.000Z"
replies: 3
views: 349
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/dotnet/55563-send-moore-money-problem"
---

# send+moore=money problem

## #1 — Masa, 2002-10-09T12:14Z

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

Permalänk: https://www.webforum.nu/p/55563

## #2 — Marcus E, 2002-10-09T13:31Z

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.

Permalänk: https://www.webforum.nu/p/814369

## #3 — Masa, 2002-10-09T13:47Z

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...

Permalänk: https://www.webforum.nu/p/814376

## #4 — Masa, 2002-11-04T08:47Z

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

Permalänk: https://www.webforum.nu/p/844053

---

Tråden på webben: https://www.webforum.nu/amne/dotnet/55563-send-moore-money-problem