Private Sub Command1_Click()
Dim m As Long, n As Long, t As Long
m = Val(Text1.Text)
n = Val(Text2.Text)'两个文本框中分别输入整数m和n
If m < n Then '如果m
用Do...Loop循环语句,求m和n的最大公约数,以下是程序代码,
1个回答
相关问题
-
Vb Do while|until…Loop 循环语句
-
写出求m=60,n=30的最大公约数的算法和程序框图
-
用FOR循环求两个数的最大公约数和最小公倍数的程序（大一生可以看懂的）
-
求解释下面4句 Loop的循环语句
-
问下最大公约数的求法M,N（M>N）.M除以N得的余数,设为B.就是问N与B的最大公约数,为什么和M和N的最大公约数一样
-
用VB写设计程序代码,求：s=1+(1+2)+(1+2+3)+……+(1+2+3+……+n)的值. 要求用DO循环
-
用辗转相减法求两自然数M,N的最大公约数和最大公倍数
-
求两个自然数M和N的最大公约数.
-
一道高一数学循环语句的题n=5S=0DoS=S+nn=n-1Loop While S＜10输出nn=?
-
已知M÷N=5，M和N的最大公约数是______，M和N的最小公倍数是______．