Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

как модифицировать код

90K
09 апреля 2013 года
arlekino
1 / / 09.04.2013
Только начал самообучение.Полный новичок. Урок требует написание кода вычисления простых чисел с применением процедуры функции,возвращающей true или false. Я не смог это сделать. Без процедуры написал.вот :


Код:
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

Если можно,подскажите! А то неохота дальше двигаться не закрепив.
Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог