2. 计算机
  3. 窗体上有1个名称为Commandl的命令按钮，事件过程如下： Private Sub Commandl_Click() Dim x％，y％，z％ x=InputBox(”请输入第1个整数”)：y=InputBox(”请输入第2个整数

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

admin2018-10-15  62
问题 窗体上有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://www.kaotiyun.com/show/2FFp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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