单项选择题

有如下函数过程：　　Function HFC(ByVal x AS Integer，ByVal y As Integer)As Integer　　　　Do While y ＜ ＞ 0　　　　　　sic=x/y　　　　　　X=y　　　　　　y=sic　　　　Loop　　　　HFC=x　　End Function　　以下是该函数的调用过程，该程序的运行结果是　　Private Sub Command1 _ Click( )　　　　Dim a AS Integer　　　　Dim　b As Integer　　　　a=12　　　　b=2　　　　x=HFC(a，b)　　　　Print x　　End Sub