活动区设置不科学的做法是（）。

A.在教室入口处创设建构区

B.在美工区旁边创设科学探索区

C.在益智区旁边创设阅读区

D.在表演区旁边创设建构区

在窗体上有一个命令按钮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