Um número primo tem apenas a si mesmo eo número 1 como divisores . Por exemplo, 13 é um número primo , porque ele só tem 1 e 13 como divisores . Cada número pode ser escrito como um produto de números primos. Existem muitas ferramentas para descobrir números primos , incluindo árvores de decisão . Você pode facilmente adicionar uma macro para Excel 2007 para substituir parte do processo de árvore de decisão. Uma macro é uma ferramenta que permite que você costume Excel com os seus próprios botões : neste caso , um botão que calcula fatores. Depois de adicionar a macro , basta ligar no número e Excel irá calcular os fatores . Coisas que você precisa
Excel 2007
Show Mais instruções
1

Feche todas as pastas de trabalho existentes e iniciar uma nova planilha do Excel. Pressione " ALT " plus " F11 " para iniciar o Editor do Visual Basic.
2

Abra uma pasta de trabalho , clicando duas vezes em uma pasta de trabalho no menu VBAProject no canto superior esquerdo da tela.

3

Recorte e cole o seguinte código para o livro vazio :

GetFactors Sub ( ) Contagem Dim IntegerDim NumToFactor Como limites inteiros único ', < 32768Dim fator como SingleDim y Como SingleDim IntCheck As Single

Contagem = 0DoNumToFactor = _Application.InputBox entrada ' Força de inteiros superior a 0.IntCheck = NumToFactor - Int ( NumToFactor ( Prompt : = 1 : = " Tipo inteiro " , Type) ) Se NumToFactor = 0 emSair Sub'Cancel é 0 - permitir Cancel.ElseIf NumToFactor <1 ThenMsgBox "Por favor insira um número inteiro maior que zero. " ElseIf IntCheck > 0 ThenMsgBox "Por favor insira um número inteiro - sem decimais . " Fim If'Loop até à entrada de número inteiro maior que 0.Loop Enquanto NumToFactor <= 0 Ou IntCheck > 0For y = 1 To NumToFactor'Put mensagem na barra de status indicando o número inteiro sendo checked.Application.StatusBar =" verificando "& yFactor = NumToFactor Mod y'Determine se o resultado da divisão com Mod é sem _remainder e, portanto, um" fator " . Se fator = 0 Then'Enter o fator em uma coluna começando com o cell.ActiveCell ativa. deslocamento ( Contagem , 0). Valor = y'Increase do valor a compensar para o próximo value.Count = Count + 1End IfNext'Restore Estado Bar.Application.StatusBar = End " Ready" Sub

Sub GetPrime ( ) Contagem Dim IntegerDim BegNum Como limites inteiros único ', < 32768Dim EndNum Como SingleDim Prime Como bandeira SingleDim Como IntegerDim IntCheck Como SingleCount = 0

DoBegNum = _Application.InputBox ( Prompt : = " número do tipo começando. " Tipo: entrada = 1) ' Força de inteiros superior a 0.IntCheck = BegNum - Int ( BegNum ) Se BegNum = 0 emSair Sub'Cancel é 0 - permitir Cancel.ElseIf BegNum <1 ThenMsgBox " Por favor insira . um número inteiro maior do que zero " ElseIf IntCheck > 0 ThenMsgBox " Por favor insira um número inteiro - . sem decimais " Fim If'Loop até à entrada de número inteiro maior que 0.Loop Enquanto BegNum <= 0 Ou IntCheck > 0

DoEndNum = _Application.InputBox ( Prompt : = " . Tipo terminando número " , Type: = 1) ' a entrada da Força de inteiros superior a 0.IntCheck = EndNum - Int ( EndNum ) Se EndNum = 0 emSair Sub'Cancel é 0 - permitir Cancel.ElseIf EndNum < BegNum ThenMsgBox "Por favor insira um número inteiro maior do que " & BegNumElseIf EndNum <1 ThenMsgBox "Por favor insira um número inteiro maior que zero. " ElseIf IntCheck > 0 ThenMsgBox "Por favor insira um número inteiro - . sem decimais " Fim If'Loop até à entrada de número inteiro maior que 0.Loop Enquanto EndNum < BegNum Ou EndNum <= 0 Ou IntCheck > 0

Para y = BegNum Para EndNumflag = 0z = 1DO Até flag = 1 ou z = y + mensagem 1'Put em Barra de status que indica o número inteiro e _divisor em cada loop.Application.StatusBar = y & " /" & ; zPrime = y Mod zSe Primeiro = 0 e z < > Y e Z < > 1 Thenflag = 1End ZFI = z + 1Loop

Se flag = 0 Then'Enter o fator em uma partida coluna com o cell.ActiveCell.Offset ativa ( Contagem , 0). Valor = y'Increase do valor a compensar para o próximo value.Count = Count + 1End IfNext y'Restore Estado Bar.Application.StatusBar = "Pronto" End Sub

4

Clique em "Arquivo " e selecione " Fechar e voltar para Microsoft Excel ".
5

Clique no botão Microsoft Office no Excel. Clique em " Opções do Excel ", " Personalizar" e selecione "Macros" na " Escolha" comandos.
6

Na lista, clique na macro " ThisWorkbook.GetFactors , "e depois clique em" Adicionar ". Clique em" OK. " Isso adiciona a macro para a barra de ferramentas de acesso rápido na parte superior esquerda do Excel.
7

Selecione a célula onde você gostaria que os dados para começar.
8

Clique no botão macro na barra de ferramentas de acesso rápido . Digite o número que você gostaria de encontrar fatores primos para . Excel irá retornar uma lista de todos os factores (incluindo principal e não -prime ) na coluna selecionada . Por exemplo , os fatores de 30 são 1, 2 , 3, 5 , 6, 10, 15 e 30.
9

Selecione os números primos da lista dada . Os números primos na lista são 2,3 e 5 . Estes são os fatores principais para o número dado .