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

《红鞋》中珈伦为什么穿上舞鞋就不停的跳舞，而且无法停下（）

A.这是一双魔法舞鞋

B.她热爱跳舞

C.因为一位长者大胡子的老兵在她的红鞋底上敲了两下

D.上帝对她的惩罚