عدد كامل

[aleas2]

سلام خسته نباشيد كسي ميدونه چطور ميشه برنامه اي نوشت كه يك عدد گرفته و بگه عدد كامله يا نه؟اگر ممكنه كد تو فايل تكست يا همينجا تايپ كنين ممنون

[SlowCode]

عدد کامل چیه؟ اول توضیح بدین!

[SlowCode]

آهان این همون عدد تام هست؟ اگه اشتباه نکنم میشه:
For i = 1 To txt1.text-1
If i Mod 2 = 0 Then A = A + i
Next
If A = txt1.text Then
MsgBox "کامل است"
else
Msgbox "کامل نیست."
End if

[aleas2]

والا خودمم نميدونم عدد كامل چي اگر ميدونستم خودم مينوشتم انشالا كه همين عدد تام هسته برحال ممنون

[shahab.f.c]

به عددی که مجموع همه مقسوم علیه هایش (به جز خود عدد) برابر با عدد اولی باشد عدد کامل می گن:
مثلا 28
28=1+2+4+7+14
حالا اینم برنامش:
(در رویداد کلید)

Private Sub Command1_Click()
Dim a As Long, b As Long, c As Long, d As String
d = InputBox("adad mored nazar")
a = Val(d)
For b = 1 To a
If a Mod b = 0 Then
c = c + b
End If
Next
If c - a = a Then
MsgBox ("kamel")
Else
MsgBox ("kamel nist")
End If
End Sub

همون برنامه قبلیه. ولی مشکل برنامه قبلی اینه که باید خود عدد اولی از مجموع عدد های بدست آمده کسر بشه.