这个程序的功能是什么?

来源:百度知道 编辑:UC知道 时间:2024/09/20 14:57:57
Private Sub Command1_Click()
Dim x%, y%, z%
x = 242: y = 44
z = x * y
Do Until x = y
If x > y Then x = x - y Else y = y - x
Loop
Print x, z \ x
End Sub

……
谁写的啊……首先设定了X,Y的值。Z也是定值(乘一下)。然后在X>Y时,不停的做X-Y ,然后这个差成为新的X值。若X<Y,则用Y-X 做新的Y 值。这一段循环运行,直到X=Y。最后,打印出最后的X值和Z/X的值。就这样。

你刚才好像也问了一个相同标题的问题
x,y两个数,不断用大的减小的,直到xy相等,输出x与z除以x。