窗体上有1个名称为Commandl的命令按钮,事件过程如下: Private Sub Commandl_Click() Dim x%,y%,z% x=InputBox(”请输入第1个整数”) y=InputBox("请输入第

admin2016-06-30  41

问题 窗体上有1个名称为Commandl的命令按钮,事件过程如下:
    Private Sub Commandl_Click()
    Dim x%,y%,z%
    x=InputBox(”请输入第1个整数”)
    y=InputBox("请输入第2个整数")
    Do Until x=y
    If X>Y Then X=X—Y Else y=y—x
    Loop
    Print x
    End Sub
    运行程序,单击命令按钮,并输入2个整数169和39,则在窗体上显示的内容为(    )。

选项 A、11
B、13
C、23
D、39

答案B

解析 程序中Do循环比较输入的两个数的大小,把较大的数值减去较小的数值后再与较小的值比较,直到两个数值相等。程序中输入169和39,则x=169—39=130,130>y即130>39,因此x=130一39=91,如此循环x=91一39=52—39=13,此时13>39为假,执行y=y—x=39—13=26,循环y=26—13=13,此时x、y都为13,循环结束,因此窗体上显示为13。
转载请注明原文地址:https://kaotiyun.com/show/OlLp777K
0

最新回复(0)