VB求三个数的最小公倍数

zpwtl

网上找到的一个程序，代码很少，只可惜求最小公倍数gbs = a * b * c / gys / gys不对。。。帮忙看看怎么改？还有前面的dim能不能再省省字符？
Private Sub CommandButton1_Click()
Dim a As Integer, b As Integer, c As Integer
Dim gys As Integer, gbs As Integer
Dim i As Integer min As Integer
a = Int(TextBox1)
b = Int(TextBox2)
c = Int(TextBox3)
min = IIf(a > b, b, a)
min = IIf(min > c, c, min)
For i = 1 To min
If a Mod i = 0 And b Mod i = 0 And c Mod i = 0 Then
gys = i
End If
Next i
gbs = a * b * c / gys / gys
TextBox4 = gys
TextBox5 = gbs
End Sub

xwdys

利用Excel现成的LCM和GCD函数吧

zpwtl

xwdys 发表于 2016-2-6 12:18
利用Excel现成的LCM和GCD函数吧

我想在word或ppt中用，好像没有现成的。。。

山菊花

供参考。

1. Sub 最小公倍数()
   
2.     Dim shu$, Temp, s() As Integer, gbs, maxs
   
3.     shu = Application.InputBox("输入两个或两个以上自然数，数字中间用逗号隔开：", "输入", Type:=2)
   
4.     Temp = Split(Replace(Replace(shu, "，", " "), ",", " "))
   
5.     ReDim s(0 To UBound(Temp))
   
6.     shu = ""
   
7.     For i = 0 To UBound(s)
   
8.         shu = IIf(i = 0, "", shu & ",") & Temp(i)
   
9.         s(i) = Temp(i)
   
10.         If maxs < s(i) Then maxs = s(i)
    
11.     Next
    
12.     shu = "[" & shu & "] = "
    
13.     Do
    
14.         gbs = gbs + maxs
    
15.         For i = 0 To UBound(s)
    
16.             If Not (gbs Mod s(i)) = 0 Then Exit For
    
17.         Next
    
18.         If i > UBound(s) Then Exit Do
    
19.     Loop
    
20.     MsgBox "最小公倍数 " & shu & gbs
    
21. End Sub

复制代码

xwdys

供参考:

1. Private Sub CommandButton1_Click()
   
2.   Dim a%, b%, c%, i%
   
3.   
   
4.   a = Int(TextBox1)
   
5.   b = Int(TextBox2)
   
6.   c = Int(TextBox3)
   
7.   
   
8.   For i = a To 1 Step -1
   
9.       If a Mod i = 0 And b Mod i = 0 And c Mod i = 0 Then Exit For
   
10.   Next
    
11.   TextBox4 = i
    
12.   
    
13.   i = a
    
14.   Do While 1
    
15.     If i Mod a = 0 And i Mod b = 0 And i Mod c = 0 Then
    
16.       Exit Do
    
17.     Else
    
18.       i = i + 1
    
19.     End If
    
20.   Loop
    
21.   TextBox5 = i
    
22. End Sub

复制代码