phuc_thanhtien > 24-04-16, 01:08 AM
Public Function isPrime(ByVal n As Integer) As BooleanFor i = 2 To Sqr(n) If n Mod i = 0 Then Exit ForNextIf i <= Sqr(n) Then isPrime = FalseElse isPrime = TrueEnd IfEnd Function