ايران ويج

سلام

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

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

کد: 
Dim a As Double = TextBox1.Text

        msgbox(1*2*3*...*a)

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

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

کد: 
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)

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

مثال :

WindowsApplication1.rar

mvig

ajlajlajl

mvig

ajlajlajl