sábado, 20 de setembro de 2014

'De 5 Numeros mostrar os Impares.




Sub De5EImpar()
' 5 numeros mostrar os impares.
Dim num As Integer
Dim i   As Integer

    For i = 1 To 5
     num = CInt(InputBox("Digite um numero"))
     If num Mod 2 = 1 Then
     MsgBox " Esses numero: " & num & " é Impar"
    End If
  Next
End Sub




Nenhum comentário:

Postar um comentário