[单项选择题] 在窗体上画一个命令按钮，名称为Command1。程序运行后，如果单击命令按钮，则显示一个输入对话框，在该对话框中输入一个整数，并用这个整数作为实参调用函数过程F1。在F1中判断所输入的

[单项选择题] 在窗体上画一个命令按钮，名称为Command1。程序运行后，如果单击命令按钮，则显示一个输入对话框，在该对话框中输入一个整数，并用这个整数作为实参调用函数过程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

End Function

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

Else

Return1

End lf

End Function