以下程序执行后将输出100到200之间所有的素数，并统计素数的个数Private Sub Form_Click()Dim i

以下程序执行后将输出100到200之间所有的素数，并统计素数的个数Private Sub Form_Click（)Dim i

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

Private Sub Form_Click()

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

Dim b As Boolean

For i = 100 To 200

b = True

k= ------ 1 -----

j = Int(Sqr(i))

Do While k ＜= j And b

If i Mod k = 0 Then

------ 2 ------

End If

------ 3 ------

Loop

if b=true then

t = t + 1

Form1.Print i

End If

Next i

Print "t="; t

End Sub