Contar Números Pares e Ímpares em Vba\Excel
Posted by admin on 11 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
For a = 1 To 9999
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 For
End If
Next
MsgBox ("O Número de Pares é:" & countpar)
MsgBox ("O Número de Pares é:" & 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
