Числа

[Slimbr]

Поиск взаимнопростого числа
Реализация
VB.Net

Private Sub VPC2(ByVal M As Integer, ByRef D As Collection)

Dim X As Integer
Dim Y As Integer
Dim I As Integer
Dim J As Integer
Dim kol1 As New Collection
Dim kol2 As New Collection

X = M
Y = 1

For I = 2 To X
If X Mod I = 0 Then
kol1.Add(I)
End If
Next

X = X - 1
Do Until Y = X
11:
Y = Y + 1
If Y >= X Then
kol2.Clear()
Exit Do
End If

For I = 2 To Y
If Y Mod I = 0 Then
For J = 1 To kol1.Count
If kol1(J) = I Then
kol2.Clear()
GoTo 11
End If
Next
kol2.Add(I)
End If
Next

For J = 1 To D.Count 'исключение простых чисел
If Y Mod D.Item(J) = 0 Then
GoTo 11
End If
Next

D.Add(Y)
kol2.Clear()

Loop

End Sub



Вопрос по взаимно простому числу:
Нужно ли исключать простые числа из набора, такие как 9?

Вопрос по коду:
Есть ли алгоритм проще?
или
Как упростить код?
или
Как избавиться от GoTo?