Private Sub cmdnumeroprimo_Click()
Dim numero As Integer
Dim messaggio As String
numero = Val(txtnumero.Text)
If numero <= 0 Then
MsgBox ("inserisci numero valido")
Else
numeroprimo (numero)
End If
End Sub
Private Sub cmdparidispari_Click()
Dim numero As Integer
Dim messaggio As String
numero = Val(txtnumero.Text)
messaggio = paridispari(numero)
MsgBox (messaggio)
End Sub
Function paridispari(ByVal numero As Integer)
Dim resto As Integer
resto = numero Mod 2
If resto = 0 Then
paridispari = "pari"
Else
paridispari = "dispari"
End If
End Function
Sub numeroprimo(ByVal numero As Integer)
Dim divisibile As Boolean
Dim i As Integer
Dim risultato As Integer
divisibile = False
For i = 2 To (numero - 1)
risultato = numero Mod i
If risultato = 0 Then
divisibile = True
End If
Next i
If divisibile = True Then
MsgBox ("non primo")
Else
MsgBox ("primo")
End If
End Sub