Verificar se Um Número é Primo em Vba\Excel
Posted by admin on 10 de Dezembro de 2011 | Filed under Exercícios, Línguagens de Programação
Continuando com a resolução dos meus primeiros exercícios em Vba aqui fica mais um:
Elabore um algoritmo que permita verificar se um determinado número inserido pelo utilizador é ou não um número primo.
Aqui fica o código que resolve o exercício:
Sub primos()
Dim num As Integer, primo As Boolean
num = InputBox("Insira Um Número")
primo = True
For div = 2 To Sqr(num)
If num Mod div = 0 Then
primo = False
End If
Next
If num = 1 Then MsgBox ("Não é Primo")
If primo Then
MsgBox ("O Número é Primo")
Else
MsgBox ("O Número Não é Primo")
End If
End Sub
Não sei se a forma como implementei a resolução do exercício é a mais correcta, e por isso fico à espera de comentários, ou mesmo de correcções e dicas de melhoramento do código que apresento.
Share
Dezembro 10th, 2011 at 2:15 pm
Em que definição de número primo te baseias, é que quando eu aprendi coisas destas 1 não era número primo quer no conjunto dos números naturais quer no conjunto dos números inteiros, mas a minha memória já não é o que era…
Dezembro 10th, 2011 at 5:17 pm
Boa Tarde Carlos Afonso
Na verdade você tem razão no que diz, deveria estar If num = 1 Then MsgBox (“Não é Primo”).
Obrigado pelo reparo.
Cumprimentos