y过滤器:急！！！用VB代码求1000以内的完数--期末考试题啊！

来源：百度文库编辑：中科新闻网时间：2024/05/16 17:56:35

'一个按钮里调用的过程
Private Sub Command1_Click()
OutputWanNumber 1000
End Sub

'求完数的过程
Sub OutputWanNumber(ByVal UpperBound As Integer)
Dim i As Integer
Dim j As Integer
Dim s As Integer

For i = 1 To UpperBound
s = 0
For j = 1 To i \ 2
If i Mod j = 0 Then s = s + j
Next j

If s = i Then Print i & "是完数"
Next i
End Sub

急！！！用VB代码求1000以内的完数--期末考试题啊！急求使用VB编写一段代码算蝴蝶数这是一段寻找1000以内的完数的代码，为什么…… 求1000以内的完数..用VF编出来帮帮我啦.... 急！求一个vb代码急求:一个简单的VB编程代码! 请用vb编写一个找出10000以内的亲密数对的小程序求4位以内的相亲数， vb求100以内的所有素数求VB登陆界面代码~急啊~~~~~