求最大公约数

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

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

        一节课让我明白了一个道理，凡事都得细心，只有细心才能成功！