Contar Números Pares e Ímpares em Vba\Excel – Versão 1.01
Posted by admin on 12 de Dezembro de 2011 | Filed under Exercícios, Línguagens de Programação
Continuando com a resolução dos meus primeiros exercícios em Vba aqui fica mais um:
Elabore um algoritmo que permita contar a quantidade de números Pares e ímpares.
Aqui fica o código que resolve o exercício:
Sub pares()
Dim num As Integer, countpar As Integer, conutimpar As Integer,
totalnum As Integer
Do
a = a + 1
num = InputBox("Insira Um Número")
If num Mod 2 = 0 Then
countpar = countpar + 1
Else
countimpar = countimpar + 1
End If
If num = 0 Then Exit Do
Loop
MsgBox ("O Número de Pares é:" & countpar - 1)
MsgBox ("O Número de Impares é:" & countimpar)
End Sub
Não sei se a forma como implementei a resolução do exercício é a mais correcta, e por isso fico à espera de comentários, ou mesmo de correcções e dicas de melhoramento do código que apresento.
Share
