Dede
APROG-LEM 2012/13
1. Abra o livro de trabalho com o nome Ficha-VBA-4.xlsm que se encontra no Moodle. 2. Guarde uma cópia deste ficheiro na sua pasta/PEN pessoal. Deve repetir esta operação frequentemente.
Ciclos
3. No editor VBA encontra a subrotina tabuada(), que apresenta a tabuada de um dado número: I. Teste a subrotina… II. Crie uma subrotina tabuada_N() de forma mostrar as tabuadas duma sequência de números introduzidos pelo utilizador. A sequência termina com um valor negativo.
4. Crie uma subrotina que, dados 6 números reais, mostre a soma, o maior, e a média dos valores inseridos pelo utilizador: I. Usando um ciclo FOR II. Comente o ciclo anterior, copie/duplique o código do ciclo e altere-o para um ciclo DO
5. Crie uma subrotina que leia um número inteiro positivo (N), menor que 30, e mostre ao utilizador todos os números pares existentes entre 1 e N, de acordo com: I. Apresentando os números pares por ordem crescente. Exemplo: 2 4 6 8 ... II. Apresentando os números pares por ordem decrescente. Exemplo: ... 8 6 4 2
6. Crie uma subrotina que calcula e mostra o factorial de todos os valores existentes no intervalo de números inteiros positivos [0 – N]. Coloque os números na coluna C da folha VBA e os respectivos factoriais na coluna D, a partir da linha 4 até à linha L, sendo L = 4 + N.
7. Crie uma subrotina que, para um conjunto (range) de células selecionado no Excel (ex.: F4:F20), atribui a cada célula existente nesse conjunto um valor numérico aleatório entre 1 e 100. Utilize a função Math.Randomize, a função Math.Rnd, e a propriedade Range.Value. (ajuda/help F1)
Sugestão: veja o For Each…Next das aulas teóricas
8. Crie uma subrotina para calcular o resultado da expressão: n deverá ser um número inteiro positivo (validar)
∑
√
Pág. 1/2
APROG-LEM 2012/13
Ficha 9
Trabalho Para Casa (TPC):
9. Criar uma subrotina que determina todos os números primos inferiores a um