Re: [VB2005][心得] 關於1-1000的質數

[xtimer ()]

引言恕刪

非常謝謝humanfly (laguna)大大的教學

真的受益良多~


根據大大第一個的提示  我改成這樣

Module Module1

    Sub Main()
        Dim input, temp, n, k, s, x, count As Integer
        Dim array(10000, 0)
        s = 0
        count = 0
        Console.Write("請輸入一個2~10000的整數  ")
        input = Console.ReadLine
        For temp = 2 To input
            k = 0
            For n = 2 To temp
                If n <= temp And temp Mod n = 0 Then k += 1
            Next
            If k = 1 Then
                count += 1
                array(s, 0) = temp
                s += 1
            End If
        Next
        Console.WriteLine("所包含的質數有")
        For x = 0 To s Step 1
            Console.WriteLine(array(x, 0))
        Next
        Console.WriteLine("共" & count & "個")
        Console.ReadKey()
    End Sub

End Module

可以執行  故分享一下

另外  大大的第二種  寫的好漂亮

謝謝教學囉~

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 220.143.41.105
推 timmy5519:可以用愛氏篩選法 會更有效率喔!
推 dong2:我是討論串原PO  我發現...大家討論的我都看不懂 不僅如此
→ dong2:我甚至連自己當初打的都看不懂(包含中文說明= =) 果然久沒用