单项选择题

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

Private Function fun(ByVal m As Integer)

Ifm Mod2=0 Then

fun=2

Else

fun=1

End If

End Function

Private Sub Command1_Click()

Dim i As Integer,s As Integer

s=0

For i=1 To 5

s=s+fun(i)

Next

Prints

End Sub

程序运行后,单击命令按钮,则窗体上输出( )。

A.6
B.7
C.8
D.9