Question

麻烦各位帮我解答一下这道VB的二级题，谢谢了

设有以下函数过程：
Function Fun(m as integer) as integer
Dim k as integer , sum as integer
Sum=0
For k=m to 1 step -2
Sum=sum +k
Next k
Fun=sum
End function
若在程序中用语句s=fun(10) 调用次函数，则s的值为_______。
我知道答案是30.但是不知道怎么得到的。麻烦各位帮我讲解一下，谢谢。

Answer 1

s=fun(10)就是说你传入 funtion fun（m as integer）as integer的值M=10
dim k as integer,sum as integer 定义K,SUM为整形
sum=0 赋予sum的初值为0

for k= m to 1 step -2
sum=sum+k
next k
这是一个循环 每循环一次K的值减2 、sum的值由原值加上K的当前值
应为M=10 所以 K从10 到 1循环
K= 10 — 8—6—4—2—0
当K=0时 小于下限1 跳出循环
所以sum=sum+k
列出来就是
sum=0
k=10 sum=0+10
k=8 sum=0+10+8
k=6 sum=0+10+8+6
.
.
k=0 K<1跳出for
所以sum=10+8+6+4+2=30
fum =sum 该步骤将fum值等于sum，该值将返回给S
end function

Answer 2

同初值为10，循环中 K=10+8+6+4+2 ，最后返回S=30

Answer 3

循环中10 + 8 + 6 + 4 + 2=30，循环5次