折射率为n、长度为L的玻璃纤维置于空气中，若从A端射入的光线能在玻璃纤维中发生全反射，最后从B端射出，如图所示，求：

①光在A面上入射角的最大值．

②若光在纤维中恰能发生全反射，由A端射入到从B端射出经历的时间是多少？

有如下函数过程：
Function funl(ByVal x As Integer,ByVal y As Integer)As Integer
Do While y＜＞0
reminder=x Mod y
x=y
y=reminder
Loop
fun1=x
End Function
在下列按钮单击事件中调用该函数，则该程序的运行结果是( )。
Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
a=100
b=25
x=funl(a，b)
Print x
End Sub

A．0

B．25

C．50

D．100