9.3. Identificando números pares e ímpares

Voltei!!! Mais uma atualização!!!!!!


9.3. Identificando números pares e ímpares

Vamos criar um código para identificar os números pares e ímpares inseridos em uma INPUTBOX. Neste exemplo, vamos usar um operador matemático que não conhecemos ainda, o MOD, que tem a função de identificar o resto de uma divisão.

Para identificarmos os números pares, precisamos verificar se os mesmos, divididos por 2, apresentam resto igual a 0. Caso positivo, teremos um número par. Se o resto for 1, teremos um número ímpar.

CÓDIGO PARA COPIAR

Sub IdentificaParImpar93()

'Variável que receberá os números digitados na INPUTBOX.

Dim Numero As Integer

'Este fará a contagem do número de vezes que o FOR - NEXT irá ser excecutado

Dim Contador As Integer

'Esta variável, receberá a mensagem que será exibida no final do código.

Dim Mensagem As String

'Preenche a variável mensagem com o texto que será mostrado no final.

Mensagem = "NÚMEROS DIGITADOS: " & Chr(13) & Chr(13)

'Para o contador que rodará de 1 a 5 de um em um.

For Contador = 1 To 5 Step 1

'Permitiremos a digitação de um número por fez na INPUTBOX.

Numero = InputBox("Digite um número: ", "IDENTIFICA PAR/IMPAR")

'Verificamos se este número que foi digitado é par. Para isto, usamos MOD que é uma função

'do VBA

    'MOD tem a função de verificar se o resto da divisão de um número por 2 será 0 ou 1.

    'Caso 0, o número será par, do contrário será ímpar

    If (Numero Mod 2 = 0) Then

    'Caso seja par, pegaremos a mensagem que está na variável de mesmo nome e exibiremos no final

    'do código.

    Mensagem = Mensagem & Numero & "  Par" & Chr(13)

    'Do contráio, se for ímpar

    Else

    'Emitiremos uma mensagem semelhante a anterior, porém, para os números impares.

    Mensagem = Mensagem & Numero & "  Impar" & Chr(13)

    End If

'Fechamos o LOOP

Next

'Agora emitimos a mensagem no final do código, identificando os números pares e impares.

MsgBox Mensagem

End Sub

Clique em F5. O formulário será aberto. Digite os números 7, 9, 2, 5, 6 e clique em OK.

O resultado será este:

O operador MOD cumpriu o seu papel, todos os números foram identificados corretamente.


Para acessar o curso completo Clique aqui