UC知道VB程序填空，没空格填清楚啊，别含糊哦
来源：百度知道 编辑：UC知道 时间：2024/07/01 04:52:53
1.本程序用辗转相除法求自然数m、n的最大分约数和最小公倍数。求最大公约数的算法如下：
(1)对于己知两数m、n，使得m>n;
(2) m除以n得余数r;
(3)若r=0,则n为求得的最大公约数，算法结束；否则执行(4)
(4) m<-n,n<-r再重复执行(2)
原两数相乘除以最大公约数即为最小公倍数。程序如下：
Private Sub Form_Click()
Dim m%,n%,mn%
n=Val(InputBox("n="))
m=Val(InputBox("n="))
If n<=0 OR m<=0 Then
MsgBox"数据出错"
Exit Sub
End If
_______ ________
If ______ _______Then
t=m
m=n
n=t
End If
Do While(______ _____)
_________ _________
m=n
n=r
Loop
Form1.Print"最大公约数="；m
Form1.Print"最小公倍数="；mn/m
End Sub
(1)对于己知两数m、n，使得m>n;
(2) m除以n得余数r;
(3)若r=0,则n为求得的最大公约数，算法结束；否则执行(4)
(4) m<-n,n<-r再重复执行(2)
原两数相乘除以最大公约数即为最小公倍数。程序如下：
Private Sub Form_Click()
Dim m%,n%,mn%
n=Val(InputBox("n="))
m=Val(InputBox("n="))
If n<=0 OR m<=0 Then
MsgBox"数据出错"
Exit Sub
End If
_______ ________
If ______ _______Then
t=m
m=n
n=t
End If
Do While(______ _____)
_________ _________
m=n
n=r
Loop
Form1.Print"最大公约数="；m
Form1.Print"最小公倍数="；mn/m
End Sub
Private Sub Form_Click()
Dim m%, n%, mn%
n = Val(InputBox("n="))
m = Val(InputBox("n="))
If n <= 0 Or m <= 0 Then
MsgBox "数据出错"
Exit Sub
End If
mn = m * n
If n > m Then
t = m
m = n
n = t
End If
Do While n <> 0
r = m Mod n
m = n
n = r
Loop
Form1.Print "最大公约数="; m
Form1.Print "最小公倍数="; mn / m
End Sub
Private Sub Form_Click()
Dim m%,n%,mn%
n=Val(InputBox("n="))
m=Val(InputBox("n="))
If n<=0 OR m<=0 Then
MsgBox"数据出错"
Exit Sub
End If
____mn=m*n___ ________
If ___m<n___ _______Then
t=m
m=n
n=t
End If
Do While(___n!=0_____)
__r=m%n_______ _________
m=n