已知抛物线方程为y²=2px（p＞0），直线l：x+y=m过抛物线的焦点且被抛物线截得的弦长为3，求p的值．

在窗体上画一个命令按钮，名称为Command1。程序运行后，如果单击命令按钮，则显示一个输入对话框，在该对话框中输入一个整数，并用这个整数作为实参调用函数过程F1。在F1中判断所输入的整数是否是奇数，如果是奇数，过程F1返回1，否则返回0。能够正确实现上述功能的代码是( )。

A．Private Sub Command1_Click() x=InputBox("请输入整数") a=F1(Val(x)) Print a End Sub Function F1(byRef b As Integer) If b Mod 2=0 Then Return 0 Else Return 1 End If End Funcfion

B．Privae Sub Command1_Click() x=InputBox("请输入整数") a=F1(Val(x)) print a End Sub Function F1(byRef b As Integer) If b Mod 2=0 Then F1=0 Else F1=1 End If End Function

C．Private Sub Command1_Click() x=InputBox("请输入整数") F1(Va(x)) Print a End Sub Function F1(byRef b As Integer) If b Mod 2=0 Then F1=1 Else F1=0 End If End Funcfion

D．Private Sub Command1_Click() x=InputBox("请输入整数") F1(Val(x)) Print a End Sub Function F1(ByrRef b As Integer) If b Mod 2=0 Then Return 0 Else Return 1 End If End Function