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