Lista3 - Programação (VBA)

Prévia do material em texto

LISTA DE EXERCÍCIOS 3
mac113
1. Execute o programa abaixo, que soma uma sequência de números até que o 
usuário digite 0.
Sub SomaSequencia()
   Dim soma As Integer
   Dim num As Integer   
   soma = 0
   num = Cint(InputBox(“Digite o primeiro número: ”))
   While num <> 0
      soma = soma + num
      num = Cint(InputBox("Digite o próximo número: "))
   Wend
   MsgBox ("Soma = " & soma)
End Sub
Modifique o programa para que a sequência de números esteja na coluna A de 
uma planilha. O programa deve ler os números da coluna A até encontrar uma 
célula contendo 0. O resultado da soma deve aparecer na célula B1.
2. No mesmo arquivo do exercício 1, crie uma segunda planilha denominada “Lista3-
Exe2”, e nela faça um programa que lê os salários dos funcionários de uma
empresa na coluna A coloca na coluna B o valor correspondente da coluna A
acrescido de 10%. Por exemplo, suponha que a coluna A contem 1;2;3 e 4. Então
coluna B deverá conter 1,1; 2,2; 3,3 e 4,4. (Use o tipo Double para números reais.)
3. Escreva um programa que pede para o usuário um número inteiro n e devolve n! 
de acordo com a definição:
0!=1
n!=n.(n-1)! para n>0 
---------------------------------------------------------------------------
Na hora de salvar sua planilha, selecione o tipo: “Pasta de trabalho habilitada para Macro 
de Excel” (.xlsm).