VB 编程实现 加数 求和

VB 编程实现 加数 求和

Public Function f(ByVal n As Integer) As Integer
    Dim i As Integer
    Dim sum As Integer
    sum = 0
    For i = 1 To n
        sum = sum + i
    Next i
    f = sum
End Function

Private Sub Command1_Click()
    Dim n As Integer, i As Integer
    Dim sum As Double
    sum = 0
    n = InputBox("请输入一个数字N")
    For i = 1 To n
        sum = sum + f(i)
    Next i
    Print sum
End Sub

function Add(n as integer) as integer
dim i as integer,j as integer,temp as integer
for i=1 to n
for j=1 to i
temp = temp+j
next
next
add = temp
end function
sub test()
debug.print add(5)
end