一个完全数等于他的所有因数（不保含自身）之和,例如：28=1+2+4+7+14.编写程序,计算并输出3位数

来源：学生作业帮编辑：作业帮分类：综合作业时间：2024/07/08 23:35:50

一个完全数等于他的所有因数（不保含自身）之和,例如：28=1+2+4+7+14.编写程序,计算并输出3位数
VB啊VB啊.一个小时之内有效!

以下代码为输出1000以内的完全数
'代码运行前首先需要在窗体上放置一个文本框,并将其MultiLine(多行属性)设置为true
Private Sub Form_Load()
Text1.Text = ""
Dim i As Long
Dim j As Long
Dim k As Long
Dim ostr As String
For i = 1 To 1000
k = 0
ostr = CStr(i) & "="
For j = 1 To i - 1
If i Mod j = 0 Then
'说明是因子
ostr = ostr & CStr(j) & "+"
k = k + j
End If
Next
If k = i Then
'说明是完全数
Text1.Text = Text1.Text & Mid(ostr,1,Len(ostr) - 1) & vbCrLf '最后一个+号不要
End If
Next
End Su

一个完全数等于他的所有因数（不保含自身）之和,例如：28=1+2+4+7+14.编写程序,计算并输出3位数编写一个程序实现如下功能：计算1～100之间所有含某个数字的数之和（例如：含2的数之和是693）. 编写程序,计算所有三位数中能被3整除且十位数字不是3的数之和并输出.用c语言程序编写下来. 编写一个C语言程序,变量a等于3,b等于5,求二位数之和sum并输出结果编写一个完整程序,计算并输出1到100之间所有能被3整除的数的累加和编写一个程序.编写一个程序,同时计算1到1000之间所有3的倍数之和和所有7的倍数之和. 题目：：编写函数fun,函数的功能是：计算并输出给定 ' 整数n的所有因子之和（不包括1与自身）. 用pascal编写程序如果一个4位数等于它的每一位数字4次方之和,则称为玫瑰花数,求所有的玫瑰花数. 编写完整程序:计算并输出50以内（含50）的所有偶数之和用c语言编写一个程序,同时计算1~1000之间的所有3的倍数之和与所有7的倍数之和从键盘输入一个正整数n,计算该数的各位数字之和并输出.例如,输入5246,则计算5+2+4+6=17并输出. 1、编写一个Java程序,计算并输出1+2!+3!+…+10!的值.