标题:那最小公倍数怎么求?
只看楼主
goldgunman
Rank: 1
等 级:新手上路
帖 子:15
专家分:0
注 册:2004-4-21
 问题点数:0 回复次数:10 
那最小公倍数怎么求?
也是两个数的
搜索更多相关主题的帖子: 最小公倍数 
2004-04-27 14:21
griefforyou
Rank: 6Rank: 6
等 级:贵宾
威 望:27
帖 子:3336
专家分:0
注 册:2004-4-15
得分:0 

Option Explicit

Private Sub Command1_Click() Dim A As Integer, B As Integer, C As Integer Dim i As Integer

A = Val(Text1.Text) B = Val(Text2.Text) If A > B Then C = A A = B B = C Else C = A End If Do While True If C Mod A = 0 And C Mod B = 0 Then Label1.Caption = C Exit Do Else C = C + 1 End If Loop

End Sub


天津网站建设 http://www./
2004-04-27 14:29
goldgunman
Rank: 1
等 级:新手上路
帖 子:15
专家分:0
注 册:2004-4-21
得分:0 

谢谢

2004-04-27 14:31
griefforyou
Rank: 6Rank: 6
等 级:贵宾
威 望:27
帖 子:3336
专家分:0
注 册:2004-4-15
得分:0 

数学里的计算方法

Option Explicit

Private Sub Command1_Click() Dim A As Integer, B As Integer, C As Integer Dim i As Integer

A = Val(Text1.Text) B = Val(Text2.Text) i = 2 C = 1 Do While A >= i And B >= i If A Mod i = 0 And B Mod i = 0 Then C = C * i A = A / i B = B / i i = 2 Else i = i + 1 End If Loop Label1.Caption = C * A * B

End Sub


天津网站建设 http://www./
2004-04-27 14:52
goldgunman
Rank: 1
等 级:新手上路
帖 子:15
专家分:0
注 册:2004-4-21
得分:0 
2004-04-27 14:55
pigpigpig
Rank: 1
等 级:新手上路
帖 子:51
专家分:0
注 册:2004-4-18
得分:0 
grief版主尽职尽责,我先表扬一下

没有做不到的,只有想不到的!
2004-04-28 10:54
griefforyou
Rank: 6Rank: 6
等 级:贵宾
威 望:27
帖 子:3336
专家分:0
注 册:2004-4-15
得分:0 
呵呵,我是ASP版的。。。那里没人,所以。。。

天津网站建设 http://www./
2004-04-28 12:24
鑫11
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2004-7-24
得分:0 
">" 这个代码什么含义
2004-07-25 19:23
鑫11
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2004-7-24
得分:0 
">" 即“>”,我知道了
2004-07-26 08:20
浪影
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2004-9-21
得分:0 
o ~我本来还准备问呢~谢拉
2004-09-21 20:47



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-936-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.270050 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved