(31) 有如下函數(shù)過程：

　　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

　　以下是該函數(shù)的調(diào)用過程，該程序的運(yùn)行結(jié)果是

　　Private Sub Command1_Click()

　　Dim a As Integer

　　Dim b As Integer

　　a=12

　　b=2

　　x=HFC(a, b)

　　Print x

　　End Sub

　　A) 0

　　B) 6

　　C) 2

　　D) 80

　　正確答案: B