Question

请问VB语言中怎么求1到1000的素数分别有哪些

Answer 1

Private Sub Command1_Click()
    Dim a As Long
    Dim i As Long
    Dim k As Long
    Dim t
    For i = 2 To 1000
    t = 0
        For k = 2 To i - 1
            If i Mod k = 0 Then
                t = 1
            End If
        Next
        If t = 0 Then
            Print i;
            a = a + 1
            If a Mod 20 = 0 Then
                Print
            End If
        End If
    Next
End Sub

 

Answer 2

来源：http://zhidao.baidu.com/link?url=E2G18WKVbJoT4mIgUrklvOtFFLv8agKrKrPWYVFw54Fl7aojnyBWWaIcAR20AC7XP6bUSEALER3CBZbZKQiytq

Private Sub Command1_Click()

Dim i, s, n, c As Double

i = 3: s = 0

Do While i <= 1000

       n = 1: c = 0

       Do While n <= i

             If i Mod n = 0 Then

                   c = c + 1

             End If

             n = n + 1

       Loop

       If c = 2 Then

          s = s + i

       End If

       i = i + 2

Loop

s = s + 2

Print s