vba求100以内的质数

Public Sub example()

Dim i, n, flag As Integer

n = 2

Do While n <= 100

   flag = 0: i = 2

   Do While i <= Sqr(n)

        If n 简氏拆Mod 核高i = 0 Then

           flag = 1

           Exit Do

           End If

     拦枣   i = i + 1

    Loop

If flag = 0 Then

Debug.Print n & "是一个质数"

End If

n = n + 1

Loop

End Sub

在你的基础上修改了下

Sub my()

Dim i As Long, j As Long

Dim b As String

For i = 2 To 100

     For j = 2 To Int(Sqr(i)) + 1

        If i Mod j = 0 Then

            Exit For

        ElseIf j = Int(Sqr(i)) + 1 Then

            b = 衡高带b + Str(i)

 念袜      咐芦 End If

    Next

    If j = Int(Sqr(i)) + 1 Then b = b + Str(i)

Next

MsgBox b

End Sub

运行结果：

Sub s()

Dim arr(1 To 500)

arr(1) = 2

arr(2) = 3

k = 2

For i = 5 To 1000 Step 2

For j = 2 To k

If i Mod arr(j) = 0 Then GoTo 1

Next

k = k + 1

arr(k) = i

1:

Next

Cells(1, 1).Resize(k) = Application.Transpose(arr)

End Sub

将1-1000的质槐氏数输橘明兆出到圆租A列

---