n^m در VB

[pooyar]

دوستان گرامی اگه کسی بلده لطف کنه تمرین زیر رو برام حل کنه ممنونش میشم:
با استفاده از دستور FOR (هر چند فور که دلتون میخواد استفاده کنید) n^m را در VB محاسبه کنید به طوری که از عمل ضرب استفاده نشود (در هیج کجای برنامه) و فقط از عمل جمع استفاده شود باتشکر.

 

[the_king]

دوستان گرامی اگه کسی بلده لطف کنه تمرین زیر رو برام حل کنه ممنونش میشم:
با استفاده از دستور FOR (هر چند فور که دلتون میخواد استفاده کنید) n^m را در VB محاسبه کنید به طوری که از عمل ضرب استفاده نشود (در هیج کجای برنامه) و فقط از عمل جمع استفاده شود باتشکر.

Private Function Power(ByVal n As Long, ByVal m As Long) As Variant
    Dim i As Long, j As Variant
    If m = 0 Then
        Power = CDec(1)
    Else
        Power = CDec(0)
        j = Power(n, -1 + m)
        For i = 1 To n
            Power = Power + j
        Next
    End If
End Function

Private Sub Form_Load()
    Dim n As Long, m As Long
    n = Val(InputBox("Please enter n : ", ""))
    m = Val(InputBox("Please enter m : ", ""))
    MsgBox "n ^ m = " & Power(n, m)
    End
End Sub