根据《环境保护法》的规定，下列哪一项是县级以上人民政府环境保护行政主管部门的职权( )

A．对国家环境质量标准中未作规定的项目，制定地方环境质量标准
B．对国家污染物排放标准中未作规定的项目，制定地方污染物排放标准；对国家污染物排放标准中已作规定的项目，制定严于国家污染物排放标准的地方污染物排放标准
C．定期发布环境状况公报
D．会同有关部门对管辖范围内的环境状况进行调查和评价，拟订环境保护规划

设有如下通用过程：Public Sub Fun(a( )，ByVal x As Integer) For i=1 To 5 x=x+a(i) NextEnd Sub 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下的事件过程：Private Sub Command1_Click( ) Dimsn(5)As Variant For i=1 To 5arc(i)=i Next n=10Call Fun(arr( )，n) Textl.Text=n End Sub 程序运行后，单击命令按钮，则在文本框中显示的内容是

A．10

B．15

C．25

D．24