Простое число или нет? - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д