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

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

admin2015-08-13  36
问题 窗体上有1个名称为Command1的命令按钮，事件过程如下：
  Private Sub Command1_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/RvQp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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