• 0
Sign in to follow this  
Guest Guest

Função Par Ou Impar

Question

Guest Guest

Existe no VB esta função ou tem como criar ela

Por favor preciso dela alguém sabe como fazer de forma simples ?? wink.gif

Share this post


Link to post
Share on other sites

5 answers to this question

Recommended Posts

  • 0

é bem simples mesmo cara

Veja o codigo abaixo

If (numero And 1) = 0 Then
  MsgBox "Será par"
Else
  MsgBox "Será Impar"
End If

Share this post


Link to post
Share on other sites
  • 0

é bem simples mesmo cara

Veja o codigo abaixo

If (numero And 1) = 0 Then
  MsgBox "Será par"
Else
  MsgBox "Será Impar"
End If

Não, o correto seria:
if numero mod 2 = 0 then
  msgbox "Par!"
else
  msgbox "Ímpar!"
endif

Qualquer "número and 1" vai ser diferente de 0.

Abraços,

Graymalkin

Share this post


Link to post
Share on other sites
  • 0
é bem simples mesmo cara

Veja o codigo abaixo

If (numero And 1) = 0 Then
  MsgBox "Será par"
Else
  MsgBox "Será Impar"
End If

Não, o correto seria:
if numero mod 2 = 0 then
  msgbox "Par!"
else
  msgbox "Ímpar!"
endif

Qualquer "número and 1" vai ser diferente de 0.

Abraços,

Graymalkin

Ambos os casos funcionam perfeitamente a minha é so usar a logica binaria

então me transforme um numero par e um numero impar em binario e me diga qual sera final"0" ou qual sera "1" e vamos ver se eu não tenho razão! wink.gif

Share this post


Link to post
Share on other sites
  • 0

Olá, gostaria de entender melhor a expressão:

numero And 1) = 0

Qual o papel do "and 1". Compreendo que o resultado binário dos pares é sempre 0, mas qual a função do "and 1"?

 

Desculpem-me, sou estudante iniciante, por isso meu interesse.

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this