UC知道一个VB程序的意思？
来源：百度知道 编辑：UC知道 时间：2024/06/21 23:01:08
这段程序的功能是什么？
解释一下？
有点看不懂
Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim x%, y%, z%
x = 242 : y = 44
MsgBox("x=" & x & "y=" & y)
z = x * y
Do Until x = y
If x > y Then x = x - y Else y = y - x
Loop
MsgBox("计算结果" & x & "" & z / x)
End Sub
End Class
2.
mk=k这个语句执行了几次？
解释一下？
有点看不懂
Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim x%, y%, z%
x = 242 : y = 44
MsgBox("x=" & x & "y=" & y)
z = x * y
Do Until x = y
If x > y Then x = x - y Else y = y - x
Loop
MsgBox("计算结果" & x & "" & z / x)
End Sub
End Class
2.
mk=k这个语句执行了几次？
Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim x%, y%, z%------------定义3个变量整型
x = 242 : y = 44---------初始化
MsgBox("x=" & x & "y=" & y)-----Msgbox输出：x=242 y=44
z = x * y--------计算z值。为x y的乘积
Do Until x = y ——————Do循环，一直运行到x和y相等
If x > y Then x = x - y Else y = y - x——————如果x大于y，那么x等于x-y，否则y=y-x
Loop——————继续执行循环
MsgBox("计算结果" & x & "" & z / x)——————输出计算结果
End Sub
End Class
执行过程：
0、输出：x=242 y=44
1、x>y, x=242-44=198,y=y=44不变
2、x>y, x=198-44=154,y=y=44不变
3、x>y, x=154-44=110,y=y=44不变
4、x>y, x=110-44=66, y=y=44不变
5、x>y, x=66-44=22, y=y=44不变
6、x<y, x=x=22不变 ,y=y-x=44-22=22
7、x=y，符合until条件，循环终止
8、输出结果：计算结果x 22 484