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

admin2018-10-15  38

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

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

答案B

解析 本题的循环中将两个输入的数x和y互相相减,直到x=y为止,实际上就是辗转相减法,求最大公约数的过程。
转载请注明原文地址:https://kaotiyun.com/show/2FFp777K
0

最新回复(0)