vb 大问题~~~~~有分！

来源：百度知道 编辑：UC知道 时间：2024/06/28 07:35:59
编写一个包含多个模块的工程，要求包含以下功能：
(1)输入一个数，显示它是否素数；
(2)输入两个数，显示它们之间的所有素数；
(3)输入一个数，显示比它小的最大素数；
(4)输入一个数，显示比它大的最小素数；
(5)验证哥德巴赫猜想，即输入一个偶数，把它分解成两个素数之和。
设计适当的界面，使用户可以方便地调用上述功能，并在窗体中输入数据，显示结果
我们的课本上是写着素数呢，呵呵~~我对你的第一题满意吖~~继续吧，回答完的就选你了，不过不要太久哦~~今个星期内要交了！！
我晕了~~~~~同学！！可以一次过将它们发出来吗？我时间不够了~其实不明白的话我也可以研究一下，等救命啊，兄弟~~

(1)输入一个数，显示它是否素数；
(素数=质数吧？我们小学课本可能不同)
public sub TestPrime（x as integer）as Boolean
TestPrime = true
for i = 2 to (x-1)
if x mod i = 0 then ;mod 用来找余数,3 mod 2 = 1, 4 mod 2 = 0
TestPrime = false
end if
next i

编程完毕
解释：把X依次除以比自己小的数，看有没有整除。如果能整除,x就不是素数了.

余下的问题，你先告诉我对第一个满意与否？
还有，素数我叫的真不顺口， 你难道是我亲爱的台湾同胞？

(2)
这个问题要继续用（1）的方程。这样我们就不用把3楼兄的command1_click下的命令不断的手写了。

public sub TestPrimeRange(Start as integer,End as integer)
for i = start to end
call testprime(i)
if testprime = true then
Print i; "是素数" ;print是我照抄的，请自选合适output.
end if
next i
end sub

回答完毕。
余下的问题，你先告诉我对第2个满意与否？
例子：从1到100
call TestPrimeRange(1,100)

(3)显示比它小的最大素数； *使用了（1）（2）的方程
public sub MinPrime(x as integer) as integer
dim Found as Boolean = false
do while Found = false
If testprime(x-1)