该对话框中输入一个整数,并用这个整数作为实参调用函数过程F1。在F1中判断所输入的整数是否是奇数,如果是奇数,过程F1返回1,否则返回0。能够正确实现上述功能的代码是
A.Private Sub Command1_Click() x=Input Box("请输入整数") a=F1(Val(x)) Print a End Sub Function Fl(ByRef b As Integer) If b Mod2=0 Then Return0 Else Return 1 End lf
B.Private Sub Command1_Click() x=Input Box(“请输入整数”) a=Fl(Val(x)) Print a End Sub Function Fl(ByRef b As Integer) lf b Mod 2=0 Then Fl=0 Else Fl=1 End lf End Function
C.Private Sub Command1 Click() x= Input Box(“请输入整数”) F1(Val(x)) Print a Enb Sub Function Fl(ByRef b As Integer) If b Mod2=0 Then Fl=1 Else Fl=0 End lf End Function
D.Private Sub Command1_Click() x=Input Box(“请输入整数”) F1(Val(x)) Print a End Sub Function Fl(ByRef b As Integer) lf b Mod2=0 Then Return 0 E