USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  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
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página