求最大公约数

原创 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
  • 下载

常见算法:C语言求最小公倍数和最大公约数三种算法

最小公倍数:数论中的一种概念,两个整数公有的倍数成为他们的公倍数,其中一个最小的公倍数是他们的最小公倍数,同样地,若干个整数公有的倍数中最小的正整数称为它们的最小公倍数,维基百科:定义点击打开链接 ...

求两个数的最大公约数

从键盘输入两个整数,输出两个整数的最大公约数。用C或C++语言实现程序解决问题。 1.程序风格良好(使用自定义注释模板) 2.使用三种算法解决问题 ...

如何在C++中实现求两个整数的最大公约数和最小公倍数(转)

最大公约数: 如果有一个自然数a能被自然数b整除,则称a为b的倍数,b为a的约数。几个自然数公有的约数,叫做这几个自然数的公约数。公约数中最大的一个公约数,称为这几个自然数的最大公约数。 这个有几...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:深度学习:神经网络中的前向传播和反向传播算法推导
举报原因:
原因补充:

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