编写一个判断素数的函数： function prime(x as long) as boolean
Private Sub Command1_Click() s = 1 For i = 21 To 5
我记得素数是只能被1和它本身除的数，如是的话如下代码能够实现。 Private Sub Comma
Private Sub Form_Load()ShowDim n, i, k As Integer
按下面代码计算： Dim i As Long, n As Long Di
Private Sub Command1_Click()For i = 2 To 1000 For
代码： Private Sub Command1_Click() Me.Cls Dim yn As
判断素数的原理是： 素数是只能被1和本身整除的数。例如 3只能被1和3整除，17只能被1和17整
Private Function IsPrime(ByVal n As Integer) As Bo
Dim i As Integer, n As Integer ,m as integer For