راهنمایی درباره چاپ فرمول و راه حل مسئله در فرم ویژوال بیسیک

f1234 · May 13, 2014

سلام دوستان
برنامه ای رو نوشتم که فاکتوریل عدد رو محاسبه میکنه، اما میخوام فرمول اون رو در فرم یا برچسب چاپ کنه:
مثال:
اگر عدد 4 رو به ورودی دادیم روی فرم این نتیجه رو بده:
24=1*2*3*4=!4
ممنون میشم راهنمایی کنید

the_king · May 14, 2014

f1234 گفت:
سلام دوستان
برنامه ای رو نوشتم که فاکتوریل عدد رو محاسبه میکنه، اما میخوام فرمول اون رو در فرم یا برچسب چاپ کنه:
مثال:
اگر عدد 4 رو به ورودی دادیم روی فرم این نتیجه رو بده:
24=1*2*3*4=!4
ممنون میشم راهنمایی کنید

تابع برای محاسبه فاکتوریل :

کد:

Private Function Fact(n As Integer) As String
    Dim i As Integer, f As Currency
    Fact = "1"
    f = 1
    For i = 2 To n
        Fact = Fact & "*" & CStr(i)
        f = f * i
    Next
    Fact = Fact & "=" & CStr(f)
End Function

چاپ فاکتوریل روی فرم :

کد: