[VB.NET] Teilerfremd

[Impi]

Hallöle,
Habe ein Problem ich möchte eine Funktion schreiben die eine Teilerfremde Zahl von 3 anderen Zahlen ausgibt bzw in eine Variable übergibt
Habe mir das etwa so gedacht...


while 1:
if Teilerfremd(a,public_fi)==1 and a!=p and a!=q:
print a,
if a==1000:
break
a+=1


Das ist jetz nur ein Beispiel.. ich weiß einfach nicht wie ich das in VB.net code bekommen... :?:
Vlt habt ihr eine idee
Mfg Impi

Added after 5 hours 57 minutes:

Habe jetz bissel rumgecodet aber es klappt immernoch nicht
vlt findet ihr einen denkfehler ich finden keinen :?:


Private Function pubKey_e(ByRef teiler, ByVal primFI, ByVal primOne, ByVal primTwo)
For c As Integer = 2 To 1000

If Teilerfremd(teiler, primFI) = 1 And teiler <> primOne And teiler <> primTwo Then
Console.Write(teiler)
End If
Next c
End Function

Private Function Teilerfremd(ByRef teiler, ByVal primFI)
For c As Integer = 2 To primFI
If teiler Mod c = primFI Mod c = 0 Then
Return 0
Else
Return 1
End If
Next c
End Function

Hoffe auf Hilfe
Mfg Impi