求最大公约数

原创 2012年03月27日 23:20:56
            

         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 <>

         M=N

         N=Remainder

         Remainder=M Mod N

         Wend

         Label4.Caption=Str(N)

         End Sub

        其实在刚刚发课本的时候我大约翻了下课本,觉得没什么意思,书中的内容一点都不懂,对这半年的计算机课不感兴趣。但上课之后,老师给做了一个程序就觉得很有意思,我又觉得VB的设计很好玩,所以又有点迫不及待的想上机自己试一下。终于到了自己练习的时候了,但程序写完后运行不了,我就一边又一遍的检查自己的步骤,但也没有错啊,后来终于发现是自己把单词的顺序打错了。看到自己做的能运行了觉得很高兴,虽然程序是照抄老师的,但还是觉得很有成就感。

C语言求最大公约数

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

求两个数的最大公约数的Java实现

求最大公约数:提示用户输入两个正整数,并求出它们的最大公约数。方法一:(辗转相除法) 设用户输入的两个整数为n1和n2且n1>n2,余数=n1%n2。当余数不为0时,把除数赋给n1做被除数,把余数赋...

求最小公倍数 最大公约数

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

C++求最小公倍数和最大公约数问题

这道题的解答就是求三个数(假设为想x,y,z)的最小公倍数,通过转化,这个最小公倍数可以转化成x*y*z÷最大公约数(x,y)÷最大公约数(x*y,z);所以问题的解答编程了如何求最大公约数的问题上了...

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

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

从键盘输入两个正整数,求它们的最大公约数和最小公倍数

//求两个正整数的最大的公约数和最小公倍数 #include #include int k=1;void divide(); void subtract(); void enumerate(); v...
  • hhejing
  • hhejing
  • 2017年03月22日 21:11
  • 807
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:求最大公约数
举报原因:
原因补充:

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