Is het een priemgetal of niet? - Excel Nieuws - ExcelStudie

Zoeken
Ga naar de inhoud

Hoofdmenu:

Is het een priemgetal of niet?

Gepubliceerd door in Wiskunde ·
Tags: priemgetal

Met het volgende VBA-script kun je testen of een betpaald getal een priemgetal is.


Misschien is er toch een universeel algoritme voor het voorspellen van priemgetallen en heb jij de primeur! Zorg ervoor dat je Ontwikkelaarstab geactiveerd is in Excel, maak een module aan en kopieer het onderstaand scriptje in de module. Test zoveel en zolang als je maar wilt.

Als je andere leuke ideƫen hebt ten aanzien van priemgetallen voel je vrij om eeeen berichtje achter te laten.

Is het een priemgetal of niet?

Sub priem1()
Dim AantalNoemers As Long, Getal As Long, i As Long
Dim A As String
AantalNoemers = 0
    
  A = MsgBox("Wilt u een getal proberen?", [vbYesNo])
  
  'VBA code: 6 = Yes, 7 = No
  
  Do While A = 6
  
    
      Getal = InputBox("Voer getal in")
          For i = 1 To Getal
              If Getal Mod i = 0 Then
                  AantalNoemers = AantalNoemers + 1
              End If
          Next i
      
          If AantalNoemers = 2 Then
               MsgBox number & " dit is een priemgetal"
          Else
               MsgBox number & " dit is geen priemgetal"       
               
          End If
  
  A = MsgBox("Wilt u een nog getal uitproberen?", [vbYesNo])
  
  'VBA code: 6 = Yes, 7 = No
  
      If A = 7 Then
          MsgBox "Ok, tot de volgende keer!"
      Else
      End If
         
  Loop
  
End Sub

(c) 2016 eXcelstudie




Studiemateriaal
Korting op studieboeken bij bol.com
Korting op je studieboeken
TH83 Copyright 2016 (c)
Terug naar de inhoud | Terug naar het hoofdmenu