以下程序执行后将输出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