محاسبه توان با جمع

["juggle"]

چطوری میتونم با جمع توان رو محاسبه کنم

دوستان لطفا کمک کنید

[MohammadGh2011]

سلام عليکم
براي محاسبه ي توان در وي بي ميتونيد از علامت ^ استفاده کنيد.
براي مثال 3 به توان 2 که ميشه 9 رو ميتونيد بدين صورت محاسبه کنيد:

Private Sub Command1_Click()

MsgBox 3 ^ 2

End Sub

موفق باشيد

["juggle"]

ینطوری نه
میگم محاسبه توان به وسیله عملگر جمع
یعنی 2 به توان 3 برابره با 2+2+2+2

[M.T.P]

مثال: 2 به توان 3

Dim IntAdad As Long
Dim IntTavan As Long
Dim IntResult As Long
Dim i As Long

IntResult = 1
IntAdad = 2
IntTavan = 3
For i = 1 To IntTavan
    IntResult = IntResult * IntAdad
Next i
MsgBox IntResult

["juggle"]

m.t.p عزیز من میگم محاسبه توان به وسیله عملگر جمع انوقت شما با ضرب حساب میکنین
بازم ممنون
دوستان لطفا کمک کنید

["juggle"]

لطفا یکی کمک کنه
این همه برنامه نویس

[M.T.P]

Dim IntAdad As Long
Dim IntTavan As Long
Dim IntResult As Long
Dim i, x, z As Long


IntAdad = 7
IntTavan = 3

IntResult = IntAdad
For i = 1 To IntTavan - 1
    For x = 1 To IntAdad
        z = z + IntResult
    Next x
    IntResult = z
    z = 0
Next i

MsgBox IntResult

["juggle"]

m.t.p عزیز خیلی خیلی ازت ممنون
یه سوال دیگه
میتونی همینو به صورت بازگشتی بنویسی