单选题
以下程序的功能是计算并输出两个整数的最大公约数。
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
程序中有两个【 】，将程序补充完整的正确语句是
【正确答案】
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选项。