A、Function Fl(bAsInteger) If b Mod2=0 Then Remm 0 Else Remm 1 End If End FunctiOn
B、Function F1(bASInteger) IfbMOd2=0Then F1=0 E1se F1=1 End If End Funcdon
C、FuncdOnH(b As Integer) IfbMod2=0 Then F1=1 Else F1=0 End If End FunctiOn
D、FuncdOn F1(b As Integer) If b MOd2＜＞0 Then Retum 0 Else Return 1 End If End FunctiOn