sábado, 20 de setembro de 2014

'Verifica se o Numero é Multiplo de 3




Sub MultiploDe3()
'Verifica se o Numero é Multiplo de 3
Dim num As Integer
num = CInt(InputBox("Digite um Numero: "))
    If num Mod 3 = 0 Then
    MsgBox "É Multipo de 3 "
    Else
    MsgBox "Não é Multiplo de 3 "
    End If
End Sub

4 comentários:

  1. olá boa tarde como eu faria uma função assim no vba Escreva um algoritmo que leia um valor inicial A e uma razão R e imprima uma sequência em P.G. contendo n
    termos

    ResponderExcluir