|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Operações Matemáticas)
|
|
 |
Título da Dica: Verificar se o numero informado é PRIMO
|
 |
|
|
|
Postada em 31/8/2003 por Ð@®l@n
Function IsPrime(ByVal x As Long) As Boolean
Dim i As Integer, a As Double
IsPrime = True
x = Abs(x) ' Ignore sign
If x = 0 Or x = 1 Then ' Special case for 0 and 1
IsPrime = False
ElseIf x = 2 Then ' Special case for 2 (the only even prime)
ElseIf (x And 1) = 0 Then ' Special case all other even numbers (not prime)
IsPrime = False
Else ' Only need to iterate through odd numbers
For i = 3 To Int(Sqr(x)) Step 2
a = x / i
If a = x \ i Then
IsPrime = False
Exit Function
End If
Next i
End If
End Function
Private Sub Command1_Click()
MsgBox IsPrime(15)
End Sub
|
|
|
|
|
