A.Function Fl(bAsIntege If b Mod2=0 Then Remm 0 Else Remm 1 End If End FunctiOn B.Function F1(bASIntege IfbMOd2=0Then F1=0 E1se F1=1 End If End Funcdon C.FuncdOnH(b As Intege IfbMod2=0 Then F1=1 Else F1=0 End If End FunctiOn D.FuncdOn F1(b As Intege If b MOd2<>0 Then Retum 0 Else Return 1 End If End FunctiOn