[单项选择题] 在窗体上有一个命令按钮Command1，通用过程fun和命令按钮的事件过程如下： Private Function fun(ByVal m As Integer) If m Mod

[单项选择题] 在窗体上有一个命令按钮Command1，通用过程fun和命令按钮的事件过程如下：

Private Function fun(ByVal m As Integer)

If m Mod 2=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

Print s

End Sub

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

A．6

B．7

C．8

D．9