Question

VB编程 要求输入两个数，并求出它们的最大公约数和最小公倍数。

界面和运行结果如下：（具体内容如下图）
要求是全部程序要求打印输出的字体
各位请注意，我要的是答案，请各位不要告诉我这些没用的东西，只要编程就可以了，谢谢各位

Answer 1

Function GYS(lNum1 As Long, lNum2 As Long) As Long
Dim i As Long
For i = lNum1 To 1 Step -1
If lNum1 Mod i = 0 And lNum2 Mod i = 0 Then
GYS = i
Exit For
End If
Next
End Function

Function GBS(lNum1 As Long, lNum2 As Long) As Long
Do While i = False
s = s + 1
i = s Mod lNum1 = 0 And s Mod lNum2 = 0
Loop
GBS = s
End Function

Private Sub Command1_Click()
Dim m As Long, n As Long
m = Val(InputBox("输入m"))
n = Val(InputBox("输入n"))
Print "输入的两个数是 " & m & "和" & n
Print "它们的最大公约数是";
If m > n Then
Print GYS(m, n)
Else
Print GYS(n, m)
End If
Print "它们的最小公倍数是";
Print GBS(m, n)
End Sub

Answer 2

这个例子教材上有，谭浩强编写的VB6.0版本上有，估计其他版本也有，很常见的题目

Answer 3

这个程序很简单，但是代码并不短，你需要多给别人点分，别人才会写代码。
最大公约数用循环求出，最小公倍数是两数积除以最大公约数。
我要睡觉了。

Answer 4

Dim j As Integer, t As Integer, m As Integer, n As Integer
Dim s As Integer, i As Integer, k As Integer
s = 1
m = InputBox("请输入m：")
n = InputBox("请输入n：")
Print "输入的两个数是："; m; "和"; n
If m > n Then
i = m: m = n: n = i
End If
If m = n Then
Print "最大公约数和最小公倍数都是"; m
Exit Sub
ElseIf n Mod m = 0 Then
Print "它们的最大公约数是"; m
print "它们的最小公倍数是"; n
Exit Sub
End If
k = m
t = n
Do While k <> 0
t = t Mod k
j = t: t = k: k = j
Loop
Print "它们的最大公约数是"; t;
m = m / t
n = n / t
s = m * n * t
Print "它们的最小公倍数是"; s

Answer 5

这个简单的吧，好写的,只要知道什么是最大公约数，什么是最小公倍数！