فاكتوريل

[mvig]

سلام

آقا چطورى ميشه يه كد نوشت كه عدد رو تو يه تكست باكس وارد كنى و با زدن يه دكمه توى msgbox فاكتوريل عدد رو بگيرى.

من اينو نوشتم،ولى جواب نداد:

کد:

Dim a As Double = TextBox1.Text
        msgbox(1*2*3*...*a)

زير *... خط ميكشه.
كمك كنين ممنون ميشم.

[ajlajlajl]

اول یه تابع مثل این مینویسید:

کد:

Private Function Fact(ByVal n As Integer) As Integer
        If n <= 1 Then Return 1
        Dim f As Integer = 1
        For i As Integer = 2 To n
            f *= i
        Next
        Return f
    End Function

بعد با این حساب میکنید :

کد:

Dim a As Integer = Fact(TextBox1.Text)

[mvig]

ممنون
ولى ميشه بگيد اين كدها رو براى كدوم كنترلها بنويسم؟
اولى كه مشخصه،چيزى نميخواد.
دومى رو بايد كجا بنويسم؟
توى خود اولى نتونستم.
بايد براى button بنويسم؟اگه آره چجورى؟
بايد يه كلاس جدا داشته باشه؟

[ajlajlajl]

مثال :

WindowsApplication1.rar