سورس یک برنامه که فاکتوریل رو حساب کنه می خوام فوری

کمک کنید من خودم هرکاری میکنم نمی تونم کازیش کنم که برای>0 حساب کنه اخه اصلا بلد نیستم و باید تا فردا تحویل معلممون بدم مندر حد کتاب سوم دبیرستان رشته ریاضی هم بلد نیستم

متشــــکر:11:

کد:

---

Private Sub Label1_Click()
fact = 1
n = Text1.Text
While n > 1
fact = fact * n
n = n - 1
Wend
Label1.Caption = fact

End Sub

---

n که مقدار در تکست است که کمتر از 0 نمیشه باشه خود 0 هم فاکتوریلش 1 هست عزیزم .

متشکرم با اجازه تون امتحانش کنم

دوست عزیزم واقعا شرمنده. اونقدر عجله داشتم که معلوم نیست چی نوشتم .

کد اصلی اینه

دو تا تکست باکس و یه دکمه بذار تو صفحه .

توی رویداد دکمه بنویس :

کد:

---

Private Sub Command1_Click()
    Dim g As Double, result As Double
    g = Int(Val(Trim(Text1.Text)))
    If g <= 0 Then
    MsgBox ("")
    Text1.Text = ""
    Else
    result = 1
    For i = g To 2 Step -1
    result = result * g
    g = g - 1
    Next
    Text2.Text = Str(result)
    End If
End Sub

---

حالا برنامه را اجرا کن و مثلا توی تکست اول بنویس 6 باید جواب بده 720
همین
یا علی