VBA Poupança

•

UNINASSAU RECIFE

14

0

14

0

Estudante PD

05.04.2014

Faça como milhares de estudantes: teste grátis o Passei Direto

Esse e outros conteúdos desbloqueados

16 milhões de materiais de várias disciplinas

Impressão de materiais

Agora você pode testar o

Passei Direto grátis

E aí, curtiu este material?

Ajude a incentivar outros estudantes a melhorar o conteúdo

Gostou desse material? Compartilhe! 🧡

Programação I

55.299 Materiais compartilhados

Baixe o app para aproveitar ainda mais

Leia os materiais offline, sem usar a internet. Além de vários outros recursos!

Prévia do material em texto

Sub poupanca() 
Dim saldo As Single, depoisito As Single 
Dim duracao As Long 
saldo = InputBox("Qual o valor inicial?") 
Cells(1, 1) = saldo 
duracao = InputBox("digite a duracao do investimento") 
For mes = 1 To duracao 
saldo = saldo * 100 
Cells(mes + 1, 1) = saldo 
desposito = InputBox("vai depositar quanto?") 
saldo = saldo + deposito 
Next mes 
End Sub