Question

Public Class Form1 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.click Dim n As Long Dim i As Long Dim k As Long Dim Prime As Boolean n = TextBox1.Text For i = 2 To n If n Mod i = 0 Then k = 2 Prime = False While k <i / 2 If i Mod k = 0 Then Prime = True Exit While End If k = k + 1 End While If Prime = False Then TextBox2.Text += i & "" End If End If Next End Sub End Class

Any way to add a counter?, to count the elements/ # of prime factors outputted to TextBox2.Text. VB

Answer 1

Below is the solution:

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        'declare variable
        Dim count As Integer = 0
        Dim N, x As Integer
        N = Val(TextBox1.Text)
        For x = 2 To N - 1 'loop n-1 times
            If N Mod x = 0 Then
                count += primeNumber(x) 'check for the number is prime or not
            End If
        Next
        'display to the textbox
        TextBox2.Text = count

    End Sub

    Private Function primeNumber(x As Integer) As Integer 'function that will check for the prime
        Dim j As Integer
        Dim t As Boolean
        t = True
        For j = 2 To (x - 1)
            If x Mod j = 0 Then 'check for the prime
                t = False
                Exit For
            End If
        Next j
        If t Then 'if number is prime return 1 to count 1
            Return 1
        Else
            Return 0 'if number is not prime return 0 to count 0
        End If
    End Function

sample output:

315 Button1