帮忙啊！！VB6.0~急！！

来源：百度知道 编辑：UC知道 时间：2024/05/25 07:25:22
编一个程序计算101+102+103+……+200

怎么写啊？我在上课，各位朋要快啊！！恩……实在不行给思路也可以，只是不知道能不能读懂，我刚学……

谢谢啦＾＿＾

dim count
for i=101 to 200
count=count+i
next
msgbox count

Private Sub Form_click()
Dim a, b
a = Val(InputBox("从101加到200", "无标题", 200))
b = abc(a)
Debug.Print b
End Sub
Function abc(n)
If n = 101 Then
abc = 101
ElseIf n > 101 Then
abc = abc(n - 1) + n
End If
End Function