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

相关问题推荐

• 质互组指的是三个自然数a，b，c，其中的任意两个自然数之间都存在大于1的公约数，但是这三个数之间没有大于1的公约数。

  A.2、4、6

  B.6、33、77

  C.15、21、35

  D.135、45、27

  查看答案

• 下面是求最大公约数的函数的首部（ ）。 Function fun(By Val x As integer．ByVal Y As Integer)As Integer 若要输出8、12、16这3个数的最大公约数，下面正确的语句是

  A. Print fun(8，12)，fun(12，16)，fun(16，8)

  B. Prilit fun(8，12，16)

  C. print fun (8，12)，fun(12，16)，fun(16)

  D. Print fun(8，fun(12，16))

  查看答案

• 下面是求最大公约数的函数的首部：若要输出8、12、16三个数的最大公约数，下面正确的语句是（　　）。

  A、Print gcd（8，12），gcd（12，16），gcd（16，8）

  B、Print gcd（8，12，16）

  C、Print gcd（8），gcd（12），gcd（16）

  D、Print gcd（8，gcd（12，16））

  查看答案

• 编程实现求解最大公约数的欧几里德算法，用户输入两个任意正整数，程序输出他们的最大公约数。算法如下：

  查看答案
• 强国挑战答题答案：（）是社会主义核心价值观的最大公约数。

  A、诚信

  B、爱国

  C、富强

  D、敬业

  查看答案