招标,资讯,动态,产品,供求,资料,下载,推广,人才,网站建设用VB代码求1000以内的完数 - 交通论坛

交通论坛交通论坛职场考试用VB代码求1000以内的完数

本主题被查看392次, 共1个帖子, 1页, 当前为第1页选择页数: 1 跳转到第页上一主题下一主题

joycj

娇^（00）^

注册会员

UID: 1903
来自:
精华: 2
积分: 182
帖子: 166
注册: 2007-8-6 9:29:00
状态: 离线
威望: 6.00
金钱: 42.25 元

发短消息用户资料树型回复引用

只看楼主 2007-08-13 10:24

用VB代码求1000以内的完数

一个按钮里调用的过程
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

#1

大中小

本主题被查看392次, 共1个帖子, 1页, 当前为第1页选择页数: 1 跳转到第页

现在的时间是 2008-07-25 16:33:33

	版权所有西南交通信息网
	页面执行时间 0.064 seconds