vb帮忙修修代码!辗转相减法求最大公约数
来源:学生作业帮 编辑:神马作文网作业帮 分类:综合作业 时间:2024/10/12 23:25:09
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
运行 输好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
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 Su
你在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 Su
辗转相减法求最大公约数的vb代码
vb分别用子过程和子函数编写求两个数的最大公约数(算法用辗转相减法)
用辗转相减法求2183,2537,3481的最大公约数
辗转相除法求最大公约数
vb中用辗转相除法求最大公约数属于枚举法还是解析法
高中VB程序题用辗转相除法求最大公约数.已知用辗转相除法求两个正整数m、n的最大公约数的算法如下:(用num1,num2
用辗转相除法求两数的最小公倍数和最大公约数 VB
C语言:用递归实现辗转相除法和辗转相减法求最大公约数和最小公倍数,下面2个程序错了,帮我改改,
用辗转相除法求最大公约数!
6731.2809怎么辗转相除法求最大公约数
辗转相除法为什么能求最大公约数
什么叫辗转相除法求最大公约数