分析素数

Private Sub Command1_Click()

Dim M As Integer

Dim N As Integer

Dim flag As Boolean

M=Int(Val(Text1.Text))

N=M-1

flog=False   '为true时,表示M可以被比他小的整数整除'

While N>=2

If M Mod N=0 Then

Flag=True

End If

N=N-1

Wend

If flag =True Then

Print   "你是不是素数"

Else Print   "你是素数"

End If

End Sub

       虽然老师在课上讲了这个结构设计的内涵,但在上机练习的时候还是照抄老师的过程,我对素数的分析还是不太明白,当然在学姐和同学们的不懈努力下我终于明白了,唉,不得不说学习是件苦差事
阅读更多
文章标签: command
想对作者说点什么? 我来说一句

ACM程序设计(半素数

2012年04月14日 1010KB 下载

没有更多推荐了,返回首页

不良信息举报

分析素数

最多只允许输入30个字

加入CSDN,享受更精准的内容推荐,与500万程序员共同成长!
关闭
关闭