Простое число или нет? - VB

Узнай цену своей работы

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

Это программа определяет является ли число простым. Дана форма. На ней текстовое поле, в которое можно ввести число (максимум 16 цифр). Если число простое, то оно становится красным, а нет - оно черное. Время вычисления самого большого простого числа где-то полсекунды. (Смотрите скрин)

Решение задачи: «Простое число или нет?»

textual
Листинг программы
Function PrimeFact$(s$) 'число передается в виде текстовой строки, т.к. тип Double не может содкржать более 15 значащих цифр
    Dim i&, txt$, n
    n = CDec(s)
    i = 2
    While CDec(i) * i <= n
        If Fix(n / i) <> n / i Then
            If i = 2 Then i = i + 1 Else i = i + 2
        Else
            n = Fix(n / i)
            txt = txt & "*" & i
        End If
    Wend
    If txt = "" Then PrimeFact = "Prime" Else PrimeFact = Mid$(txt, 2) & "*" & n
End Function

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

15   голосов , оценка 3.867 из 5
Похожие ответы