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

Private Function fun(By Val m As Integer)

If m Mod 2=0 Then

fun=2

Else

fun=1

End If

End Function

Private Sub Commandl_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

餐饮环境的布置是吸引顾客的十分重要的手段，对顾客影响首当其冲的是环境布置中的（）