作者xtimer ()
看板Visual_Basic
标题Re: [VB2005][心得] 关於1-1000的质数
时间Mon Sep 29 13:50:28 2008
引言恕删
非常谢谢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
1F：推 timmy5519:可以用爱氏筛选法 会更有效率喔! 10/04 19:24
2F：推 dong2:我是讨论串原PO 我发现...大家讨论的我都看不懂 不仅如此 04/20 20:50
3F：→ dong2:我甚至连自己当初打的都看不懂(包含中文说明= =) 果然久没用 04/20 20:51