ضرب دو عدد از طريق جمع

[mehdiafzali]

2-برنامه اي كه توسط يك تابع بازگشتي ضرب دو عدد را از طريق جمع انجام دهد.
(vb)

 

[the_king]

2-برنامه اي كه توسط يك تابع بازگشتي ضرب دو عدد را از طريق جمع انجام دهد.
(vb)

Private Function Multiply(x As Integer, y As Integer) As Integer
    If y > 0 Then
        Multiply = Multiply(x, y - 1) + x
    End If
End Function

Private Sub Form_Load()
    Dim a As Integer, b As Integer
    a = Val(InputBox("Please enter the first number :"))
    b = Val(InputBox("Please enter the second number :"))
    MsgBox Multiply(a, b)
End Sub