通过调用通用过程的方法找出1-1000之间的完备数

来源：百度知道 编辑：UC知道 时间：2024/06/04 00:34:39
还有一道题帮忙
编写多重窗体应用程序.设计一个"四季风景"程序,程序包括5个窗体和1个标准模块.程序由sub main过程启动,在sub main过程中显示封面窗体,其余4个窗体分别显示一年四季的风景.程序运行时,首先显示封面窗体,该窗体上的列表框中列出一年四季4个目录,选自某个目录,则在另一个相应窗体的图片框中显示季节的风景照片
用vb的方法

Private Sub Command1_Click()
Dim n As Integer
for n=1 to 1000
if (Per(n)==1) then print n
next
End Sub

Public Sub Per(i As Integer)
Dim j As Integer, sum As Integer
sum = 0
Print "因子有："
For j = 1 To i / 2
If i Mod j = 0 Then
sum = sum + j
Print j;
End If
Next j
Print
Print "其和为："; sum
If sum = i Then
per=1
Else
per=0
End If