单选题以下程序的功能是计算并输出两个整数的最大公约数。 Private Sub a1() Dim x As Integer，y As Integer，t As Integer x=lnputBox("请输入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。