阅读程序： Option Base 1 Private Sub Form_Click( ) Dim arr，Sum Sum=0 arr=Array(1，3，5，7，9，11，13，15，17，19) For i=1 To 10If arr(i)/3=arr(i)\3 Then Sum=Sum+arr(i)End If Next i Print Sum End Sub程序运行后，单击窗体，输出结果为

A．13

B．14

C．27

D．15

维持机体新陈代谢所必需的能量，为小儿所特有的是( )。

A．基础代谢

B．生长发育所需

C．食物特殊动力作用

D．活动所需

E．排泄损失能量