在窗体上画一个名称为Command1的命令按钮，然后编写如下通用过程

问题单项选择题

在窗体上画一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程：
Private Function f(m As Integer)
If m Mod 2 = 0 Then
f = m
Else
f = 1
End If
End Function
Private Sub Commandl Click()
Dim i As Integer
S = 0
For i=1 To 5
s = s + f(i)
Next
Print s
End Sub
程序运行后，单击命令按钮，在窗体上显示的是

A．11

B．10

C．9

D．8

答案

参考答案：C

解析：本题考查Function函数过程的建立与调用。f函数过程令参数m在是2的倍数的情况下返回m值，在m不是2的倍数的情况下，返回1。在For循环中调用，此过程，执行五次循环，i值分别为1，2、3、4、5。当i为2、4的时候，f(i)值为2、4，其他情况下为1，故s值为 1+1+1+2+4=9，正确答案为C。