求1000以内满足如下条件的正整数N:它的各个因子(包括1和N)之和sum是一个素数.求1000以内满足如下条件的正整数N:它的各个因子(包括1和N)之和sum是一个素数.例如:25的因子为1、5、25,
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/16 19:19:04
![求1000以内满足如下条件的正整数N:它的各个因子(包括1和N)之和sum是一个素数.求1000以内满足如下条件的正整数N:它的各个因子(包括1和N)之和sum是一个素数.例如:25的因子为1、5、25,](/uploads/image/z/955394-26-4.jpg?t=%E6%B1%821000%E4%BB%A5%E5%86%85%E6%BB%A1%E8%B6%B3%E5%A6%82%E4%B8%8B%E6%9D%A1%E4%BB%B6%E7%9A%84%E6%AD%A3%E6%95%B4%E6%95%B0N%EF%BC%9A%E5%AE%83%E7%9A%84%E5%90%84%E4%B8%AA%E5%9B%A0%E5%AD%90%EF%BC%88%E5%8C%85%E6%8B%AC1%E5%92%8CN%EF%BC%89%E4%B9%8B%E5%92%8Csum%E6%98%AF%E4%B8%80%E4%B8%AA%E7%B4%A0%E6%95%B0.%E6%B1%821000%E4%BB%A5%E5%86%85%E6%BB%A1%E8%B6%B3%E5%A6%82%E4%B8%8B%E6%9D%A1%E4%BB%B6%E7%9A%84%E6%AD%A3%E6%95%B4%E6%95%B0N%EF%BC%9A%E5%AE%83%E7%9A%84%E5%90%84%E4%B8%AA%E5%9B%A0%E5%AD%90%EF%BC%88%E5%8C%85%E6%8B%AC1%E5%92%8CN%EF%BC%89%E4%B9%8B%E5%92%8Csum%E6%98%AF%E4%B8%80%E4%B8%AA%E7%B4%A0%E6%95%B0.%E4%BE%8B%E5%A6%82%EF%BC%9A25%E7%9A%84%E5%9B%A0%E5%AD%90%E4%B8%BA1%E3%80%815%E3%80%8125%2C)
求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