求最大公约数

            

         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的设计很好玩，所以又有点迫不及待的想上机自己试一下。终于到了自己练习的时候了，但程序写完后运行不了，我就一边又一遍的检查自己的步骤，但也没有错啊，后来终于发现是自己把单词的顺序打错了。看到自己做的能运行了觉得很高兴，虽然程序是照抄老师的，但还是觉得很有成就感。