单选题
窗体上有1个名称为Command1的命令按钮,事件过程如下:
Private Sub Command1_Click()
Dim x%,y%,z%
x=InputBox("请输入第1个整数")
y=InpntBox("请输入第2个整数")
DoUntil x=y
If x>y Then x=x-y Else y=y-x
Loop
Print x
End Sub
运行程序,单击命令按钮,并输入两个整数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,52-39=13,此时13>39为假,执行y=y-x=39-13=26,循环执行y=26-13=13,此时x,y都为13,循环结束,因此窗体上显示为13。B选项正确。
提交答案
关闭