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

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 =