素数程序

Private Sub Command1_Click()

                                            'htm15

                                            'css3

                                            'Javascrip

    Dim M As Inter

    Dim N As Inter

    Dim flag As Boolean

    M = Int(val(text1.Text))

    N = M - 1

    flag = False '为ture时表示M可

                          '被比他小的整数整除

 

while N >=2

If M Mod N = 0 Then

    flag = Ture

    End if

    N = N - 1

Wend

 If flag = Ture Then

        'print"您不是素数"

        LbLIsprimer.Caption="您不是素数"

Else

 Print"您是素数"

LbLIsprimer.Caption = " 您是素数 "

End if