VB用函数实现两数最小公倍数
答案:1 悬赏:0
解决时间 2021-01-17 08:27
- 提问者网友:一抹荒凉废墟
- 2021-01-16 11:06
VB用函数实现两数最小公倍数
最佳答案
- 二级知识专家网友:怀裏藏嬌
- 2021-01-16 12:34
Private Sub Command1_Click()
Dim x As Long, y As Long
x = CLng(Text1.Text)
y = CLng(Text2.Text)
Text3.Text = GCD(x, y)
End Sub
Function GCD(x As Long, y As Long) As Long
If x Mod y = 0 Then
GCD = y
Else
GCD = GCD(y, x Mod y)
End If
End Function
Function LCM(x As Long, y As Long) As Long
LCM = x * y / GCD(x, y)
End Function
Dim x As Long, y As Long
x = CLng(Text1.Text)
y = CLng(Text2.Text)
Text3.Text = GCD(x, y)
End Sub
Function GCD(x As Long, y As Long) As Long
If x Mod y = 0 Then
GCD = y
Else
GCD = GCD(y, x Mod y)
End If
End Function
Function LCM(x As Long, y As Long) As Long
LCM = x * y / GCD(x, y)
End Function
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯