VB题目求解 题目:给出两个正整数,求他们的最大公约数和最小公倍数. 这个怎么做的
来源:学生作业帮 编辑:神马作文网作业帮 分类:数学作业 时间:2024/09/25 02:32:48
VB题目求解 题目:给出两个正整数,求他们的最大公约数和最小公倍数. 这个怎么做的
Private Sub Command1_Click()
Dim k%,a%,b%,c%
a = Val(Text1)
b = Val(Text2)
If (a Mod 2 = 0) And (b Mod 2 = 0) Then
a = a \ 2
b = b \ 2
k = 2
Else
k = 1
End If
If a < b Then
t = a
a = b
b = t
End If
Do
c = a - b
If c > b Then
t = a
a = b
b = t
End If
a = b
b = c
Loop Until a = b
b = b * k
If b = 1 Then
Label1 = "这两个数"
Label1 = b
End Su
Dim k%,a%,b%,c%
a = Val(Text1)
b = Val(Text2)
If (a Mod 2 = 0) And (b Mod 2 = 0) Then
a = a \ 2
b = b \ 2
k = 2
Else
k = 1
End If
If a < b Then
t = a
a = b
b = t
End If
Do
c = a - b
If c > b Then
t = a
a = b
b = t
End If
a = b
b = c
Loop Until a = b
b = b * k
If b = 1 Then
Label1 = "这两个数"
Label1 = b
End Su
VB题目求解 题目:给出两个正整数,求他们的最大公约数和最小公倍数. 这个怎么做的
编写一个vb程序,输入两个正整数,求他们的最大公约数和最小公倍数,谢谢!
请用VB程序编程求两个正整数m和n的最大公约数和最小公倍数.
编写一个程序(C语言):给出两个正整数,求他们的最大公约数和最小公倍数.(主要是辗转相除法怎么用)
如何用VB求两个数的最大公约数和最小公倍数?
vb题:求两个整数的最大公约数和最小公倍数
VB求两个数的最大公约数和最小公倍数
VB 求两个正整数的最大公约数
c语言编程求两个正整数的最大公约数和最小公倍数!
求高手解答最大公约数和最小公倍数的几道题目
两个正整数的最大公约数是6,最小公倍数是90求两个数的最大公约数和最小公倍数的公式是什么?
求VB程序,利用Sub过程,计算两个整数的最大公约数和最小公倍数.