vb帮忙修修代码!辗转相减法求最大公约数运行 输好inputbox后 form是空白代码如下：Option ExplicitPrivate Sub form_load()Dim m As Long,n As Long,m1 As Long,n1 As Long,r As Long,t As Longm1 = InputBox("输入m1","求最大公

来源：学生作业帮助网 编辑：作业帮 时间：2024/10/07 01:55:55
vb帮忙修修代码!辗转相减法求最大公约数运行 输好inputbox后 form是空白代码如下：Option ExplicitPrivate Sub form_load()Dim m As Long,n As Long,m1 As Long,n1 As Long,r As Long,t As Longm1 = InputBox(
xT]OA+c gj4M%o MͲ+H hK*E>*LRgff'wfBU_L4ɝ{ν0hmԎο\8{âEmϲ\n؁]e%ȹHӝ)3Х ~?TĚ~MEèwFP^*fLchp*,hhǽEE*DA qޫ4l H|nm{^u}_ڞ"kBn1D+B=kCGJD\|E4T%_ 0üCư札/ Y@(\JzG*l19_g }/b5Os'> u bLQB` R`t'VS[e'/r6ORPAVI[l+6hB|P

vb帮忙修修代码!辗转相减法求最大公约数运行 输好inputbox后 form是空白代码如下：Option ExplicitPrivate Sub form_load()Dim m As Long,n As Long,m1 As Long,n1 As Long,r As Long,t As Longm1 = InputBox("输入m1","求最大公
vb帮忙修修代码!辗转相减法求最大公约数
运行 输好inputbox后 form是空白
代码如下：
Option Explicit
Private Sub form_load()
Dim m As Long,n As Long,m1 As Long,n1 As Long,r As Long,t As Long
m1 = InputBox("输入m1","求最大公约数和最小公倍数")
n1 = InputBox("输入n1","求最大公约数和最小公倍数")
m = m1
n = n1
Do
If n > m Then
t = m
m = n
n = t
End If
r = m - n
If r = 0 Then Exit Do
m = n
n = r
Loop Until r = 0
Print m1; ","; n1; "的最大公约数是"; m
Print m1; ","; n1; "的最小公倍数是"; m1 * n1 / m
End Sub

vb帮忙修修代码!辗转相减法求最大公约数运行 输好inputbox后 form是空白代码如下：Option ExplicitPrivate Sub form_load()Dim m As Long,n As Long,m1 As Long,n1 As Long,r As Long,t As Longm1 = InputBox("输入m1","求最大公
PRINT有个缺点,如果被窗体挡一下 打印上去的文字就会消失,
你在FORM LOAD 中,用PRINT 是不行的,
因为在窗体还没出来之前就打印好了,出来是文字是会消失的,
你的代码是没错的 你用MSGBOX吧 我下面帮你改好了
或者放到其他控件里
Option Explicit
Private Sub form_load()
Dim m As Long,n As Long,m1 As Long,n1 As Long,r As Long,t As Long
m1 = InputBox("输入m1","求最大公约数和最小公倍数")
n1 = InputBox("输入n1","求最大公约数和最小公倍数")
m = m1
n = n1
Do
If n > m Then
t = m
m = n
n = t
End If
r = m - n
If r = 0 Then Exit Do
m = n
n = r
Loop Until r = 0
MsgBox m1 & "," & n1 & "的最大公约数是" & m & vbCrLf & _
m1 & "," & n1 & "的最小公倍数是" & m1 * n1 / m
End Sub

辗转相减法求最大公约数的vb代码 vb帮忙修修代码!辗转相减法求最大公约数运行 输好inputbox后 form是空白代码如下：Option ExplicitPrivate Sub form_load()Dim m As Long,n As Long,m1 As Long,n1 As Long,r As Long,t As Longm1 = InputBox(输入m1,求最大公 vb分别用子过程和子函数编写求两个数的最大公约数（算法用辗转相减法） 用辗转相减法求2183,2537,3481的最大公约数 辗转相除法求最大公约数 vb中用辗转相除法求最大公约数属于枚举法还是解析法 辗转相除法为什么能求最大公约数 6731.2809怎么辗转相除法求最大公约数 什么叫辗转相除法求最大公约数 c语言辗转相除法求最大公约数 用辗转相除法求两个自然数m,n的最大公约数和最小公倍数的vb程序编写 VB程序,编写一个用辗转相除法,求俩自然数m、n的最大公约数和最小公倍数.用DO……LOOP循环语句 用辗转相除法求6731和2809的最大公约数. 辗转相除法求三个数字的最大公约数 用辗转相除法求2个数的最大公约数, 用辗转相除法求6731和2809的最大公约数. 用辗转相除法求459和357的最大公约数 求459和357的最大公约数 用辗转相除法