Отобразить все простые числа от нуля до заданного числа - VB

Формулировка задачи:

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

народ отпишите хоть чтонибуть, действительно очень нужна помощ

Решение задачи: «Отобразить все простые числа от нуля до заданного числа»

textual
                            Листинг программы 
                        

                            Function prosti(ByVal i As Integer) As Boolean
        Dim j As Integer
        prosti = False
        For j = 2 To Math.Sqrt(i)
 
            If (i Mod j = 0) Then Exit Function
        Next j
        If i >= 2 Then prosti = True
 
    End Function
                        

Оцени полезность:

12 голосов , оценка 4.333 из 5

Похожие ответы