【单选题】

在窗体上有一个命令按钮Command1，通用过程fun和命令按钮的事件过程如下：

Private Function funByVal mAs Integer)

Ifm Mod2=0 Then

fun=2

Else

fun=1

End If

End Function

Private SubCommand1_Click()

Dim iAs Integer,sAs Integer

s=0

For i=1 To 5

s=s+fun(i)

Next

Prints

End Sub

程序运行后，单击命令按钮，则窗体上输出()。
A．6
B．7
C．8
D．9