分析素数

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

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