你的代码有几处错误,正确代码如下: Private Sub Command1_Click() Dim i As Integer, x As Integer, b As Boolean For x = 2 To 999 'x=1改为x=2,因为最小素数是2 b = True '假设x是素数 For i = 2 To Sqr(x) 'i=1应改为i=2 If x Mod i = 0 Then b = False '如果能整除则x不是素数 Exit For End If '你的代码中少了End if Next i If b Then List1.AddItem x End If Next x End Sub Private Sub Command2_Click() Text1.Text = List1.ListCount End Sub Private Sub Command3_Click() End End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除！