Priemgetallen

Eerste stap: in een functie gaan we na of een getal priemgetal is.
Function IsPriem(ByVal getal As Integer) As Boolean
IsPriem = True
If getal = 1 Then '1 is geen priemgetal
IsPriem = False
Exit Function
End If
If getal Mod 2 = 0 Then 'eerst nagaan of het een even getal is
IsPriem = False
Exit Function
End If
'indien niet, probeer te delen door een oneven getal
Dim deler As Integer
Dim max As Integer
max = Math.Sqrt(getal)
For deler = 3 To getal Step 2
If getal Mod max = 0 Then
IsPriem = False
Exit Function
End If
Next
End Function
Tweede stap: we bouwen het formulier.
De code ziet er zo uit:
We checken eerst of de invoer een getal is.
Private Sub cmdGo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdGo.Click
Dim getal As Integer
If Not IsNumeric(txtGetal.Text) Then
MsgBox("Je moet een getal opgeven")
Exit Sub
End If
getal = CInt(txtGetal.Text)
If IsPriem(getal) Then
lblResult.Text = getal & " is een priemgetal"
Exit Sub
Else
lblResult.Text = getal & " is geen priemgetal"
'Geen priemgetal: dan gaan we op zoek naar het eerstvolgende priemgetal
Do
getal += 1
If IsPriem(getal) Then
lblResult.Text &= vbCrLf & getal & " is het eerstvolgende priemgetal"
Exit Sub
End If
Loop
End If
End Sub
Je kan het programma downloaden.
Je kan het project downloaden.