返回首页

编写一个函数用于判断给定的任意正整数是否是素数，

发布时间：2016-07-21 11:01:30

Private Sub Form_Load() Dim sNum As Single sNum = InputBox("请输入一个正整数") If ZhiShu(sNum) Then MsgBox "1" Else MsgBox "0" End If End Sub Function ZhiShu(N As Single) As Boolean Dim I As Integer ZhiShu = True

相关内容

最新内容

← 上一条：为什么科比布莱恩特永远超越不了迈克尔乔丹 下一条：在动漫衍生产品开发中，每一部动漫衍生产品的范 →

热门栏目