问题 填空题

下列函数过程的作用是计算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

答案

参考答案:GYS (x,y) T<>0 GYS=B

单项选择题
单项选择题