ورود به حساب ثبت نام جدید فراموشی کلمه عبور
برای ورود به حساب کاربری خود، نام کاربری و کلمه عبورتان را در زیر وارد کرده و روی “ ورود به حساب” کلیک کنید.





اگر فرم ثبت نام برای شما نمایش داده نمیشود، اینجا را کلیک کنید.









اگر فرم بازیابی کلمه عبور برای شما نمایش داده نمیشود، اینجا را کلیک کنید.





نمایش نتایج: از 1 به 3 از 3
  1. #1
    Prof.MohammadGh
    Moderator
    تاریخ عضویت
    1970 Jan
    محل سکونت
    Iran
    نوشته ها
    317
    9
    219

    Post سورس به دست آوردن فاکتوريل يک عدد در Vb6

     Dim i As Double
    Dim n As Double
    Dim f As Double
    f = 1
    n = InputBox("ÚÏÏ ÑÇ æÇÑÏ ˜ä")
    For i = 1 To n
    f = f * i
    Next i
    MsgBox (f)

    Info بسمه تعالي

    1.از عناوين مناسبي براي ايجاد تاپيکها استفاده کنيد.
    2.اگر پستي برايتان مفيد بود فقط از دکمه ي تشکر آن پست استفاده کنيد.

    To Contact Me:[برای نمایش لینک باید عضو شوید. ]

  2. #2
    Prof.MohammadGh
    Moderator
    تاریخ عضویت
    1970 Jan
    محل سکونت
    Iran
    نوشته ها
    317
    9
    219

    Post به دست آوردن فاکتوريل با تابع (روش اول)

    تابع:

    Public Function fact(ByVal f As Integer)
    a = 1
    For i = 1 To f
    a = a * i
    Next i
    fact = a
    End Function


    نحوه فراخواني:


    Private Sub Command1_Click()
    Print fact(3)
    End Sub

    Info بسمه تعالي

    1.از عناوين مناسبي براي ايجاد تاپيکها استفاده کنيد.
    2.اگر پستي برايتان مفيد بود فقط از دکمه ي تشکر آن پست استفاده کنيد.

    To Contact Me:[برای نمایش لینک باید عضو شوید. ]

  3. #3
    Prof.MohammadGh
    Moderator
    تاریخ عضویت
    1970 Jan
    محل سکونت
    Iran
    نوشته ها
    317
    9
    219

    به دست آوردن فاکتوريل با تابع (روش دوم)

    تابع:
    Function fact(ByVal n As Integer)
    If n = 1 Then
    fact = 1
    Else
    fact = n * fact(n - 1)
    End If
    End Function



    نحوه فراخواني:
    Private Sub Form_Click()
    Print fact(3)
    End Sub

    Info بسمه تعالي

    1.از عناوين مناسبي براي ايجاد تاپيکها استفاده کنيد.
    2.اگر پستي برايتان مفيد بود فقط از دکمه ي تشکر آن پست استفاده کنيد.

    To Contact Me:[برای نمایش لینک باید عضو شوید. ]

نمایش نتایج: از 1 به 3 از 3

اطلاعات موضوع

کاربرانی که در حال مشاهده این موضوع هستند

در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)

موضوعات مشابه

  1. دانلود سورس فاکتوریل در سی پلاس پلاس
    توسط MspSoft در انجمن برنامه نویسی با زبان C و ++C
    پاسخ: 0
    آخرين نوشته: 2012-10-07, 11:03 PM
  2. سورس بدست اوردن معدل
    توسط MspSoft در انجمن برنامه نویسی در 6 VB
    پاسخ: 0
    آخرين نوشته: 2012-09-28, 09:34 PM
  3. درخواست سورس سیستم مدیریت کتابخانه به همراه توضیحات
    توسط dj_mina در انجمن برنامه نویسی در 6 VB
    پاسخ: 0
    آخرين نوشته: 2012-01-21, 03:04 PM
  4. الگوریتمی که a به توان n را به روش تقسیم و حل بدست بیاورد
    توسط sina در انجمن الگوریتم، کامپایلر، هوش مصنوعی و ساختمان داده ها
    پاسخ: 0
    آخرين نوشته: 2012-01-14, 02:16 PM
  5. توابع api همراه با سورس و توضیح
    توسط vahid4251 در انجمن برنامه نویسی در 6 VB
    پاسخ: 6
    آخرين نوشته: 2011-12-15, 07:15 PM

کلمات کلیدی این موضوع

مجوز های ارسال و ویرایش

  • شما نمیتوانید موضوع جدیدی ارسال کنید
  • شما امکان ارسال پاسخ را ندارید
  • شما نمیتوانید فایل پیوست کنید.
  • شما نمیتوانید پست های خود را ویرایش کنید
  •  

Content Relevant URLs by vBSEO 3.6.0 RC 2