Question

vb题。有答案，求答案解析

private sub command1_click()
dim s as integer
s=p(1)+p(2)+p(3)+p(4)
print s;
end sub

privte function p(n as integer)as integer
dim sum%,dim i%
for i=1 to n
sum=sum+i
next i
p=sum
end function
答案，20
求具体解析啊~

Answer 1

private sub command1_click()‘单击command1事件
dim s as integer’定义整型变量s
s=p(1)+p(2)+p(3)+p(4)'调用函数p，计算p(1)，p(2)，p(3)，p(4)。并求其和赋值给S
print s;'输出S到form上
end sub

privte function p(n as integer)as integer'函数P，功能：P=1+2+...+n
dim sum%,dim i%'定义整型变量
for i=1 to n‘循序：i从1到n，步长1
sum=sum+i’计算1+2+。。。+n
next i
p=sum‘设置函数P的返回值，即结果
end function

追问

我意思是20这个答案怎么算出来的 不是解释题目意思

追答

p(1)=1
p(2)=1+2=3
p(3)=1+2+3=6
p(4)=1+2+3+4=10
1+3+6+10=20