Bonjour, j'aimerais calculer la somme des entiers d’un intervalle [a,b].
J'aimerais en déduire un projet VB.net utilisant une fonction "Somme" et construire une version récursive de cette fonction "Somme". Voilà ce que j'ai déjà mis pour mes 2 fonctions. Malheureusement, elle ne fonctionne pas. Pourriez-vous m'aider ?

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Function SommeIterative(ByVal A As Integer, ByVal B As Integer) As Long
Dim I As Integer
SommeIterative = 0
For I = A To B
SommeIterative = SommeIterative + I
Next
 
End Function
 
 
Function SommeRecursive(ByVal A As Integer, ByVal B As Integer) As Long
If B = 0 Then
SommeRecursive = 0
Else
SommeRecursive = B + SommeRecursive(B - A)
End If
 
End Function
Voilà ce que j'ai comme code pour mon bouton calculer :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Private Sub BtnCalculer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCalculer.Click
Dim A, B As Integer
A = TxtA.Text
B = TxtB.Text
 
If RdBtnIterative.Checked Then
 
TxtSomme.Text = SommeIterative(A, B)
Else
TxtSomme.Text = SommeRecursive(A, B)
 
End If
Si quelqu'un pouvez m'aider, ce serait très gentil SVP. Merci d'avance !