Z2A練習：M3P11

M3P11 ： 103模P11 判斷是否為質數

Function M3P11(ByVal S As String) As String

        Dim K As Integer = Val(S)

        If K < 2 Then Return "N"

        For I = 2 To Math.Sqrt(K)

            If K Mod I = 0 Then Return "N"

        Next

        Return "Y"

  End Function