[填空题] 设有以下函数过程： Function fun(m As Integer)As Integer Dim k As Integer,sum As I

[填空题] 设有以下函数过程： 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=fim(10)调用此函数，则s的值为 【6】 。

30

[评析] 在For循环中，Step是用于指定计数器的步长，本题中是-2，就是每执行一次循环后，k的值减2。本题中从10开始执行循环，当k=0时，结束循环。此时s=10+8+6+4+2=30。