UC知道下列程序的功能是什么
来源：百度知道 编辑：UC知道 时间：2024/07/10 12:11:08
1.Private Sub Command1_Click()
Dim x$, n%
n = 20
Do While n <> 0
a = n Mod 2
n = n \ 2
x = Chr(48 + a) & x
Loop
Print x
End Sub
2.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
Dim x$, n%
n = 20
Do While n <> 0
a = n Mod 2
n = n \ 2
x = Chr(48 + a) & x
Loop
Print x
End Sub
2.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
第一个程序是求十进制数n的二进制表示形式。
第二个程序是求两个数的最大公约数和最小公倍数。
第一个是一个循环语句的演示a = n Mod 2
n = n \ 2 x = Chr(48 + a) & x 理解了就不难
第二个数是两个数的最大公约数和最小公倍数
第一个程序是求十进制数n的二进制表示形式。
第二个程序是求两个数的最大公约数和最小公倍数
这个对