以下程序执行后将输出100到200之间所有的素数，并统计素数的个数

 Private Sub Form_Click( )

    Dim i%, j%, k%, t%         't为统计素数的个数

    Dim b As Boolean

    For i = 100 To 200

        b = True

        k=

        j = Int(Sqr(i))

        Do While k <= j And b

            If i Mod k = 0 Then

                

            End If

            

        Loop

        if b=true then

            t = t + 1

            Form1.Print i

        End If

    Next i

    Print "t="; t

End Sub