septix

Hallo Leute,

ich habe eine Aufgabe die da lautet 2 eingegebene Zahlen als Primzahlzwilling zu identifizieren.

Dabei soll die Prüfung auf Primzahl und auf Zwilling in einer Function geschehen.

Meine erste programmierte Idee sieht wie folgt aus:

Option Explicit


Sub Primzahl()

    ' variablen deklaration

    Dim eingabe0 As Double

    Dim eingabe1 As Double

    Dim x0 As Double

    Dim x1 As Double


    'Inputbox für Eingabe + >1?


    'eingabe = Application.InputBox(prompt:="Bitte geben Sie eine Zahl ein." & _

    '"Wir werden sehen ob es sich um eine Primzahl handelt.", Type:=1)


    eingabe0 = InputBox("Zahl 1 eingeben: ")

    If eingabe0 <= 1 Then

        MsgBox ("Nur Zahlen größer 1!")

        Exit Sub

    End If


    eingabe1 = InputBox("Zahl 2 eingeben: ")

    If eingabe1 <= 1 Then

        MsgBox ("Nur Zahlen größer 1!")

        Exit Sub

    End If


    ' eingabe0 = Primzahl?

    x0 = Prim((eingabe0))


        ' Ausgabe eingabe0

    If x0 > 2 Then

        MsgBox (eingabe0 & " ist keine Primzahl")

    Else

        MsgBox (eingabe0 & " ist Primzahl")

    End If


    ' eingabe1 = Primzahl?

    x1 = Prim((eingabe1))


        ' Ausgabe eingabe1

    If x1 > 2 Then

        MsgBox (eingabe1 & " ist keine Primzahl")

    Else

        MsgBox (eingabe1 & " ist Primzahl")

    End If


    If x0 <= 2 And x1 <= 2 Then

        Call Zwilling(eingabe0, eingabe1)

    End If

End Sub


Function Prim(Param As Double) As Double


    Dim i As Double

    Dim a As Double

    Prim = 0


    ' Primzahlprüfung

    For i = 1 To Param

        a = Param / i

        If a = Int(a) Then

            Prim = Prim + 1

        End If

    Next

Exit Function

End Function


Function Zwilling(Param0 As Double, Param1 As Double) As Double

    Zwilling = Param0 - Param1

    If Zwilling = 2 Or Zwilling = -2 Then

        MsgBox "Bei " & Param0 & " und " & Param1 & " handelt es sich um ein Primzahlzwilling"

    End If

End Function

An sich funktioniert es, gibt es eventuell noch Verbessereungen die der Ein oder Andere hat?

mfg

septix