Private Sub Command1_Click()
For i = 10 To 100
If prime(i) Then List1.AddItem i: s = s + i
Next i
Text1.Text = s
End Sub
Public Function prime(n)
For i = 2 To Sqr(n)
If n Mod i = 0 Then prime = False: Exit Function
Next i
prime = True
End Function
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024