module1.bas

了解公钥密码算法的特点

Attribute VB_Name = "prime"
Public i As String
Public m As String
Public Sub prime(i) '判断输入的数是否为素数

Dim k As Integer
For k = 2 To Int(i) / 2
If i Mod k = 0 Then Exit For
Next k
If k > Int(Sqr(i)) Then '为素数时令m＝1
m = "1"
Else      '不为素数时令m＝0
m = "0"
End If
End Sub