根据资源税的有关规定，下列资源应征收资源税的是( )。

A．水资源

B．天然原油

C．森林资源

D．人造石油

在窗体上有一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim a(5)As String 　　FOR i=1 To 5 　　　　 a(i)=Chr(Asc("A")+(i-1)) 　　Next 　　For Each b In a 　　　　Print b； 　　Next End Sub 程序运行后，单击命令按钮，输出结果是

A．ABCDE

B．1 2 3 4 5

C．abcde

D．出错信息