VB编程：利用判素数函数求100-200之间所有素数的平均值

Private Sub Command1_Click() Dim i As Integer, avg As Single, n As Integer For i = 100 To 200 If pd(i) Then n = n + 1 avg = avg + i End If Next avg = avg / n MsgBox avg End Sub Private Function pd(ByVal shu As Integer) As Boolean Dim i