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

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

admin2017-06-21  54
问题 窗体上有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/HPGp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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