Hello!
How can I re-write this program with using arrays this time?
Thank you
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