UC知道两个简单VB程序运行后的结果???和功能????
来源：百度知道 编辑：UC知道 时间：2024/05/11 18:11:51
Private Sub Command1_click()
Dim x$,n%
n = 20
x = " "
Do While n<>0
a = n Mod 2
n = n \ 2
x = Chr(48+a) & x
loop
Print x
End Sub
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
\
\
急阿``
大哥们阿``!!!!!!!!!!!
全面点阿```
\
还有第2个呀!!!!!
Dim x$,n%
n = 20
x = " "
Do While n<>0
a = n Mod 2
n = n \ 2
x = Chr(48+a) & x
loop
Print x
End Sub
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
\
\
急阿``
大哥们阿``!!!!!!!!!!!
全面点阿```
\
还有第2个呀!!!!!
第一个是把n的值转化为二进数形式输出 10100
最大公约数和最小公倍数 22 484
你要学习学习常用算法
这些都是常用算法
我的回答已经很全面了
10100
22 484 最大公约数 最小公倍数