我要做一題用EXCEL VBA求出質數1-1000,可是遇到了幾個問題..... Sub AA() Dim M As Integer Dim N As Integer For M = 1 To 1000 For N = 2 To M / 2 temp = M Mod N If temp = 0 Then Exit For End If Next N If temp 0 Then temp1 = temp1 & "," & M End If Next Cells(1, 1) = temp1 End Sub
This entry passed through the Full-Text RSS service — if this is your content and you're reading it on someone else's site, please read the FAQ at fivefilters.org/content-only/faq.php#publishers. Five Filters recommends: 'You Say What You Like, Because They Like What You Say' - http://www.medialens.org/index.php/alerts/alert-archive/alerts-2013/731-you-say-what-you-like-because-they-like-what-you-say.html
You are receiving this email because you subscribed to this feed at blogtrottr.com.