Составить программу, определяющую, является ли данное число N простым - VB
Формулировка задачи:
в Visual Basic
Циклы
2.Составить программу, определяющую, является ли данное число N простым.
Решение задачи: «Составить программу, определяющую, является ли данное число N простым»
textual
Листинг программы
'Теорема Вильсона
Private Sub Command1_Click()
Dim n As Single
n = InputBox("Vvedite N")
If n < 1 Then
MsgBox "error"
Exit Sub
End If
If (fact(n - 1) + 1) Mod n = 0 Then
MsgBox "Prostoe"
Else
MsgBox "ne prostoe"
End If
End Sub
Private Function fact(n As Integer) As Single
If n < 1 Then
fact = 1
Else
fact = n * fact(n - 1)
End If
End Function