VB.net - Простые числа

Просто́е число́ — натуральное (целое положительное) число, имеющее ровно два различных натуральных делителя — единицу и самого себя. Другими словами, число p является простым, если оно больше 1 и при этом делится без остатка только на 1 и на p (на самого себя).

Википедия

Для вычисления простых чисел на форму помещаем следующие элементы:

Программа будет вычислять простые числа из заданного диапазона, а за одно и считать их количество.

Код программы:

Public Class Form1

    Private Sub cmdOk_Click(sender As Object, e As EventArgs) Handles cmdOk.Click
        '-Задаем переменные
        '--ключи
        Dim key, r
        '--общее количество
        Dim kolvo = 0
        '--Минимальное и максимальные числа
        Dim Min = Val(txtMin.Text)
        Dim Max = Val(txtMax.Text)

        '-Очищаем текстовое поле
        txtOtvet.Text = ""

        '-Задаем максимум для Прогрессбара 
        pro1.Maximum = Max

        '-Вычисляем простые числа используя след условия
        '--Для каждого числа из выбранного диапазона 
        For i = Min To Max
            '--ключ - отключен
            key = False
            '--проверяем на делимость без остатка 
            '--(начиная от 2 до на 1 меньшего)
            For j = 2 To i - 1
                '--если остаток = 0, ключ - включен
                r = i Mod j
                If r = 0 Then key = True
            Next

            '-Если ключ выключен(т.е. мы нашли простое число)
            If Not key Then
                '--Если число не равно 1
                If i <> 1 Then
                    '--колво чисел увеличиваем на 1
                    kolvo += 1
                    '--в текстовое поле ОТВЕТ - записываем это число
                    txtOtvet.Text += Str(i) + "; "
                End If
            End If

            '-Прибавляем к прогрессбару 1 деление
            pro1.Value = i
        Next
        '-Выводим общее колво простых чисел
        txtN.Text = Str(kolvo)
    End Sub
End Class

Смотреть видео

END