SOMME DES NOMBRE ENTIER DE 1 À N VERSION CURSEUR

Option Explicit


Private Sub cal_Click()
Dim n, somme
n = Val(txtsaisie.Text)
somme = n * (n + 1) / 2
txtaffich.Text = "La somme est " & somme
End Sub

Private Sub end_Click()
End
End Sub

Private Sub Form_Load()
MsgBox "Mise à jour de l'anciène version avec un curseur"
End Sub

Private Sub txtsaisie_keypress(keyascii As Integer)
If keyascii < 48 Or keyascii > 57 Then
keyascii = 0
Beep
End If
End Sub

Private Sub sldsaisie_mousedown(button As Integer, shift As Integer, _
    x As Single, y As Single)
    txtaffich.Text = ""
    End Sub
    
Private Sub sldsaisie_mouseup(button As Integer, shift As Integer, _
    x As Single, y As Single)
    cal_Click
    End Sub

Private Sub sldsaisie_scroll()
    txtsaisie.Text = sldsaisie.Value
End Sub