用递归求1+2+3+......+n VB程序

用递归求1+2+3+......+n VB程序

Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
Dim sum As Integer
a = 1
b = 100
sum = (a + b) * (b / 2)
Print sum
End Sub

Dim sum As Integer

Private Sub CommandButton1_Click() sum = 0 he (100) commandbutton1.caption= sum

End Sub

Sub he(n) If n Then sum = sum + n n = n - 1 he (n) End If

End Sub

Private Sub UserForm_Click()

End Sub

要用递归，也就是要把大问题分成小问题

1+2==1+(1+1)

99+100=99+(99+1) N+(N+1)