求一组显示0到100所有质数的代码

Public Function zhishu(ByVal max As Integer, Optional ByVal mix As Integer = 3) As String
Dim a As Boolean
Dim b As String = ""
For i = mix To max
a = True
For p = 2 To i - 1
If i Mod p = 0 Then a = False
Next
If a Then
b = b & "," & i
End If
Next
Return Strings.Mid(b, 2)
End Function