[填空题]下列函数过程的作用是计算x和y的最大公约数。请填空。PrivateSubCommand1_Click()DimxAsInteger,yAsInteger,ResultAsIntegerx=InputBox(“请输入第一个数”)y=InputBox(“请输入第二个数”)Result=______Printx;"和";y;"的最大公约数为:";ResultEndSubPrivateFunctionGYS(ByValAAsInteger,ByValBAsInteger)DimTAsIntegerT=AModBDoWhile______A=BB=TT=AModBLoop______EndFunction

求两个正整数的最大公约数的算法通常使用“辗转相除法”。设有两个正整数m，n，求它们的最大公约数的算法如下： ①若m＜n，则交换m和n(保证m大于n)。 ②计算m／n的余数r。 ③若r不等于0，则令m=n、n=r，转第②步继续执行；否则，算法结束，n就是最大公约数。 下面用“辗转相除法”求出并返回m、n最大公约数的函数fun，请填写清单中缺少的语句。 int fun(int m，int n) { int r； if(m＜n) { r=m； m=n； n=r； } if(n==0) return(m)； do{_____ if {r!=0} {m=n；n=r；} )while(r!=0)； return(n)； )

下列函数过程的作用是计算x和y的最大公约数。请填空。

Private Sub Command1_ Click()

Dim x As Integer, y As Integer, Result As Integer

x = InputBox (“请输入第一个数”)

y = InputBox (“请输入第二个数”)

Result =______

Print x; "和"; y; "的最大公约数为: "; Result

End Sub

Private Function GYS (ByVal A As Integer, ByVal B As Integer)

Dim T As Integer

T = A Mod B

Do While ______

A = B

B = T

T = A Mod B

Loop

______

End Function