有如下函数过程。
Function UNC(ByVal x As Integer，ByVal y As Integer)As Integer
Do While y＜＞0
S=x/y
x=y
y=S
Loop
UNC=x
End Function
以下事件调用该函数，程序运行结果是【 】。
Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
a=12
b=2
x=UNC(a，b)
Print x
End Sub