Vb利用判素数函数，完成100到200之间所有素数平均值的输出。急急急！！！
Vb利用判素数函数，完成100到200之间所有素数平均值的输出。急急急！！！
日期：2020-04-30 19:08:04 人气：1
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 As