作业帮VB 求两个正整数的最大公约数
来源：学生作业帮 编辑：作业帮 分类：综合作业 时间：2024/11/05 19:35:21
VB 求两个正整数的最大公约数
Private Sub Command1_Click()
Dim a, b
a = Val(InputBox("请输入第一个数"))
b = Val(InputBox("请输入第二个数"))
If Not a = 0 And Not b = 0 Then
If a < b Then c = a: a = b: b = c
Do
If a Mod b = 0 Then Exit Do
c = b
b = a Mod b
a = c
Loop
Print "所求最大公约数为：" & b
End If
End Su
Dim a, b
a = Val(InputBox("请输入第一个数"))
b = Val(InputBox("请输入第二个数"))
If Not a = 0 And Not b = 0 Then
If a < b Then c = a: a = b: b = c
Do
If a Mod b = 0 Then Exit Do
c = b
b = a Mod b
a = c
Loop
Print "所求最大公约数为：" & b
End If
End Su
VB 求两个正整数的最大公约数
VB程序 利用输入对话框输入两个正整数,求最大公约数.
编写一个vb程序,输入两个正整数,求他们的最大公约数和最小公倍数,谢谢!
请用VB程序编程求两个正整数m和n的最大公约数和最小公倍数.
VB题目求解 题目：给出两个正整数,求他们的最大公约数和最小公倍数. 这个怎么做的
高中VB程序题用辗转相除法求最大公约数.已知用辗转相除法求两个正整数m、n的最大公约数的算法如下：(用num1,num2
如何用VB求两个数的最大公约数和最小公倍数?
vb题：求两个整数的最大公约数和最小公倍数
VB求两个数的最大公约数和最小公倍数
编写一个函数,求两个正整数的最大公约数
求两个正整数的最大公约数,用算法怎么表示
求两个正整数m和n的最大公约数