有如下函数过程： Function Fun(By Val x As Ingeger，ByVal y As Integer)As Integer 　　Do While…Y＜＞0 　　　　reminder=x Mod Y 　　　　x=y 　　　　y=reminder 　　Loop 　　Fun=X End Function 以下是调用该函数的事件过程，该程序的运行结果是 Private Sub Command1_Click() Dim a As Integer Dim b As Integer 　　a=100:b=25 　　x=Fun(a,b) 　　Print x End Sub

A．acbed
B．decab
C．deabc
D．cedba

A．a=5：b=8 　Do 　　Print "*" 　　a=a+1 　Loop While a＜b
B．a=5：b=8 　Do 　　Print "*" 　　a=a+1 　Loop Until a＜b
C．a=5：b=8 　Do Until a-b 　　Print "*" 　　b=b+1 　Loop
D．a=5：b=8 　Do Until a＞b 　　Print "*" 　　a=a+1 　Loop