下面4个CT函数中是用来判断用户输入的数是否为奇数的，是奇数的返回1，否则返回0，其中正确的是（ ）。

A． Function CT(ByVal a As Integer)　　　　If a Mod 2=0 Then　　　　　Return 0　　　　ElSe　　　　　Return 1　　　　End if　　End Function

B． Function CT(ByVal a As Integer)　　　If a Mod 2=0 Then　　　　CT=0　　　Else　　　　CT=1　　　End if　　End Function

C． Function CT(ByVal a As Integer)　　　If a Mod 2=0 Then　　　　　CT=1　　　Else　　　　　CT=0　　　End if　　End Function

D． Function CT(ByVal a As Integer)　　　If a Mod 2=0 Then　　　　　Return 1　　　Else　　　　　Return 0　　　End if　　End Function

（4分）以下说法中正确的是   ．

A．系统在吸收热量时内能一定增加

B．悬浮在空气中做布朗运动的PM2.5微粒，气温越高，运动越剧烈

C．封闭容器中的理想气体，若温度不变，体积减半，则单位时间内气体分子在容器壁单位面积上碰撞的次数加倍，气体的压强加倍

D．用力拉铁棒的两端，铁棒没有断，说明此时分子间只存在引力而不存在斥力