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

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

admin2020-04-18  55
问题 窗体上有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
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/RrTp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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