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