判断一个数是否是素数

'Label1.Caption = IIf(IsPrimer(Int(Val(Text2.Text))) = 0, "bushi", "shi")

 End Sub

Private Function IsPrimer(n As Integer) As Integer

 

 Dim i As Integer

  For i = 2 To n - 1

      If n Mod i = 0 Then

       Exit For

      End If

   Next i

    If i = n Then

       IsPrimer = n

   Else

       IsPrimer = 0

   End If

   

End Function