Quantcast
Channel: VBForums
Viewing all articles
Browse latest Browse all 42301

Listing Prime numbers within a group of numbers

$
0
0
Hello!

How can I re-write this program with using arrays this time?
Thank you


Code:

Dim lowerLimit, upperLimit, primeNumber As Integer

        Dim isPrime As Boolean = False



        lowerLimit = CType(TextBox1.Text, Integer)

        upperLimit = CType(TextBox2.Text, Integer)



        Do While lowerLimit < upperLimit



            primeNumber = lowerLimit



            If primeNumber = 2 Or primeNumber = 3 Then

                isPrime = True

            ElseIf primeNumber = 1 Then

                isPrime = False

            ElseIf primeNumber = upperLimit Then

                Exit Do

            Else

                For i As Integer = 2 To (primeNumber - 1)

                    If primeNumber Mod i = 0 Then

                        isPrime = False

                        Exit For

                    Else

                        isPrime = True

                    End If

                Next

            End If



            If isPrime = True Then

                TextBox3.Text += primeNumber & vbCrLf

            End If



            lowerLimit += 1

        Loop


Viewing all articles
Browse latest Browse all 42301

Trending Articles



<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>