Is een getal een factor van x

[tuning4you]

Hoe weet ik indien een bepaald getal een factor is van x? Indien dit het geval is moet ik namelijk een actie creëren.

 

[evertVB]

Dat kan zo:

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim x As Integer
        Dim factor As Integer

        x = 36
        factor = 5

        If (x \ factor) * factor = x Then
            MsgBox("Ja het is een factor")
        Else
            MsgBox("Nee het is geen factor")
        End If
    End Sub

n.b. '\' betekent in visual basic 'integer division' dus delen met afronding naar beneden.

 

[tuning4you]

Bedankt. Is een mogelijke oplossing.
Maar als je bijvoorbeeld 150000000000000010 deelt door 150 krijgt je ook een melding dat het een factor is. Hoe vang je dat dan op?

 

[evertVB]

als ik van x en factor long maak dan geeft hij bij mij toch wel een correct antwoord
met die 150000000000000010 en die 150.

En met integers compileert het niet eens

 

[tuning4you]

Als ik onderstaande code gebruik met in textbox1 150000000000000010 ingevuld, dan komt er een melding dat dit een factor is. Dit is dus foutief.


Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim resultaat As Long = Long.Parse(TextBox1.Text)
Dim getal As Long = 150

IsGeheelGetal2(resultaat, getal)

End Sub


Private Function IsGeheelGetal3(ByVal getal1 As Long, ByVal getal2 As Long) As Boolean
If getal1 \ getal2 * getal2 = getal1 Then
MsgBox("Ja het is een factor")
Else
MsgBox("Nee het is geen factor")
End If

End Function

 

[evertVB]

En met de haakjes op deze manier?

If (getal1 \ getal2) * getal2 = getal1 Then

 

[tuning4you]

ok was een fout van me. dat werkt. je kan wel niet verder gaan met nullen plaatsen want dan krijg je een fout.
bedankt.