VB：计算1000以内的完数并输出它们的组合

曾经终败给现在 2022-05-26 06:44 228阅读 0赞

题目来源：大工慕课 [链接][Link 1]  
原题：Visual Basic程序设计教程（第二版）龚沛曾主编，高等教育出版社 实验6-6  
作者：Caleb Sung

# 题目要求 #

如果一个整数的所有因子（包括1，但不包括本身）之和与该数相等，则称这个数为完数。例如6＝1+2+3，所以6是一个完数。编写一个函数IsWs(m)判断m是否为完数，函数的返回值是逻辑型。主调程序显示1000以内的完数，如图所示。  
![这里写图片描述][70]

# 提示 #

判断一个数m是否是完数，算法思想是：将m依次除以1～m/2，如果能整除，就是m的一个因子，进行累积；循环结束，若m与累加因子之和相等，m就是完数。

--------------------

# 参考代码 #

这里我偷了个懒没画list，大家可以参照我的改一下

## 全局定义 ##

Dim a%()

## 响应点击主窗体 ##

Private Sub Form_Click()
        Print "1000以内的完数为："
        For i = 1 To 1000
            If IsWs(i) Then
                Print i; "=1";
                For j = 1 To UBound(a)
                    Print "+"; a(j);
                Next j
                Print
            End If
        Next i
    End Sub

## 计算函数：IsWs() ##

Function IsWs(m) As Boolean
        Dim s%
        s = 0
        For i = 1 To m \ 2
            If m Mod i = 0 Then
                ReDim Preserve a(j)
                a(j) = i
                j = j + 1
                s = s + i
            End If
            Next i
        If m = s Then IsWs = True
    End Function

[Link 1]: https://mooc.dlut.edu.cn/
[70]: /images/20220526/1902008b312345de808e6abba2502d83.png

发表评论取消回复

表情：

评论列表（有 0 条评论，228人围观）

还没有评论，来说两句吧...

相关阅读

相关 JavaScript——找出1000以内的完数

> 完全数（Perfect number），又称完美数或完备数，是一些特殊的自然数。它所有的真因子（即除了自身以外的约数）的和（即因子函数），恰好等于它本身。如果一个数恰好等于

r囧r小猫/ 2024年04月06日 09:26/ 0 赞/ 74 阅读

相关 100以内的完数

如果一个数等于其所有因子之和，这个数称为完数。显然，如果要判断一个数是否是完数，应先求其所有因子，再将它们加起来，看其和是否和该数相等。求：100以内所有完数。

￡神魔★判官ぃ/ 2023年10月01日 08:44/ 0 赞/ 20 阅读

相关 1000以内完数c语言程序_编程找出1000以内的所有完数

编程找出1000以内的所有完数 \include "stdio.h" \include "conio.h" main() \{ static int k\[10\];

红太狼/ 2023年01月01日 06:49/ 0 赞/ 202 阅读

相关【python初级】计算1000以内的完全数

【python初级】计算1000以内的完全数背景代码背景有一个初学python的群友，发问如何用python求1000以内的完全数；关于完

秒速五厘米/ 2022年10月13日 01:58/ 0 赞/ 337 阅读

相关【C语言】输出1--1000以内的水仙花数

水仙花数是指一个 n 位数 ( n≥3 )，它的每个位上的数字的 n 次幂之和等于它本身可以由下面的代码实现 define _CRT_SECURE_NO_WARN

谁践踏了优雅/ 2022年07月16日 01:16/ 0 赞/ 288 阅读

相关编程找出1000以内的所有完数

实验目的：学会使用循环控制语句解决实际问题实验内容：编程找出1000以内的所有完数。程序头部注释开始（为避免提交博文中遇到的问题，将用于表明注释的斜杠删

痛定思痛。/ 2022年06月16日 13:12/ 0 赞/ 233 阅读

相关第12周实验报告1（1000以内的所有完数）

第12周报告1：实验目的：学会使用循环控制语句解决实际问题，并强化注重效率的观念实验内容：用循环控制语句编写程序，完成表达式的计算

た入场券/ 2022年06月14日 03:38/ 0 赞/ 197 阅读

相关 VB：计算1000以内的完数并输出它们的组合

题目来源：大工慕课 [链接][Link 1] 原题：Visual Basic程序设计教程（第二版）龚沛曾主编，高等教育出版社实验6-6 作者：Caleb Sung

曾经终败给现在/ 2022年05月26日 06:44/ 0 赞/ 229 阅读

相关求1000以内的完全数

求1000以内的完全数若一个自然数，恰好与除去它本身以外的一切因数的和相等，这种数叫做完全数。例如，6=1+2＋3 28=1＋2＋4＋7＋14 496=1+

旧城等待，/ 2022年05月18日 08:29/ 0 赞/ 257 阅读

相关算法||找出1000以内的所有完数。

问题描述：一个数如果恰好等于它的因子之和，这个数就称为 "完数 "。例如6=1＋2＋3.编程找出1000以内的所有完数。 public class Test{

水深无声/ 2022年04月22日 02:16/ 0 赞/ 221 阅读