python求超级素数代码_用vb找超级素数的代码怎么求啊

展开全部

一个素数，依次从最高位去掉一位32313133353236313431303231363533e59b9ee7ad9431333332616533，两位……若得到的都是素数，且各数字不为0，则称为超级素数。Private Sub Command1_Click()

Dim n As Long, iss As Boolean

n = Val(InputBox("输入要判断是否是超级素数的数："))

If InStr(Str(n), "0") Then

MsgBox "此数不是超级素数！"

Exit Sub

End If

Do

If Not IsSuShu(n) Then

MsgBox "此数不是超级素数！"

Exit Sub

End If

n = n \ 10

Loop Until n = 0

MsgBox "此数是超级素数！"

End Sub

Private Function IsSuShu(nub As Long) As Boolean

Dim i As Long

For i = 2 To nub - 1

If (nub Mod i) = 0 Then

IsSuShu = False

Exit Function

End If

Next i

IsSuShu = True

End Function