آژانس هواپیمایی
tanki

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

شروع موضوع توسط randycopol ‏20 دسامبر 2007 در انجمن Visual Basic 6

  1. randycopol

    randycopol کاربر تازه وارد

    تاریخ عضویت:
    ‏20 دسامبر 2007
    نوشته ها:
    3
    تشکر شده:
    0
    با سلام .

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

    خواهش میکنم . خیلی عجله دارم . ( ویژوال بیسیک )
     
  2. آموزش لینک سازی 2018
  3. n.s

    n.s کاربر تازه وارد

    تاریخ عضویت:
    ‏2 اکتبر 2007
    نوشته ها:
    59
    تشکر شده:
    0
    منظورت همون " تام " بودن عدد ؟؟؟
     
  4. n.s

    n.s کاربر تازه وارد

    تاریخ عضویت:
    ‏2 اکتبر 2007
    نوشته ها:
    59
    تشکر شده:
    0
    امیدوارم همین باشه


    کد:
    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
    
    
    
     
avanak همکاری در فروش عسل طبیعی و گرده گل ایرانیتبلیغات در گوگل