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