窗体上有 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， 则在窗体上显示的内容为
程序中 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。