Re: [VB2005][心得] 關於1-1000的質數
引言恕刪
非常謝謝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
推
10/04 19:24, , 1F
10/04 19:24, 1F
推
04/20 20:50, , 2F
04/20 20:50, 2F
→
04/20 20:51, , 3F
04/20 20:51, 3F
討論串 (同標題文章)
Visual_Basic 近期熱門文章
PTT數位生活區 即時熱門文章