Question

VB实验报告题 求素数 看清题目要求哦

编写判断一个数是不是素数的子函数过程，并利用该函数求1到100之间素数的个数。

Answer 1

Private Sub Command1_Click()
m = 0
For i = 2 To 100
If a(i) = True Then Print i: m = m + 1
Next
Print "1-100中素数的个数：" & m
End Sub
Function a(ByVal j As Integer) As Integer
If j = 2 Then a = True: Exit Function
a = False
For i = 2 To Sqr(j)
If j Mod i = 0 Then Exit For
Next
If i > Sqr(j) Then a = True
End Function
参考一下……