阅读下面的程序段：
For a=1 To 2
　For b=1 To a
　For C=b To 2
　 　I=I + 1
　　Next
　Next
Next
Print I
执行上面的三重循环后，I的值为

A．硬件资源
B．通信资源
C．支持软件
D．辅助资源

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