有如下函数过程：
Function fun1(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=fun1(a,b)
Print x
End Sub

A．0

B．25

C．50

D．100

非贴现指标中的投资回收期，由于没有考虑时间价值，因而夸大了投资的回收速度。