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

admin2020-06-06  29

问题 以下程序的功能是计算并输出两个整数的最大公约数。
    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。
转载请注明原文地址:https://jikaoti.com/ti/hjo0FFFM
0

相关试题推荐
随机试题
最新回复(0)