以下程序的功能是计算并输出两个整数的最大公约数。 Private Sub a1() Dim x As Integer, y As Integer, t As Integer x = InputBox("请输入x的值") y = Input

admin2021-02-23  33

问题 以下程序的功能是计算并输出两个整数的最大公约数。
Private Sub a1()
   Dim x As Integer, y As Integer, t As Integer
   x = InputBox("请输入x的值")
   y = InputBox("请输入y的值")
   Do
     【             】
     x = y
     y = t
   Loop While (t <> 0)
   Debug.Print 【          】
End Sub
有如下语句:
① t = x
② t = y
③ t = x\y
④ t = x Mod y
⑤ x
⑥ y
⑦ t
⑧ x/y
程序中有两个【   】,将程序补充完整的正确语句是

选项 A、①⑦
B、②⑥
C、③⑧
D、④⑤

答案D

解析 求两个整数x和y的最大公约数的算法是:令t等于x除以y的余数,若t=0,则y为x和y的最大公约数。若t不为0,则可以肯定最大公约数必为小于y的数,则可令x=y,y=t,再返回开始状态,执行t=x mod y。直到t=0时,x为最大公约数。因此程序中Do和Loop之间为循环体,第一个空应填t=x mod y,第二个空为输出语句,应该输出x,因此选择D选项。
转载请注明原文地址:https://kaotiyun.com/show/lTSp777K
0

最新回复(0)