在窗体上画3个标签、3个文本框(名称分别为Text1、Text2和Text3)和1个命令按钮 (名称为Command1)，外观如下图所示。

编写如下程序：
Private Sub Form_Load()
Text1.Text=""
Text2.Text=""
Text3.Text=""
End Sub
Private Sub Commandl_Click()
x=Val(Text1.Text)
y=Val(Text2.Text)
Text3.Text=f(x,y)
End Sub
Function f(ByVal x As Integer,ByValy As Integer)
DoWhiley＜＞0
tmp=x Mody
X=y
y=tmp
Loop
f=X
End Function
运行程序，在Textl文本框中输入36，在Text2文本框中输入24，然后单击命令按钮，则在Text3文本框中显示的内容是( )。

三大营养物质在体内氧化时所释放的能量用来维持体温的能量占总量的()

A．30％

B．40％

C．50％

D．60％

E．70％