编写一Function函数过程

来源：百度知道 编辑：UC知道 时间：2024/05/14 11:22:51
编写一Function函数过程，用于判断一个数据是否为素数，若是，返回True，否则返回False。单击窗体中命令按钮，调用该过程，找出200~500范围内所有素数，并将所有素数添加在列表框中

楼上的,虽然对了,但效率太低,两个过程都改了一下,效率应该提高了100倍不上,不相信的话,可以把500改成5000试试
Private Sub Command1_Click()
For i = 200 To 500
If a(i) = True Then
s= S & i & vbCrLf
End If
Next i
Text1.Text=S
End Sub

Function a(ByVal n As Integer) As Boolean
a = True
For i = 2 To sqr(N)
If n Mod i = 0 Then
a = False
Exit For
End If
Next i
End Function

Private Sub Command1_Click()
Text1.Text = ""
For i = 200 To 500
If a(i) = True Then
Text1.Text = Text1.Text & i & vbCrLf
End If
Next i
End Sub

Function a(ByVal n As Integer) As Boolean
a = True
For i = 2 To n - 1
If n Mod i = 0 Then
a = False
Exit For
End If
Next i
End Function

''好久不摸VB了，想了半天才写出来的，嘿嘿~
''这题貌似以前VB二级中考过。