急！！！ vb编程：利用判素数函数，完成100到200之间所有素数平均值的输出？

Question

利用判素数函数，完成100到200之间所有素数平均值的输出。

Answer 1

Private Sub Command1_Click()

  For i = 101 To 200 Step 2

    If isprime(i) Then s = s + i: n = n + 1

  Next i

  Print "100到200之间所有素数平均值="; s / n

End Sub

Function isprime(n) As Boolean

  isprime = False

  For i = 2 To Sqr(n)

    If n Mod i = 0 Then Exit Function

  Next i

  isprime = True

End Function