Sub PegaTonto()
' Vai recebendo numero até Digitar "0"
' faz a media dos numeros Digitados
Dim num As Integer
Dim soma As Integer
Dim cont As Integer
Dim media As Double
num = 1
Do Until num = 0
num = Val(InputBox("Digite um Numero(0 para terminar)"))
soma = soma + num
cont = cont + 1
Loop
cont = cont - 1 'para desconciderar 0 na contagem
media = soma / cont
MsgBox " A media " & media
End Sub
Nenhum comentário:
Postar um comentário