设有以下函数过程: 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=s

admin2009-02-15  55

问题 设有以下函数过程:
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的值为【  】。

选项

答案30

解析 在For循环中,Step是用于指定计数器的步长,本题中是-2,就是每执行一次循环后,k的值减2。本题中从10开始执行循环,当k=0时,结束循环。此时s=10+8+6+4+2=30。
转载请注明原文地址:https://jikaoti.com/ti/wgq0FFFM
0

最新回复(0)