Abaixo, veremos um programa em Excel VBA que Verificações se um número é um número primo ou não.
Antes de começar: em matemática, um número primo é um número que tem exatamente dois divisores de número distintos: 1 e ele mesmo. Os menores vinte e cinco números primos são: 2, 3, 5, 7, 11, 13, 17, 19, 23, 29, 31, 37, 41, 43, 47, 53, 59, 61, 67, 71, 73 , 79, 83, 89 e 97. Por exemplo, 8 tem 1, 2, 4 e 8 como divisores e não é um número primo.
Situação:
1. Primeiro, declaramos três variáveis. Uma variável inteira que chamamos de divisores, uma variável longa chamamos de número e uma variável longa chamamos de i. Usamos variáveis longas aqui porque variáveis longas têm maior capacidade do que variáveis inteiras.
Dim divisors As Integer, number As Long, i As Long
2. Inicializamos duas variáveis. Inicializamos os divisores variáveis com o valor 0. Usamos a função InputBox para obter um número do usuário.
divisores = 0
number = InputBox ("Digite um número")
Depois que o usuário inseriu um número, queremos verificar se esse número é primo ou não. Lembre-se de que um número primo tem exatamente dois divisores de número distintos: 1 e ele mesmo.
3. Iniciamos um loop For Next.
Para i = 1 para numerar
4. Agora vem a parte mais importante do programa. Para calcular o número de divisores de um número, usamos o operador Mod. O operador Mod fornece o restante de uma divisão. Por exemplo, 7 mod 2 = 1 porque 7 dividido por 2 é igual a 3 com um resto de 1. Somente se 'mod numérico i' = 0, i é um divisor de número. Neste caso, queremos incrementar os divisores de variáveis em 1. A macro abaixo faz o truque.
Se o número Mod i = 0 então
divisores = divisores + 1
Fim se
O Excel VBA verifica isso para i = 1, i = 2, i = 3, i = 4 até i = número. Observe que i = 1 ei = número sempre são divisores de número. Somente se esses números forem os únicos divisores de número, o número será um número primo.
5. Não se esqueça de fechar o loop.
Proximo eu
6. Se divisores são iguais a 2, exibimos uma caixa de mensagem dizendo que o número inserido é um número primo. Se o número de divisores for maior que 2, exibimos uma caixa de mensagem informando que o número inserido não é um número primo.
Se divisores = 2, então
Número de MsgBox & "é um número primo"
Outro
Número de MsgBox & "não é um número primo"
Fim se
7. Teste o programa.
Resultado para 104729:
