中易网

VB用函数实现两数最小公倍数

答案:1  悬赏:0  
解决时间 2021-01-17 08:27
VB用函数实现两数最小公倍数
最佳答案
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

我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
乌龟夏天天气一热就会突然不吃东西是怎么会事
和重量有关的成语
小米手机怎么把手机内存移动到SD卡上
香港哪里有IT专卖店?具体地点在哪?旺角有吗
请教下这七个相框我想挂墙上怎么摆好看……
NBA二轮秀,有几个成了全明星
醴陵金霖都大酒店地址在哪,我要去那里办事
为什么一上火就舌头烂
给男孩子取名字叫王恩*,最后一个字用哪个字
amd phenom ii x6 1055t 六核 吃鸡够用吗
lol纳尔AP还是AD出装技能,符文天赋怎么加点
从大营坡到机场多彩贵州城坐几路公交车到里.
要进军伪娘界 想要把体脂
1除以0可以吗
在豌豆杂交实验中,高茎与矮茎杂交,F2中高茎
推荐资讯
对鬼在七王五二三中是不是炸弹?
刚入手一块瑞士罗马水星手表,7280大洋!戴了
胰腺有什么用?
描写夏天月亮的诗句
纯牛奶240豪升是多少克
用乔3打过下巴能用丝丽xxl打吗
上海K馆地址有知道的么?有点事想过去
谁能取个两个字名,要带金木水火土
《班淑传奇》演的是哪个皇帝?
水泵属不属于电动工具
华仔玉器地址在什么地方,我要处理点事
哪里有手钻卖,难道真的要淘宝才有吗
手机登qq时,显示手机磁盘不足,清理后重新登
刺客的套装怎么选啊?