求最大公约数

原创 2012年03月25日 21:44:22

Option Explicit

Private Sub Command1_Click()

Dim M As Integer

Dim N As Integer

M=Int(Val(Text1.Text))

N=Int(Val(Text2.Text))

Dim TemporyValue As Integer

If M<N Then

TemporyValue=M

M=N

N=TemporyValue

End If

Dim Remainder As Integer

Remainder=M Mod N

While Remainder <>0

M=N

N=Remainder

Remainder=M Mod N

Wend

Label4.Caption=Str(N)

End Sub

       在上了计算机课后,我才发现我对计算机了解的太少了。经过两次的软件程序设计,我突然感慨计算机真的好神奇,就那么一个小小的机器却又那么强大的力量。一个小小的程序设计,对于我来说是完全陌生的。第一次设计求最大公约数的程序真的好难,明明就已经按照了老师给的步骤写了,可我就不明白了为什么就不能设计出来。我改了好多遍,检查了好多遍,没有错啊,我真的非常郁闷,我又怕是我本来就抄错了,可我和我旁边的同学对照了一下也没有错啊。实在没有办法,我们问了旁边的一个学长,可人家来了,一下就弄好了,后来他又给我讲了一下我错的原因,我才恍然大悟。之后我自己又重新设计了一下,终于被我设计成功了,激动的心情难以言表啊。
        一节课让我明白了一个道理,凡事都得细心,只有细心才能成功!

相关文章推荐

C语言求最大公约数

  • 2014年10月19日 08:55
  • 165B
  • 下载

经典算法(3)- 用二进制方法求两个整数的最大公约数(GCD)

二进制GCD算法基本原理是:  先用移位的方式对两个数除2,直到两个数不同时为偶数。然后将剩下的偶数(如果有的话)做同样的操作,这样做的原因是如果u和v中u为偶数,v为奇数,则有gcd(u,v)=g...

求最小公倍数 最大公约数

  • 2010年03月29日 14:50
  • 794B
  • 下载

用java实现欧几里得算法求两个数字的最大公约数

最大公约数 最大公约数的定义是两个不全为0的非负整数m和n的最大公约数记为gcd(m , n),代表能够整除(即余数为0)的最大整数。 欧几里得算法原理: 1.如果n == 0,则m就是最大公约数...

VB 求两个正整数的最大公约数

  • 2010年06月07日 13:53
  • 37KB
  • 下载

求最大公约数与最小公倍数

//两个数的最大公约数 //两个数的最小公倍数 //将一个正整数分解质因数 –和 2.3.5取余 #include int main1() { // 3,4 //...
  • LeoJame
  • LeoJame
  • 2017年07月27日 17:39
  • 175
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:求最大公约数
举报原因:
原因补充:

(最多只允许输入30个字)