在窗体上绘制一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程：
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

发电厂建（构）筑物承重构件为不燃烧体的主厂房及运煤栈桥，其非承重外墙为不燃烧体时，其耐火极限不应小于0.75h。