用VB写设计程序代码，求：s=1 (1 2) (1 2 3) …… (1 2 3 …… n)的值

Question

要求能实现用户任意输入n值。输出s值
：s=1 +(1 +2) +(1 +2+ 3) …… (1+ 2+ 3 ……+ n)的值

Answer 1

function sum(byval n as integer) as integer
    dim i as integer,  s as integer
 
    s = 0
    for i = 1 to n
        s = s + i
    next
 
    sum = s
end function
 
sub main ()
    dim n as integer, i as integer, s as integer
 
    inputbox n
    s = 0
    for i = 1 to val(n)
        s = s + sum(i)
    next
 
    messagebox s, 0
end sub

Answer 2

Private Sub Command1_Click()
n = Val(InputBox("n=?"))
For j = 1 To n
t = 0
For i = 1 To n
t = t + i
Next
s = s + t
Next
MsgBox "s=" & s
End Sub

本回答被网友采纳