Function F1(b As Intege If b Mod 2=0 Then Return 0 Else Return 1 End If End Function Function F1(b As Intege If b Mod 2=0 Then F1=0 Else F1=1 End If End Function Function F1(b As Intege If b Mod 2=0 Then F1=1 Else F1=0 End If End Function Function F1(b As Intege If b Mod 2<>0 Then Return 0 Else Return 1 End If End Function