问题
填空题
设有以下函数过程：
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=stlm
End Function
若在程序中用语句s=fun(10)调用此函数，则s的值为（）。
答案
参考答案：30
解析：
[评析] 在For循环中，Step是用于指定计数器的步长，本题中是—2，就是每执行一次循环后，k的值减2。本题中从10开始执行循环，当k=O时，结束循环。此时s=10+8+6+4+2=30。