求1000以内满足如下条件的正整数N：它的各个因子（包括1和N）之和sum是一个素数.求1000以内满足如下条件的正整数N：它的各个因子（包括1和N）之和sum是一个素数.例如：25的因子为1、5、25,

求1000以内满足如下条件的正整数N：它的各个因子（包括1和N）之和sum是一个素数.求1000以内满足如下条件的正整数N：它的各个因子（包括1和N）之和sum是一个素数.例如：25的因子为1、5、25,
求1000以内满足如下条件的正整数N：它的各个因子（包括1和N）之和sum是一个素数.
求1000以内满足如下条件的正整数N：它的各个因子（包括1和N）之和sum是一个素数.例如：25的因子为1、5、25,其和 1+5+25 = 31是素数.并定义一个判断素数的函数过程fprime(n),添加一个按钮Button2,调用该函数过程来判断是否为素数.区别函数过程和Sub过程的异同.程序的思想是选取正整数N,分解其因子,并累加,子过程Prime 用于判断累加和是否是素数,若是素数,在文本框内显示所求结果,如图所示.
Sub Button1_Click(……) Handles Button1.Click
Dim flg As Boolean,i%,sum%,n%,t$
TextBox1.Text = ""
For n = 2 To 1000
sum = 1
t = "1" ' 存放各个因子之和表达式
i = 2
Do While i

求1000以内满足如下条件的正整数N：它的各个因子（包括1和N）之和sum是一个素数.求1000以内满足如下条件的正整数N：它的各个因子（包括1和N）之和sum是一个素数.例如：25的因子为1、5、25,
Sub Button1_Click(……) Handles Button1.Click
Dim flg As Boolean, i%, sum%, n%, t$
TextBox1.Text = ""
For n = 2 To 1000
sum = 1
t = "1" ' 存放各个因子之和表达式
i = 2
Do While i