لطفــــــــــا کمکم کنید . ( خیلی فوری )

[randycopol]

با سلام .

متن برنامه ای میخوام که یه عدد رو بگیره و تعیین کنه که ، آیا این عدد کامل است یا خیر .

خواهش میکنم . خیلی عجله دارم . ( ویژوال بیسیک )

 

[n.s]

منظورت همون " تام " بودن عدد ؟؟؟

 

[n.s]

امیدوارم همین باشه

option base 1


cls
sum=0
num=val(text1.text)
for i=1 to n
  a=n mode i
  if a=0 then 
   sum=sum+i
  end if
next i 
b=sum-n
if b=n then 
  msgbox " عدد تام است "
else 
msgbox " تام نیست "
end if