关闭

分析素数

103人阅读 评论(0) 收藏 举报

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

       虽然老师在课上讲了这个结构设计的内涵,但在上机练习的时候还是照抄老师的过程,我对素数的分析还是不太明白,当然在学姐和同学们的不懈努力下我终于明白了,唉,不得不说学习是件苦差事
0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:7713次
    • 积分:203
    • 等级:
    • 排名:千里之外
    • 原创:15篇
    • 转载:0篇
    • 译文:0篇
    • 评论:0条
    文章分类
    文章存档