как модифицировать код
Код:
Public Class PrimeNumbersForm
Private Sub calculateButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles calculateButton.Click
'declare variables
Dim lower As Integer ' нижнее значение
Dim upper As Integer 'верхнее значение
Dim prime As Integer ' счетчик
Dim Primes As Boolean = False ' истинность простого числа
lower = Val(lowerTextBox.Text)
upper = Val(upperTextBox.Text)
' условия ввода
If lower <= 1 OrElse _
upper <= 1 OrElse _
upper <= lower Then
MessageBox.Show("Введите корректные данные", "Invalid Bourds", _
MessageBoxButtons.OK, MessageBoxIcon.Error)
End If
Do While lower < upper ' условия выполнения
prime = lower
For counter As Integer = 2 To (Math.Sqrt(prime)) ' цикл вычисления истинности простых
If prime Mod counter = 0 Then
Primes = False
Exit For
ElseIf prime Mod counter > 0 Then
Primes = True
End If
Next
If Primes = True Then
outputTextBox.Text += Val(prime) & vbCrLf ' вывод
End If
lower += 1 ' прирост счетчика пользовательского диапазона
Loop
End Sub
End Class
Private Sub calculateButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles calculateButton.Click
'declare variables
Dim lower As Integer ' нижнее значение
Dim upper As Integer 'верхнее значение
Dim prime As Integer ' счетчик
Dim Primes As Boolean = False ' истинность простого числа
lower = Val(lowerTextBox.Text)
upper = Val(upperTextBox.Text)
' условия ввода
If lower <= 1 OrElse _
upper <= 1 OrElse _
upper <= lower Then
MessageBox.Show("Введите корректные данные", "Invalid Bourds", _
MessageBoxButtons.OK, MessageBoxIcon.Error)
End If
Do While lower < upper ' условия выполнения
prime = lower
For counter As Integer = 2 To (Math.Sqrt(prime)) ' цикл вычисления истинности простых
If prime Mod counter = 0 Then
Primes = False
Exit For
ElseIf prime Mod counter > 0 Then
Primes = True
End If
Next
If Primes = True Then
outputTextBox.Text += Val(prime) & vbCrLf ' вывод
End If
lower += 1 ' прирост счетчика пользовательского диапазона
Loop
End Sub
End Class
Если можно,подскажите! А то неохота дальше двигаться не закрепив.